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 "HSCoupler2D2DRadiationRZBC.h"
      11             : #include "HSCoupler2D2DRadiationUserObject.h"
      12             : 
      13             : registerMooseObject("ThermalHydraulicsApp", HSCoupler2D2DRadiationRZBC);
      14             : 
      15             : InputParameters
      16         136 : HSCoupler2D2DRadiationRZBC::validParams()
      17             : {
      18         136 :   InputParameters params = ADIntegratedBC::validParams();
      19         136 :   params += RZSymmetry::validParams();
      20             : 
      21         272 :   params.addRequiredParam<UserObjectName>("hs_coupler_2d2d_uo",
      22             :                                           "The HSCoupler2D2DRadiation user object");
      23         136 :   params.addClassDescription("Adds boundary heat flux terms for HSCoupler2D2DRadiation");
      24             : 
      25         136 :   return params;
      26           0 : }
      27             : 
      28          72 : HSCoupler2D2DRadiationRZBC::HSCoupler2D2DRadiationRZBC(const InputParameters & parameters)
      29             :   : ADIntegratedBC(parameters),
      30             :     RZSymmetry(this, parameters),
      31             : 
      32          72 :     _hs_coupler_2d2d_uo(getUserObject<HSCoupler2D2DRadiationUserObject>("hs_coupler_2d2d_uo"))
      33             : {
      34          72 : }
      35             : 
      36             : ADReal
      37      180800 : HSCoupler2D2DRadiationRZBC::computeQpResidual()
      38             : {
      39      180800 :   return _hs_coupler_2d2d_uo.getHeatFlux(_current_elem->id())[_qp] *
      40      180800 :          computeCircumference(_q_point[_qp]) * _test[_i][_qp];
      41             : }