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