Line data Source code
1 : //* This file is part of the MOOSE framework 2 : //* https://mooseframework.inl.gov 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 "ADComputeAxisymmetricRZFiniteStrain.h" 11 : #include "Assembly.h" 12 : #include "FEProblem.h" 13 : #include "MooseMesh.h" 14 : 15 : registerMooseObject("SolidMechanicsApp", ADComputeAxisymmetricRZFiniteStrain); 16 : 17 : InputParameters 18 312 : ADComputeAxisymmetricRZFiniteStrain::validParams() 19 : { 20 312 : InputParameters params = ADCompute2DFiniteStrain::validParams(); 21 312 : params.addClassDescription( 22 : "Compute a strain increment for finite strains under axisymmetric assumptions."); 23 312 : return params; 24 0 : } 25 : 26 234 : ADComputeAxisymmetricRZFiniteStrain::ADComputeAxisymmetricRZFiniteStrain( 27 234 : const InputParameters & parameters) 28 234 : : ADCompute2DFiniteStrain(parameters), _disp_old_0(coupledValueOld("displacements", 0)) 29 : { 30 234 : } 31 : 32 : void 33 234 : ADComputeAxisymmetricRZFiniteStrain::initialSetup() 34 : { 35 234 : ADCompute2DFiniteStrain::initialSetup(); 36 : 37 234 : if (getBlockCoordSystem() != Moose::COORD_RZ) 38 0 : mooseError("The coordinate system must be set to RZ for Axisymmetric geometries."); 39 : 40 234 : if (_out_of_plane_direction != 2) 41 0 : paramError("out_of_plane_direction", 42 : "The out-of-plane direction for axisymmetric systems is currently restricted to z"); 43 234 : } 44 : 45 : ADReal 46 2305664 : ADComputeAxisymmetricRZFiniteStrain::computeOutOfPlaneGradDisp() 47 : { 48 2305664 : if (!MooseUtils::absoluteFuzzyEqual(_q_point[_qp](0), 0.0)) 49 2305616 : return (*_disp[0])[_qp] / _q_point[_qp](0); 50 : else 51 48 : return 0.0; 52 : } 53 : 54 : Real 55 2305664 : ADComputeAxisymmetricRZFiniteStrain::computeOutOfPlaneGradDispOld() 56 : { 57 2305664 : if (!MooseUtils::absoluteFuzzyEqual(_q_point[_qp](0), 0.0)) 58 2305616 : return _disp_old_0[_qp] / _q_point[_qp](0); 59 : else 60 : return 0.0; 61 : }