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 "SCMHTCGraberRieger.h"
      11             : 
      12             : registerMooseObject("SubChannelApp", SCMHTCGraberRieger);
      13             : 
      14             : InputParameters
      15          79 : SCMHTCGraberRieger::validParams()
      16             : {
      17          79 :   InputParameters params = SCMHTCClosureBase::validParams();
      18          79 :   params.addClassDescription(
      19             :       "Class that computes the convective heat transfer coefficient using the "
      20             :       "Graber-Rieger correlation. Only use for fuel-pins.");
      21          79 :   return params;
      22           0 : }
      23             : 
      24          44 : SCMHTCGraberRieger::SCMHTCGraberRieger(const InputParameters & parameters)
      25          44 :   : SCMHTCClosureBase(parameters)
      26             : {
      27             :   // Check that Graber-Rieger is not used for the duct (not supported yet)
      28          44 :   if (const auto * duct_uo = _scm_problem.getDuctHTCClosure(); duct_uo && duct_uo == this)
      29           0 :     mooseError("'Graber-Rieger' is not yet supported for the 'duct_htc_correlation'.");
      30          44 : }
      31             : 
      32             : Real
      33       57456 : SCMHTCGraberRieger::computeNusseltNumber(const FrictionStruct & /*friction_args*/,
      34             :                                          const NusseltStruct & nusselt_args) const
      35             : {
      36       57456 :   const auto pre = computeNusseltNumberPreInfo(nusselt_args);
      37       57456 :   const auto Pe = pre.Re * pre.Pr;
      38             : 
      39       57456 :   if (Pe < 110 || Pe > 4300)
      40           0 :     flagSolutionWarning("Pe number out of range for the Graber-Rieger correlation.");
      41             : 
      42       57456 :   if (pre.poD < 1.25 || pre.poD > 1.95)
      43           0 :     flagSolutionWarning(
      44             :         "Pitch over pin diameter ratio out of range for the Graber-Rieger correlation.");
      45             : 
      46             :   const auto NuT =
      47       57456 :       0.25 + 6.2 * pre.poD + (-0.007 + 0.032 * pre.poD) * std::pow(Pe, 0.8 - 0.024 * pre.poD);
      48       57456 :   return blendTurbulentNusseltNumber(pre, NuT);
      49             : }