Line data    Source code

       1             : //* This file is part of the MOOSE framework
       2             : //* https://mooseframework.inl.gov
       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         102 : CZMComputeLocalTractionIncrementalBase::validParams()
      14             : {
      15         102 :   InputParameters params = CZMComputeLocalTractionBase::validParams();
      16             : 
      17         102 :   params.addClassDescription(
      18             :       "Base class for implementing incremental cohesive zone constituive material models");
      19         204 :   params.addRequiredCoupledVar("displacements",
      20             :                                "The string of displacements suitable for the problem statement");
      21         102 :   params.suppressParameter<bool>("use_displaced_mesh");
      22         102 :   return params;
      23           0 : }
      24             : 
      25          49 : CZMComputeLocalTractionIncrementalBase::CZMComputeLocalTractionIncrementalBase(
      26          49 :     const InputParameters & parameters)
      27             :   : CZMComputeLocalTractionBase(parameters),
      28          49 :     _interface_traction_inc(
      29          98 :         declarePropertyByName<RealVectorValue>(_base_name + "interface_traction_inc")),
      30          49 :     _interface_traction_old(
      31          49 :         getMaterialPropertyOldByName<RealVectorValue>(_base_name + "interface_traction")),
      32          49 :     _interface_displacement_jump_inc(
      33          49 :         declarePropertyByName<RealVectorValue>(_base_name + "interface_displacement_jump_inc")),
      34          49 :     _interface_displacement_jump_old(
      35          98 :         getMaterialPropertyOldByName<RealVectorValue>(_base_name + "interface_displacement_jump"))
      36             : {
      37          49 : }
      38             : 
      39             : void
      40       20888 : CZMComputeLocalTractionIncrementalBase::computeInterfaceTractionAndDerivatives()
      41             : {
      42       20888 :   _interface_displacement_jump_inc[_qp] =
      43       20888 :       _interface_displacement_jump[_qp] - _interface_displacement_jump_old[_qp];
      44       20888 :   computeInterfaceTractionIncrementAndDerivatives();
      45       20888 :   _interface_traction[_qp] = _interface_traction_inc[_qp] + _interface_traction_old[_qp];
      46       20888 : }