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 "ConcreteThermalConduction.h"
      16             : #include "Material.h"
      17             : 
      18             : registerMooseObject("BlackBearApp", ConcreteThermalConduction);
      19             : 
      20             : InputParameters
      21         418 : ConcreteThermalConduction::validParams()
      22             : {
      23         418 :   InputParameters params = Diffusion::validParams();
      24         836 :   params.addParam<std::string>("property_name", "thermal_conductivity", "Thermal conductivity");
      25         418 :   params.addClassDescription("Conduction term for thermal transport in concrete.");
      26         418 :   return params;
      27           0 : }
      28             : 
      29         220 : ConcreteThermalConduction::ConcreteThermalConduction(const InputParameters & parameters)
      30         440 :   : Diffusion(parameters), _thermal_conductivity(getMaterialProperty<Real>("thermal_conductivity"))
      31             : {
      32         220 : }
      33             : 
      34             : Real
      35     2561328 : ConcreteThermalConduction::computeQpResidual()
      36             : {
      37             :   // We're dereferencing the _diffusivity pointer to get to the
      38             :   // material properties vector... which gives us one property
      39             :   // value per quadrature point.
      40             : 
      41             :   // Also... we're reusing the Diffusion Kernel's residual
      42             :   // so that we don't have to recode that.
      43             :   //  if (_u[_qp]>=0.0)
      44     2561328 :   return _thermal_conductivity[_qp] * Diffusion::computeQpResidual();
      45             : }
      46             : 
      47             : Real
      48      815584 : ConcreteThermalConduction::computeQpJacobian()
      49             : {
      50             :   // We're dereferencing the _diffusivity pointer to get to the
      51             :   // material properties vector... which gives us one property
      52             :   // value per quadrature point.
      53             : 
      54             :   // Also... we're reusing the Diffusion Kernel's residual
      55             :   // so that we don't have to recode that.
      56      815584 :   return _thermal_conductivity[_qp] * Diffusion::computeQpJacobian();
      57             : }
      58             : 
      59             : Real
      60      807520 : ConcreteThermalConduction::computeQpOffDiagJacobian(unsigned int /*jvar*/)
      61             : {
      62      807520 :   return 0.0;
      63             : }