CZMInterfaceKernelSmallStrain.C

Go to the documentation of this file.

//* This file is part of the MOOSE framework
//* https://mooseframework.inl.gov
//*
//* All rights reserved, see COPYRIGHT for full restrictions
//* https://github.com/idaholab/moose/blob/master/COPYRIGHT
//*
//* Licensed under LGPL 2.1, please see LICENSE for details
//* https://www.gnu.org/licenses/lgpl-2.1.html
 
#include "CZMInterfaceKernelSmallStrain.h"
 
registerMooseObject("SolidMechanicsApp", CZMInterfaceKernelSmallStrain);
 
InputParameters
CZMInterfaceKernelSmallStrain::validParams()
{
  InputParameters params = CZMInterfaceKernelBase::validParams();
 
  params.addClassDescription(
      "CZM Interface kernel to use when using the Small Strain kinematic formulation.");
 
  return params;
}
 
CZMInterfaceKernelSmallStrain::CZMInterfaceKernelSmallStrain(const InputParameters & parameters)
  : CZMInterfaceKernelBase(parameters)
{
}
 
Real
CZMInterfaceKernelSmallStrain::computeDResidualDDisplacement(
    const unsigned int & component_j, const Moose::DGJacobianType & type) const
{
  Real jac = _dtraction_djump_global[_qp](_component, component_j);
  switch (type)
  {
    case Moose::ElementElement: // Residual_sign -1  ddeltaU_ddisp sign -1;
      jac *= _test[_i][_qp] * _vars[component_j]->phiFace()[_j][_qp];
      break;
    case Moose::ElementNeighbor: // Residual_sign -1  ddeltaU_ddisp sign 1;
      jac *= -_test[_i][_qp] * _vars[component_j]->phiFaceNeighbor()[_j][_qp];
      break;
    case Moose::NeighborElement: // Residual_sign 1  ddeltaU_ddisp sign -1;
      jac *= -_test_neighbor[_i][_qp] * _vars[component_j]->phiFace()[_j][_qp];
      break;
    case Moose::NeighborNeighbor: // Residual_sign 1  ddeltaU_ddisp sign 1;
      jac *= _test_neighbor[_i][_qp] * _vars[component_j]->phiFaceNeighbor()[_j][_qp];
      break;
  }
  return jac;
}