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 "SCMHTCSchadModified.h"
      11             : 
      12             : registerMooseObject("SubChannelApp", SCMHTCSchadModified);
      13             : 
      14             : InputParameters
      15          79 : SCMHTCSchadModified::validParams()
      16             : {
      17          79 :   InputParameters params = SCMHTCClosureBase::validParams();
      18          79 :   params.addClassDescription(
      19             :       "Class that computes the convective heat transfer coefficient using the "
      20             :       "Schad-Modified correlation. Only use for fuel-pins.");
      21          79 :   return params;
      22           0 : }
      23             : 
      24          44 : SCMHTCSchadModified::SCMHTCSchadModified(const InputParameters & parameters)
      25          44 :   : SCMHTCClosureBase(parameters)
      26             : {
      27             :   // Check that the correlation 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("'Schad-Modified' is not yet supported for the 'duct_htc_correlation'.");
      30          44 : }
      31             : 
      32             : Real
      33       57456 : SCMHTCSchadModified::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 (pre.poD < 1.1 || pre.poD > 1.5)
      40           0 :     flagSolutionWarning(
      41             :         "Pitch over pin diameter ratio out of range for the Schad-Modified correlation.");
      42             : 
      43       57456 :   const Real poly = -16.15 + 24.96 * pre.poD - 8.55 * Utility::pow<2>(pre.poD);
      44             :   auto NuT = 0.0;
      45       57456 :   if (Pe <= 1000 && Pe >= 150)
      46             :   {
      47        8736 :     NuT = poly * std::pow(Pe, 0.3);
      48             :   }
      49             :   else if (Pe < 150)
      50             :   {
      51       48720 :     NuT = poly * 4.496;
      52       48724 :     flagSolutionWarning(
      53             :         "Peclet number (Pe) below recommended range for the Schad-Modified correlation.");
      54             :   }
      55             :   else
      56             :   {
      57           0 :     flagSolutionWarning(
      58             :         "Peclet number (Pe) above recommended range for the Schad-Modified correlation.");
      59           0 :     NuT = poly * std::pow(Pe, 0.3);
      60             :   }
      61             : 
      62       57456 :   return blendTurbulentNusseltNumber(pre, NuT);
      63             : }