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