Line data    Source code

       1             : //* This file is part of the MOOSE framework
       2             : //* https://www.mooseframework.org
       3             : //*
       4             : //* All rights reserved, see COPYRIGHT for full restrictions
       5             : //* https://github.com/idaholab/moose/blob/master/COPYRIGHT
       6             : //*
       7             : //* Licensed under LGPL 2.1, please see LICENSE for details
       8             : //* https://www.gnu.org/licenses/lgpl-2.1.html
       9             : 
      10             : #include "CZMComputeLocalTractionIncrementalBase.h"
      11             : 
      12             : InputParameters
      13          44 : CZMComputeLocalTractionIncrementalBase::validParams()
      14             : {
      15          44 :   InputParameters params = CZMComputeLocalTractionBase::validParams();
      16             : 
      17          44 :   params.addClassDescription(
      18             :       "Base class for implementing incremental cohesive zone constituive material models");
      19          88 :   params.addRequiredCoupledVar("displacements",
      20             :                                "The string of displacements suitable for the problem statement");
      21          44 :   params.suppressParameter<bool>("use_displaced_mesh");
      22          44 :   return params;
      23           0 : }
      24             : 
      25          21 : CZMComputeLocalTractionIncrementalBase::CZMComputeLocalTractionIncrementalBase(
      26          21 :     const InputParameters & parameters)
      27             :   : CZMComputeLocalTractionBase(parameters),
      28          21 :     _interface_traction_inc(
      29          42 :         declarePropertyByName<RealVectorValue>(_base_name + "interface_traction_inc")),
      30          21 :     _interface_traction_old(
      31          21 :         getMaterialPropertyOldByName<RealVectorValue>(_base_name + "interface_traction")),
      32          21 :     _interface_displacement_jump_inc(
      33          21 :         declarePropertyByName<RealVectorValue>(_base_name + "interface_displacement_jump_inc")),
      34          21 :     _interface_displacement_jump_old(
      35          42 :         getMaterialPropertyOldByName<RealVectorValue>(_base_name + "interface_displacement_jump"))
      36             : {
      37          21 : }
      38             : 
      39             : void
      40        8944 : CZMComputeLocalTractionIncrementalBase::computeInterfaceTractionAndDerivatives()
      41             : {
      42        8944 :   _interface_displacement_jump_inc[_qp] =
      43        8944 :       _interface_displacement_jump[_qp] - _interface_displacement_jump_old[_qp];
      44        8944 :   computeInterfaceTractionIncrementAndDerivatives();
      45        8944 :   _interface_traction[_qp] = _interface_traction_inc[_qp] + _interface_traction_old[_qp];
      46        8944 : }