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 "ConcreteMoistureDiffusion.h"
      16             : #include "Material.h"
      17             : 
      18             : registerMooseObject("BlackBearApp", ConcreteMoistureDiffusion);
      19             : 
      20             : InputParameters
      21         418 : ConcreteMoistureDiffusion::validParams()
      22             : {
      23         418 :   InputParameters params = Diffusion::validParams();
      24         836 :   params.addCoupledVar("temperature", 0.0, "Temperature");
      25         418 :   params.addClassDescription(
      26             :       "Fickian and Soret diffusion terms for moisture transfer in concrete.");
      27         418 :   return params;
      28           0 : }
      29             : 
      30         220 : ConcreteMoistureDiffusion::ConcreteMoistureDiffusion(const InputParameters & parameters)
      31             :   : Diffusion(parameters),
      32         220 :     _Dh(getMaterialProperty<Real>("humidity_diffusivity")),
      33         440 :     _Dht(getMaterialProperty<Real>("humidity_diffusivity_thermal")),
      34         440 :     _grad_T(coupledGradient("temperature"))
      35             : {
      36         220 : }
      37             : 
      38             : Real
      39     2561328 : ConcreteMoistureDiffusion::computeQpResidual()
      40             : {
      41     2561328 :   return _Dh[_qp] * Diffusion::computeQpResidual() + _Dht[_qp] * _grad_test[_i][_qp] * _grad_T[_qp];
      42             : }
      43             : 
      44             : Real
      45      815584 : ConcreteMoistureDiffusion::computeQpJacobian()
      46             : {
      47      815584 :   return _Dh[_qp] * Diffusion::computeQpJacobian();
      48             : }
      49             : 
      50             : Real
      51      807520 : ConcreteMoistureDiffusion::computeQpOffDiagJacobian(unsigned int /*jvar*/)
      52             : {
      53      807520 :   return 0.0;
      54             : }