SCMHTCGraberRieger.C

Go to the documentation of this file.

//* This file is part of the MOOSE framework
//* https://mooseframework.inl.gov
//*
//* All rights reserved, see COPYRIGHT for full restrictions
//* https://github.com/idaholab/moose/blob/master/COPYRIGHT
//*
//* Licensed under LGPL 2.1, please see LICENSE for details
//* https://www.gnu.org/licenses/lgpl-2.1.html

#include "SCMHTCGraberRieger.h"

registerMooseObject("SubChannelApp", SCMHTCGraberRieger);

InputParameters
SCMHTCGraberRieger::validParams()
{
  InputParameters params = SCMHTCClosureBase::validParams();
  params.addClassDescription(
      "Class that computes the convective heat transfer coefficient using the "
      "Graber-Rieger correlation. Only use for fuel-pins.");
  return params;
}

SCMHTCGraberRieger::SCMHTCGraberRieger(const InputParameters & parameters)
  : SCMHTCClosureBase(parameters)
{
  // Check that Graber-Rieger is not used for the duct (not supported yet)
  if (const auto * duct_uo = _scm_problem.getDuctHTCClosure(); duct_uo && duct_uo == this)
    mooseError("'Graber-Rieger' is not yet supported for the 'duct_htc_correlation'.");
}

Real
SCMHTCGraberRieger::computeNusseltNumber(const FrictionStruct & /*friction_args*/,
                                         const NusseltStruct & nusselt_args) const
{
  const auto pre = computeNusseltNumberPreInfo(nusselt_args);
  const auto Pe = pre.Re * pre.Pr;
  const auto turbulent_Pe = turbulentReynoldsNumber(pre) * pre.Pr;

  if (Pe < 110 || Pe > 4300)
    flagSolutionWarning("Pe number out of range for the Graber-Rieger correlation.");

  if (pre.poD < 1.25 || pre.poD > 1.95)
    flagSolutionWarning(
        "Pitch over pin diameter ratio out of range for the Graber-Rieger correlation.");

  const auto NuT = 0.25 + 6.2 * pre.poD +
                   (-0.007 + 0.032 * pre.poD) * std::pow(turbulent_Pe, 0.8 - 0.024 * pre.poD);
  return blendTurbulentNusseltNumber(pre, NuT);
}