GeneralizedPlaneStrainOffDiag.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 "GeneralizedPlaneStrainOffDiag.h"
 
// MOOSE includes
#include "Assembly.h"
#include "Material.h"
#include "MooseVariable.h"
#include "MooseVariableScalar.h"
#include "RankTwoTensor.h"
#include "RankFourTensor.h"
#include "UserObject.h"
 
#include "libmesh/quadrature.h"
 
registerMooseObject("SolidMechanicsApp", GeneralizedPlaneStrainOffDiag);
 
InputParameters
GeneralizedPlaneStrainOffDiag::validParams()
{
  InputParameters params = Kernel::validParams();
  params.addClassDescription("Generalized Plane Strain kernel to provide contribution of the "
                             "out-of-plane strain to other kernels");
  params.addRequiredParam<std::vector<VariableName>>("displacements",
                                                     "Variable for the displacements");
  params.addCoupledVar("temperature", "Variable for the temperature");
 
  params.addCoupledVar("scalar_out_of_plane_strain",
                       "Scalar variable for generalized plane strain");
  MooseEnum outOfPlaneDirection("x y z", "z");
  params.addParam<MooseEnum>(
      "out_of_plane_direction", outOfPlaneDirection, "The direction of the out-of-plane strain.");
  params.addParam<UserObjectName>("subblock_index_provider",
                                  "SubblockIndexProvider user object name");
  params.addParam<unsigned int>(
      "scalar_out_of_plane_strain_index",
      "The index number of scalar_out_of_plane_strain this kernel acts on");
  params.addParam<std::string>("base_name", "Material property base name");
  params.addParam<std::vector<MaterialPropertyName>>(
      "eigenstrain_names", {}, "List of eigenstrains to be applied in this strain calculation");
 
  return params;
}
 
GeneralizedPlaneStrainOffDiag::GeneralizedPlaneStrainOffDiag(const InputParameters & parameters)
  : DerivativeMaterialInterface<Kernel>(parameters),
    _base_name(isParamValid("base_name") ? getParam<std::string>("base_name") + "_" : ""),
    _Jacobian_mult(getMaterialProperty<RankFourTensor>(_base_name + "Jacobian_mult")),
    _eigenstrain_names(getParam<std::vector<MaterialPropertyName>>("eigenstrain_names")),
    _deigenstrain_dT(_eigenstrain_names.size()),
    _scalar_out_of_plane_strain_var(coupledScalar("scalar_out_of_plane_strain")),
    _subblock_id_provider(isParamValid("subblock_index_provider")
                              ? &getUserObject<SubblockIndexProvider>("subblock_index_provider")
                              : nullptr),
    _scalar_var_id(isParamValid("scalar_out_of_plane_strain_index")
                       ? getParam<unsigned int>("scalar_out_of_plane_strain_index")
                       : 0),
    _temp_var(isCoupled("temperature") ? getVar("temperature", 0) : nullptr),
    _num_disp_var(getParam<std::vector<VariableName>>("displacements").size()),
    _scalar_out_of_plane_strain_direction(getParam<MooseEnum>("out_of_plane_direction"))
{
  const std::vector<VariableName> & nl_vnames(getParam<std::vector<VariableName>>("displacements"));
 
  if (_scalar_out_of_plane_strain_direction == 2 && _num_disp_var > 2)
    mooseError("For 1D axisymmetric or 2D cartesian simulations where the out-of-plane direction "
               "is z, the number of supplied displacements to GeneralizedPlaneStrainOffDiag must "
               "be less than three.");
  else if (_scalar_out_of_plane_strain_direction != 2 && _num_disp_var != 3)
    mooseError("For 2D cartesian simulations where the out-of-plane direction is x or y the number "
               "of supplied displacements must be three.");
 
  for (unsigned int i = 0; i < _num_disp_var; ++i)
    _disp_var.push_back(&_subproblem.getStandardVariable(_tid, nl_vnames[i]));
 
  for (unsigned int i = 0; i < _deigenstrain_dT.size(); ++i)
    _deigenstrain_dT[i] = &getMaterialPropertyDerivative<RankTwoTensor>(
        _base_name + _eigenstrain_names[i], _temp_var->name());
 
  if (isParamValid("scalar_variable_index_provider") &&
      !isParamValid("scalar_out_of_plane_strain_index"))
    paramError("scalar_out_of_plane_index",
               "scalar_out_of_plane_strain_index should be provided if more "
               "than one is available");
  if (coupledComponents("temperature") > 1)
    paramError("temperature", "Only one variable my be specified in 'temperature'");
}
 
void
GeneralizedPlaneStrainOffDiag::computeOffDiagJacobianScalar(unsigned int jvar)
{
  const unsigned int elem_scalar_var_id =
      _subblock_id_provider ? _subblock_id_provider->getSubblockIndex(*_current_elem) : 0;
 
  if (elem_scalar_var_id == _scalar_var_id)
  {
    if (_assembly.coordSystem() == Moose::COORD_RZ)
      _scalar_out_of_plane_strain_direction = 1;
 
    if (_var.number() == _disp_var[0]->number())
      computeDispOffDiagJacobianScalar(0, jvar);
    else if (_num_disp_var == 2 && _var.number() == _disp_var[1]->number())
      computeDispOffDiagJacobianScalar(1, jvar);
    else if (_temp_var && _var.number() == _temp_var->number())
      computeTempOffDiagJacobianScalar(jvar);
  }
}
 
void
GeneralizedPlaneStrainOffDiag::computeDispOffDiagJacobianScalar(unsigned int component,
                                                                unsigned int jvar)
{
  if (jvar == _scalar_out_of_plane_strain_var)
  {
    prepareMatrixTag(_assembly, _var.number(), jvar);
    MooseVariableScalar & jv = _sys.getScalarVariable(_tid, jvar);
 
    // Set appropriate components for scalar kernels, including in the cases where a planar model is
    // running in planes other than the x-y plane (defined by _out_of_plane_strain_direction).
    if (_scalar_out_of_plane_strain_direction == 0)
      component += 1;
    else if (_scalar_out_of_plane_strain_direction == 1 && component == 1)
      component += 1;
 
    for (_i = 0; _i < _test.size(); ++_i)
      for (_j = 0; _j < jv.order(); ++_j)
        for (_qp = 0; _qp < _qrule->n_points(); ++_qp)
          _local_ke(_i, _j) += _JxW[_qp] * _coord[_qp] *
                               _Jacobian_mult[_qp](_scalar_out_of_plane_strain_direction,
                                                   _scalar_out_of_plane_strain_direction,
                                                   component,
                                                   component) *
                               _grad_test[_i][_qp](component);
    accumulateTaggedLocalMatrix();
    _ke_copy = _local_ke;
 
    prepareMatrixTag(_assembly, jvar, _var.number());
    _ke_copy.get_transpose(_local_ke);
    accumulateTaggedLocalMatrix();
  }
}
 
void
GeneralizedPlaneStrainOffDiag::computeTempOffDiagJacobianScalar(unsigned int jvar)
{
  if (jvar == _scalar_out_of_plane_strain_var)
  {
    prepareMatrixTag(_assembly, _var.number(), jvar);
    MooseVariableScalar & jv = _sys.getScalarVariable(_tid, jvar);
    unsigned int n_eigenstrains = _deigenstrain_dT.size();
 
    for (_i = 0; _i < _test.size(); ++_i)
      for (_j = 0; _j < jv.order(); ++_j)
        for (_qp = 0; _qp < _qrule->n_points(); ++_qp)
          for (unsigned int ies = 0; ies < n_eigenstrains; ++ies)
            _local_ke(_i, _j) +=
                _JxW[_qp] * _coord[_qp] *
                (_Jacobian_mult[_qp] * (*_deigenstrain_dT[ies])[_qp])(
                    _scalar_out_of_plane_strain_direction, _scalar_out_of_plane_strain_direction) *
                _test[_i][_qp];
    accumulateTaggedLocalMatrix();
  }
}