ADComputeRSphericalFiniteStrain.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 "ADComputeRSphericalFiniteStrain.h"
#include "Assembly.h"
#include "FEProblem.h"
#include "MooseMesh.h"
 
#include "libmesh/quadrature.h"
 
registerMooseObject("SolidMechanicsApp", ADComputeRSphericalFiniteStrain);
 
InputParameters
ADComputeRSphericalFiniteStrain::validParams()
{
  InputParameters params = ADComputeFiniteStrain::validParams();
  params.addClassDescription("Compute a strain increment and rotation increment for finite strains "
                             "in 1D spherical symmetry problems.");
  return params;
}
 
ADComputeRSphericalFiniteStrain::ADComputeRSphericalFiniteStrain(const InputParameters & parameters)
  : ADComputeFiniteStrain(parameters), _disp_old_0(coupledValueOld("displacements", 0))
{
}
 
void
ADComputeRSphericalFiniteStrain::initialSetup()
{
  ADComputeIncrementalStrainBase::initialSetup();
 
  const auto & subdomainIDs = _mesh.meshSubdomains();
  for (auto subdomainID : subdomainIDs)
    if (_fe_problem.getCoordSystem(subdomainID) != Moose::COORD_RSPHERICAL)
      mooseError("The coordinate system must be set to RSPHERICAL for 1D R spherical simulations.");
}
 
void
ADComputeRSphericalFiniteStrain::computeProperties()
{
  for (_qp = 0; _qp < _qrule->n_points(); ++_qp)
  {
    // Deformation gradient calculation in cylindrical coordinates
    ADRankTwoTensor A;  // Deformation gradient
    RankTwoTensor Fbar; // Old Deformation gradient
 
    // Step through calculating the current and old deformation gradients
    // Only diagonal components are nonzero because this is a 1D material
    // Note: x_disp is the radial displacement
    A(0, 0) = (*_grad_disp[0])[_qp](0);
    Fbar(0, 0) = (*_grad_disp_old[0])[_qp](0);
 
    // The polar and azimuthal strains are functions of radial displacement
    if (!MooseUtils::relativeFuzzyEqual(_q_point[_qp](0), 0.0))
    {
      A(1, 1) = (*_disp[0])[_qp] / _q_point[_qp](0);
      Fbar(1, 1) = _disp_old_0[_qp] / _q_point[_qp](0);
    }
 
    // The polar and azimuthal strains are equivalent in this 1D problem
    A(2, 2) = A(1, 1);
    Fbar(2, 2) = Fbar(1, 1);
 
    // very nearly A = gradU - gradUold, adapted to cylindrical coords
    A -= Fbar;
 
    // Fbar = ( I + gradUold)
    Fbar.addIa(1.0);
 
    // Incremental deformation gradient _Fhat = I + A Fbar^-1
    _Fhat[_qp] = A * Fbar.inverse();
    _Fhat[_qp].addIa(1.0);
 
    computeQpStrain();
  }
}