Line data    Source code

       1             : /****************************************************************/
       2             : /*               DO NOT MODIFY THIS HEADER                      */
       3             : /*                       BlackBear                              */
       4             : /*                                                              */
       5             : /*           (c) 2017 Battelle Energy Alliance, LLC             */
       6             : /*                   ALL RIGHTS RESERVED                        */
       7             : /*                                                              */
       8             : /*          Prepared by Battelle Energy Alliance, LLC           */
       9             : /*            Under Contract No. DE-AC07-05ID14517              */
      10             : /*            With the U. S. Department of Energy               */
      11             : /*                                                              */
      12             : /*            See COPYRIGHT for full restrictions               */
      13             : /****************************************************************/
      14             : 
      15             : #include "ConcreteMoistureTimeIntegrationMassLumped.h"
      16             : 
      17             : registerMooseObject("BlackBearApp", ConcreteMoistureTimeIntegrationMassLumped);
      18             : 
      19             : InputParameters
      20         364 : ConcreteMoistureTimeIntegrationMassLumped::validParams()
      21             : {
      22         364 :   InputParameters params = MassLumpedTimeDerivative::validParams();
      23         364 :   params.addClassDescription(
      24             :       "Time derivative term with mass lumping for moisture transport in concrete.");
      25         364 :   return params;
      26           0 : }
      27             : 
      28         192 : ConcreteMoistureTimeIntegrationMassLumped::ConcreteMoistureTimeIntegrationMassLumped(
      29         192 :     const InputParameters & parameters)
      30             :   : MassLumpedTimeDerivative(parameters),
      31         192 :     _moisture_capacity(hasMaterialProperty<Real>("moisture_capacity")
      32         548 :                            ? &getMaterialProperty<Real>("moisture_capacity")
      33         192 :                            : nullptr)
      34             : {
      35         192 : }
      36             : 
      37             : Real
      38     1257536 : ConcreteMoistureTimeIntegrationMassLumped::computeQpResidual()
      39             : {
      40     1257536 :   if (_moisture_capacity)
      41      638960 :     return (*_moisture_capacity)[_qp] * MassLumpedTimeDerivative::computeQpResidual();
      42             :   else
      43      618576 :     return MassLumpedTimeDerivative::computeQpResidual();
      44             : }
      45             : 
      46             : Real
      47      200368 : ConcreteMoistureTimeIntegrationMassLumped::computeQpJacobian()
      48             : {
      49      200368 :   if (_moisture_capacity)
      50      102144 :     return (*_moisture_capacity)[_qp] * MassLumpedTimeDerivative::computeQpJacobian();
      51             :   else
      52       98224 :     return MassLumpedTimeDerivative::computeQpJacobian();
      53             : }