ComputeCosseratLinearElasticStress.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 "ComputeCosseratLinearElasticStress.h"

registerMooseObject("SolidMechanicsApp", ComputeCosseratLinearElasticStress);

InputParameters
ComputeCosseratLinearElasticStress::validParams()
{
  InputParameters params = ComputeCosseratStressBase::validParams();
  params.addClassDescription(
      "Compute Cosserat stress and couple-stress elasticity for small strains");
  return params;
}

ComputeCosseratLinearElasticStress::ComputeCosseratLinearElasticStress(
    const InputParameters & parameters)
  : ComputeCosseratStressBase(parameters),
    _elasticity_tensor_name(_base_name + "elasticity_tensor"),
    _elasticity_tensor(getMaterialPropertyByName<RankFourTensor>(_elasticity_tensor_name))
{
}

void
ComputeCosseratLinearElasticStress::initialSetup()
{
  if (hasBlockMaterialProperty<RankTwoTensor>(_base_name + "strain_increment"))
    mooseError("This linear elastic stress calculation only works for small strains");
}

void
ComputeCosseratLinearElasticStress::computeQpStress()
{
  _stress[_qp] = _elasticity_tensor[_qp] * _mechanical_strain[_qp];
  _stress_couple[_qp] = _elastic_flexural_rigidity_tensor[_qp] * _curvature[_qp];

  _elastic_strain[_qp] = _mechanical_strain[_qp];

  _Jacobian_mult[_qp] = _elasticity_tensor[_qp];
  _Jacobian_mult_couple[_qp] = _elastic_flexural_rigidity_tensor[_qp];
}