Line data    Source code

       1             : //* This file is part of the MOOSE framework
       2             : //* https://www.mooseframework.org
       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 "ComputeRSphericalSmallStrain.h"
      11             : #include "Assembly.h"
      12             : 
      13             : #include "libmesh/quadrature.h"
      14             : 
      15             : registerMooseObject("TensorMechanicsApp", ComputeRSphericalSmallStrain);
      16             : 
      17             : InputParameters
      18          36 : ComputeRSphericalSmallStrain::validParams()
      19             : {
      20          36 :   InputParameters params = ComputeSmallStrain::validParams();
      21          36 :   params.addClassDescription("Compute a small strain 1D spherical symmetry case.");
      22          36 :   return params;
      23           0 : }
      24             : 
      25          27 : ComputeRSphericalSmallStrain::ComputeRSphericalSmallStrain(const InputParameters & parameters)
      26          27 :   : ComputeSmallStrain(parameters)
      27             : {
      28          27 : }
      29             : 
      30             : void
      31         292 : ComputeRSphericalSmallStrain::computeProperties()
      32             : {
      33         864 :   for (_qp = 0; _qp < _qrule->n_points(); ++_qp)
      34             :   {
      35         572 :     _total_strain[_qp](0, 0) = (*_grad_disp[0])[_qp](0);
      36             : 
      37         572 :     if (_q_point[_qp](0) != 0.0)
      38         572 :       _total_strain[_qp](1, 1) = (*_disp[0])[_qp] / _q_point[_qp](0);
      39             : 
      40             :     else
      41           0 :       _total_strain[_qp](1, 1) = 0.0;
      42             : 
      43             :     // \epsilon_{\theta \theta} = \epsilon{\phi \phi} in this 1D spherical system
      44         572 :     _total_strain[_qp](2, 2) = _total_strain[_qp](1, 1);
      45             : 
      46         572 :     _mechanical_strain[_qp] = _total_strain[_qp];
      47             : 
      48             :     // Remove the eigenstrains
      49         572 :     for (auto es : _eigenstrains)
      50           0 :       _mechanical_strain[_qp] -= (*es)[_qp];
      51             :   }
      52         292 : }