PorousFlowJoiner.C

Go to the documentation of this file.

//* This file is part of the MOOSE framework
//* https://www.mooseframework.org
//*
//* 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 "PorousFlowJoiner.h"
#include "Conversion.h"
 
registerMooseObject("PorousFlowApp", PorousFlowJoiner);
 
template <>
InputParameters
validParams<PorousFlowJoiner>()
{
  InputParameters params = validParams<PorousFlowMaterialVectorBase>();
  params.addRequiredParam<std::string>("material_property",
                                       "The property that you want joined into a std::vector");
  params.set<std::string>("pf_material_type") = "joiner";
  params.addClassDescription("This Material forms a std::vector of properties, old properties "
                             "(optionally), and derivatives, out of the individual phase "
                             "properties");
  return params;
}
 
PorousFlowJoiner::PorousFlowJoiner(const InputParameters & parameters)
  : PorousFlowMaterialVectorBase(parameters),
    _pf_prop(getParam<std::string>("material_property")),
    _dporepressure_dvar(!_nodal_material ? getMaterialProperty<std::vector<std::vector<Real>>>(
                                               "dPorousFlow_porepressure_qp_dvar")
                                         : getMaterialProperty<std::vector<std::vector<Real>>>(
                                               "dPorousFlow_porepressure_nodal_dvar")),
    _dsaturation_dvar(!_nodal_material ? getMaterialProperty<std::vector<std::vector<Real>>>(
                                             "dPorousFlow_saturation_qp_dvar")
                                       : getMaterialProperty<std::vector<std::vector<Real>>>(
                                             "dPorousFlow_saturation_nodal_dvar")),
    _dtemperature_dvar(
        !_nodal_material
            ? getMaterialProperty<std::vector<Real>>("dPorousFlow_temperature_qp_dvar")
            : getMaterialProperty<std::vector<Real>>("dPorousFlow_temperature_nodal_dvar")),
    _property(declareProperty<std::vector<Real>>(_pf_prop)),
    _dproperty_dvar(declareProperty<std::vector<std::vector<Real>>>("d" + _pf_prop + "_dvar"))
{
  _phase_property.resize(_num_phases);
  _dphase_property_dp.resize(_num_phases);
  _dphase_property_ds.resize(_num_phases);
  _dphase_property_dt.resize(_num_phases);
 
  for (unsigned int ph = 0; ph < _num_phases; ++ph)
  {
    std::string phase = Moose::stringify(ph);
    _phase_property[ph] = &getMaterialProperty<Real>(_pf_prop + phase);
    _dphase_property_dp[ph] =
        &getMaterialPropertyDerivative<Real>(_pf_prop + phase, _pressure_variable_name);
    _dphase_property_ds[ph] =
        &getMaterialPropertyDerivative<Real>(_pf_prop + phase, _saturation_variable_name);
    _dphase_property_dt[ph] =
        &getMaterialPropertyDerivative<Real>(_pf_prop + phase, _temperature_variable_name);
  }
}
 
void
PorousFlowJoiner::initQpStatefulProperties()
{
  _property[_qp].resize(_num_phases);
 
  for (unsigned int ph = 0; ph < _num_phases; ++ph)
    _property[_qp][ph] = (*_phase_property[ph])[_qp];
}
 
void
PorousFlowJoiner::computeQpProperties()
{
  initQpStatefulProperties();
 
  _dproperty_dvar[_qp].resize(_num_phases);
  for (unsigned int ph = 0; ph < _num_phases; ++ph)
  {
    _dproperty_dvar[_qp][ph].resize(_num_var);
    for (unsigned v = 0; v < _num_var; ++v)
    {
      // the "if" conditions in the following are because a nodal_material's derivatives might
      // not have been defined.  If that is the case, then DerivativeMaterial passes back a
      // MaterialProperty with zeroes (for the derivatives), but that property will be sized
      // by the number of quadpoints in the element, which may be smaller than the number of
      // nodes!
      _dproperty_dvar[_qp][ph][v] = 0.0;
      if ((*_dphase_property_dp[ph]).size() > _qp)
        _dproperty_dvar[_qp][ph][v] +=
            (*_dphase_property_dp[ph])[_qp] * _dporepressure_dvar[_qp][ph][v];
      if ((*_dphase_property_ds[ph]).size() > _qp)
        _dproperty_dvar[_qp][ph][v] +=
            (*_dphase_property_ds[ph])[_qp] * _dsaturation_dvar[_qp][ph][v];
      if ((*_dphase_property_dt[ph]).size() > _qp)
        _dproperty_dvar[_qp][ph][v] += (*_dphase_property_dt[ph])[_qp] * _dtemperature_dvar[_qp][v];
    }
  }
}