NSSUPGMass.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 "NSSUPGMass.h"
 
registerMooseObject("NavierStokesApp", NSSUPGMass);
 
InputParameters
NSSUPGMass::validParams()
{
  // Initialize the params object from the base class
  InputParameters params = NSSUPGBase::validParams();
  params.addClassDescription(
      "Compute residual and Jacobian terms form the SUPG terms in the mass equation.");
  return params;
}
 
NSSUPGMass::NSSUPGMass(const InputParameters & parameters) : NSSUPGBase(parameters) {}
 
Real
NSSUPGMass::computeQpResidual()
{
  // From "Component SUPG contributions" section of the notes,
  // the mass equation is stabilized by taum and the gradient of
  // phi_i dotted with the momentum equation strong residuals.
  // Note that the momentum equation strong residuals are stored
  // in entries 1,2,3 of the "_strong_residuals" vector, regardless
  // of what dimension we're solving in.
  RealVectorValue Ru(
      _strong_residuals[_qp][1], _strong_residuals[_qp][2], _strong_residuals[_qp][3]);
 
  // Separate variable just for printing purposes...
  Real result = _taum[_qp] * (Ru * _grad_test[_i][_qp]);
 
  return result;
}
 
Real
NSSUPGMass::computeQpJacobian()
{
  // This is the density equation, so pass the on-diagonal variable number
  return computeJacobianHelper(_rho_var_number);
}
 
Real
NSSUPGMass::computeQpOffDiagJacobian(unsigned int jvar)
{
  return computeJacobianHelper(jvar);
}
 
Real
NSSUPGMass::computeJacobianHelper(unsigned var)
{
  if (isNSVariable(var))
  {
 
    // Convert the Moose numbering to canonical NS variable numbering.
    unsigned m = mapVarNumber(var);
 
    // Time derivative contributions only for momentum
    Real time_part = 0.;
 
    // The derivative of "udot" wrt u for each of the momentum variables.
    // This is always 1/dt unless you are using BDF2...
    Real d_udot_du[3] = {_d_rhoudot_du[_qp], _d_rhovdot_du[_qp], _d_rhowdot_du[_qp]};
 
    switch (m)
    {
      case 1:
      case 2:
      case 3:
        // time_part = _grad_test[_i][_qp](m-1) * (_phi[_j][_qp]/_subproblem.parent()->dt());
        time_part = _grad_test[_i][_qp](m - 1) * (_phi[_j][_qp] * d_udot_du[m - 1]);
        break;
    }
 
    // Store result so we can print it before returning
    Real result =
        _taum[_qp] * (time_part + _grad_test[_i][_qp] * (_calA[_qp][m] * _grad_phi[_j][_qp]));
 
    return result;
  }
  else
    return 0.0;
}