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 "ADConvectionHeatFluxHSMaterial.h"
      11             : 
      12             : registerMooseObject("ThermalHydraulicsApp", ADConvectionHeatFluxHSMaterial);
      13             : 
      14             : InputParameters
      15          85 : ADConvectionHeatFluxHSMaterial::validParams()
      16             : {
      17          85 :   InputParameters params = Material::validParams();
      18             : 
      19         170 :   params.addRequiredParam<MaterialPropertyName>("q_wall", "Wall heat flux material property");
      20         170 :   params.addRequiredParam<MaterialPropertyName>("T", "Fluid phase temperature material property");
      21         170 :   params.addRequiredParam<MaterialPropertyName>("T_wall", "Wall temperature material property");
      22         170 :   params.addRequiredParam<MaterialPropertyName>(
      23             :       "htc_wall", "Fluid phase wall heat transfer coefficient material property");
      24         170 :   params.addRequiredParam<MaterialPropertyName>(
      25             :       "kappa", "Fluid phase wall contact fraction material property");
      26             : 
      27          85 :   params.addClassDescription(
      28             :       "Computes heat flux from convection with heat structure for a given fluid phase.");
      29             : 
      30          85 :   return params;
      31           0 : }
      32             : 
      33          66 : ADConvectionHeatFluxHSMaterial::ADConvectionHeatFluxHSMaterial(const InputParameters & parameters)
      34             :   : Material(parameters),
      35             : 
      36          66 :     _q_wall(declareADProperty<Real>(getParam<MaterialPropertyName>("q_wall"))),
      37         132 :     _T(getADMaterialProperty<Real>("T")),
      38         132 :     _T_wall(getADMaterialProperty<Real>("T_wall")),
      39         132 :     _htc_wall(getADMaterialProperty<Real>("htc_wall")),
      40         198 :     _kappa(getADMaterialProperty<Real>("kappa"))
      41             : {
      42          66 : }
      43             : 
      44             : void
      45           9 : ADConvectionHeatFluxHSMaterial::computeQpProperties()
      46             : {
      47          27 :   _q_wall[_qp] = _kappa[_qp] * _htc_wall[_qp] * (_T_wall[_qp] - _T[_qp]);
      48           9 : }