INSADSmagorinskyEddyViscosity.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 "INSADSmagorinskyEddyViscosity.h"

registerMooseObject("NavierStokesApp", INSADSmagorinskyEddyViscosity);

InputParameters
INSADSmagorinskyEddyViscosity::validParams()
{
  InputParameters params = ADVectorKernelGrad::validParams();
  params.addClassDescription("Computes eddy viscosity term using Smagorinky's LES model");
  params.addParam<Real>("smagorinsky_constant", 0.18, "Value of Smagorinsky's constant to use");
  params.addParam<MaterialPropertyName>(
      "rho_name", "rho", "The name of the density material property");
  return params;
}

INSADSmagorinskyEddyViscosity::INSADSmagorinskyEddyViscosity(const InputParameters & parameters)
  : ADVectorKernelGrad(parameters),
    _rho(getADMaterialProperty<Real>("rho_name")),
    _smagorinsky_constant(getParam<Real>("smagorinsky_constant"))
{
}

ADRealTensorValue
INSADSmagorinskyEddyViscosity::precomputeQpResidual()
{
  using std::sqrt, std::pow;

  constexpr Real offset = 1e-15; // prevents explosion of sqrt(x) derivative to infinity
  const ADReal strain_rate_tensor_mag =
      sqrt(2.0 * Utility::pow<2>(_grad_u[_qp](0, 0)) + 2.0 * Utility::pow<2>(_grad_u[_qp](1, 1)) +
           2.0 * Utility::pow<2>(_grad_u[_qp](2, 2)) +
           Utility::pow<2>(_grad_u[_qp](0, 2) + _grad_u[_qp](2, 0)) +
           Utility::pow<2>(_grad_u[_qp](0, 1) + _grad_u[_qp](1, 0)) +
           Utility::pow<2>(_grad_u[_qp](1, 2) + _grad_u[_qp](2, 1)) + offset);
  constexpr Real one_third = 1.0 / 3.0;
  return strain_rate_tensor_mag *
         Utility::pow<2>(_smagorinsky_constant * pow(_current_elem_volume, one_third) /
                         _current_elem->default_order()) *
         _rho[_qp] * _grad_u[_qp];
}