PINSFVEnergyAnisotropicDiffusion.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 "PINSFVEnergyAnisotropicDiffusion.h"
#include "INSFVEnergyVariable.h"
#include "NS.h"

registerMooseObject("NavierStokesApp", PINSFVEnergyAnisotropicDiffusion);

InputParameters
PINSFVEnergyAnisotropicDiffusion::validParams()
{
  auto params = FVFluxKernel::validParams();
  params.addClassDescription(
      "Anisotropic diffusion term in the porous media incompressible Navier-Stokes "
      "equations : -div(kappa grad(T))");
  params.addRequiredParam<MooseFunctorName>(NS::kappa, "Vector of effective thermal conductivity");
  params.addRequiredParam<MooseFunctorName>(NS::porosity, "Porosity");
  params.addParam<bool>(
      "effective_diffusivity",
      true,
      "Whether the conductivity should be multiplied by porosity, or whether the provided "
      "conductivity is an effective conductivity taking porosity effects into account");
  params.renameParam("effective_diffusivity", "effective_conductivity", "");
  MooseEnum coeff_interp_method("average harmonic", "harmonic");
  params.addParam<MooseEnum>(
      "kappa_interp_method",
      coeff_interp_method,
      "Switch that can select face interpolation method for the thermal conductivity.");

  params.set<unsigned short>("ghost_layers") = 2;
  return params;
}

PINSFVEnergyAnisotropicDiffusion::PINSFVEnergyAnisotropicDiffusion(const InputParameters & params)
  : FVFluxKernel(params),
    _k(getFunctor<ADRealVectorValue>(NS::kappa)),
    _eps(getFunctor<ADReal>(NS::porosity)),
    _porosity_factored_in(getParam<bool>("effective_conductivity")),
    _k_interp_method(
        Moose::FV::selectInterpolationMethod(getParam<MooseEnum>("kappa_interp_method")))
{
  if (!dynamic_cast<INSFVEnergyVariable *>(&_var))
    mooseError(
        "PINSFVEnergyAnisotropicDiffusion may only be used with a fluid temperature variable, "
        "of variable type INSFVEnergyVariable.");
}

ADReal
PINSFVEnergyAnisotropicDiffusion::computeQpResidual()
{
  // Interpolate thermal conductivity times porosity on the face
  ADRealVectorValue k_eps_face;
  const auto state = determineState();
  if (onBoundary(*_face_info))
  {
    const auto ssf = singleSidedFaceArg();
    k_eps_face = _porosity_factored_in ? _k(ssf, state) : _k(ssf, state) * _eps(ssf, state);
  }
  else
  {
    const auto face_elem = elemArg();
    const auto face_neighbor = neighborArg();

    const auto value1 = _porosity_factored_in ? _k(face_elem, state)
                                              : _k(face_elem, state) * _eps(face_elem, state);
    const auto value2 = _porosity_factored_in
                            ? _k(face_neighbor, state)
                            : _k(face_neighbor, state) * _eps(face_neighbor, state);

    Moose::FV::interpolate(_k_interp_method, k_eps_face, value1, value2, *_face_info, true);
  }

  // Compute the temperature gradient times the conductivity tensor
  ADRealVectorValue kappa_grad_T;
  const auto & grad_T = _var.adGradSln(*_face_info, state);
  for (std::size_t i = 0; i < LIBMESH_DIM; i++)
    kappa_grad_T(i) = k_eps_face(i) * grad_T(i);

  return -kappa_grad_T * _normal;
}