PorousFlowMassFraction.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 "PorousFlowMassFraction.h"
 
registerMooseObject("PorousFlowApp", PorousFlowMassFraction);
registerMooseObject("PorousFlowApp", ADPorousFlowMassFraction);
 
template <bool is_ad>
InputParameters
PorousFlowMassFractionTempl<is_ad>::validParams()
{
  InputParameters params = PorousFlowMaterialVectorBase::validParams();
  params.addCoupledVar(
      "mass_fraction_vars",
      "List of variables that represent the mass fractions.  Format is 'f_ph0^c0 "
      "f_ph0^c1 f_ph0^c2 ... f_ph0^c(N-2) f_ph1^c0 f_ph1^c1 fph1^c2 ... "
      "fph1^c(N-2) ... fphP^c0 f_phP^c1 fphP^c2 ... fphP^c(N-2)' where "
      "N=num_components and P=num_phases, and it is assumed that "
      "f_ph^c(N-1)=1-sum(f_ph^c,{c,0,N-2}) so that f_ph^c(N-1) need not be given.  If no "
      "variables are provided then num_phases=1=num_components.");
  params.addPrivateParam<std::string>("pf_material_type", "mass_fraction");
  params.addClassDescription("This Material forms a std::vector<std::vector ...> of mass-fractions "
                             "out of the individual mass fractions");
  return params;
}
 
template <bool is_ad>
PorousFlowMassFractionTempl<is_ad>::PorousFlowMassFractionTempl(const InputParameters & parameters)
  : PorousFlowMaterialVectorBase(parameters),
    _mass_frac(_nodal_material ? declareGenericProperty<std::vector<std::vector<Real>>, is_ad>(
                                     "PorousFlow_mass_frac_nodal")
                               : declareGenericProperty<std::vector<std::vector<Real>>, is_ad>(
                                     "PorousFlow_mass_frac_qp")),
    _grad_mass_frac(_nodal_material
                        ? nullptr
                        : &declareGenericProperty<std::vector<std::vector<RealGradient>>, is_ad>(
                              "PorousFlow_grad_mass_frac_qp")),
    _dmass_frac_dvar(is_ad ? nullptr
                     : _nodal_material
                         ? &declareProperty<std::vector<std::vector<std::vector<Real>>>>(
                               "dPorousFlow_mass_frac_nodal_dvar")
                         : &declareProperty<std::vector<std::vector<std::vector<Real>>>>(
                               "dPorousFlow_mass_frac_qp_dvar")),
    _num_passed_mf_vars(isParamValid("mass_fraction_vars") ? coupledComponents("mass_fraction_vars")
                                                           : 0)
{
  if (_num_phases < 1 || _num_components < 1)
    mooseError("PorousFlowMassFraction: The Dictator proclaims that the number of phases is ",
               _num_phases,
               " and the number of components is ",
               _num_components,
               ", and stipulates that you should not use PorousFlowMassFraction in this case");
 
  if (_num_passed_mf_vars != _num_phases * (_num_components - 1))
    paramError("mass_fraction_vars",
               "This value must be equal to the Dictator's num_phases (",
               _num_phases,
               ") multiplied by num_components-1 (",
               _num_components - 1,
               ")");
 
  _mf_vars_num.resize(_num_passed_mf_vars);
  _mf_vars.resize(_num_passed_mf_vars);
  _grad_mf_vars.resize(_num_passed_mf_vars);
  for (unsigned i = 0; i < _num_passed_mf_vars; ++i)
  {
    // If mass_fraction_vars are elemental AuxVariables (or constants), we want to use
    // coupledGenericValue() rather than coupledGenericDofValue()
    const bool is_nodal =
        isCoupled("mass_fraction_vars") ? getFieldVar("mass_fraction_vars", i)->isNodal() : false;
 
    _mf_vars_num[i] = coupled("mass_fraction_vars", i);
    _mf_vars[i] =
        (_nodal_material && is_nodal ? &coupledGenericDofValue<is_ad>("mass_fraction_vars", i)
                                     : &coupledGenericValue<is_ad>("mass_fraction_vars", i));
    _grad_mf_vars[i] = &coupledGenericGradient<is_ad>("mass_fraction_vars", i);
  }
}
 
template <bool is_ad>
void
PorousFlowMassFractionTempl<is_ad>::initQpStatefulProperties()
{
  // all we need to do is compute _mass_frac for _nodal_materials
  // but the following avoids code duplication
  computeQpProperties();
}
 
template <bool is_ad>
void
PorousFlowMassFractionTempl<is_ad>::computeQpProperties()
{
  // size all properties correctly
  _mass_frac[_qp].resize(_num_phases);
 
  if (!is_ad)
    (*_dmass_frac_dvar)[_qp].resize(_num_phases);
 
  if (!_nodal_material)
    (*_grad_mass_frac)[_qp].resize(_num_phases);
 
  for (unsigned int ph = 0; ph < _num_phases; ++ph)
  {
    _mass_frac[_qp][ph].resize(_num_components);
 
    if (!is_ad)
    {
      (*_dmass_frac_dvar)[_qp][ph].resize(_num_components);
      for (unsigned int comp = 0; comp < _num_components; ++comp)
        (*_dmass_frac_dvar)[_qp][ph][comp].assign(_num_var, 0.0);
    }
 
    if (!_nodal_material)
      (*_grad_mass_frac)[_qp][ph].resize(_num_components);
  }
 
  // compute the values and derivatives
  unsigned int i = 0;
  for (unsigned int ph = 0; ph < _num_phases; ++ph)
  {
    GenericReal<is_ad> total_mass_frac = 0;
 
    if (!_nodal_material)
      (*_grad_mass_frac)[_qp][ph][_num_components - 1] = 0.0;
 
    for (unsigned int comp = 0; comp < _num_components - 1; ++comp)
    {
      _mass_frac[_qp][ph][comp] = (*_mf_vars[i])[_qp];
      total_mass_frac += _mass_frac[_qp][ph][comp];
 
      if (!_nodal_material)
      {
        (*_grad_mass_frac)[_qp][ph][comp] = (*_grad_mf_vars[i])[_qp];
        (*_grad_mass_frac)[_qp][ph][_num_components - 1] -= (*_grad_mf_vars[i])[_qp];
      }
 
      if (!is_ad && _dictator.isPorousFlowVariable(_mf_vars_num[i]))
      {
        // _mf_vars[i] is a PorousFlow variable
        const unsigned int pf_var_num = _dictator.porousFlowVariableNum(_mf_vars_num[i]);
        (*_dmass_frac_dvar)[_qp][ph][comp][pf_var_num] = 1.0;
        (*_dmass_frac_dvar)[_qp][ph][_num_components - 1][pf_var_num] = -1.0;
      }
      i++;
    }
 
    _mass_frac[_qp][ph][_num_components - 1] = 1.0 - total_mass_frac;
  }
}
 
template class PorousFlowMassFractionTempl<false>;
template class PorousFlowMassFractionTempl<true>;