PorousFlowHystereticCapillaryPressure.h

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

#pragma once

#include "PorousFlowVariableBase.h"
#include "PorousFlowConstants.h"
#include "PorousFlowVanGenuchten.h"

class PorousFlowHystereticCapillaryPressure : public PorousFlowVariableBase
{
public:
  static InputParameters validParams();

  PorousFlowHystereticCapillaryPressure(const InputParameters & parameters);

protected:
  virtual void initQpStatefulProperties() override;
  virtual void computeQpProperties() override;

  Real landSat(Real slDel) const;

  void computeTurningPointInfo(unsigned tp_num, Real tp_sat, Real tp_pc);

  Real capillaryPressureQp(Real sat) const;

  Real dcapillaryPressureQp(Real sat) const;

  Real d2capillaryPressureQp(Real sat) const;

  Real liquidSaturationQp(Real pc) const;

  Real dliquidSaturationQp(Real pc) const;

  Real d2liquidSaturationQp(Real pc) const;

  const Real _alpha_d;
  const Real _alpha_w;
  const Real _n_d;
  const Real _n_w;
  const Real _s_l_min;
  const Real _s_lr;
  const Real _s_gr_max;
  const Real _pc_max;
  const Real _high_ratio;
  const PorousFlowVanGenuchten::LowCapillaryPressureExtension::ExtensionStrategy _low_ext_type;
  const Real _s_low_d;
  const Real _dpc_low_d;
  const PorousFlowVanGenuchten::LowCapillaryPressureExtension _low_ext_d;
  const Real _s_low_w;
  const Real _dpc_low_w;
  const PorousFlowVanGenuchten::LowCapillaryPressureExtension _low_ext_w;
  const PorousFlowVanGenuchten::HighCapillaryPressureExtension::ExtensionStrategy _high_ext_type;
  const Real _s_high;
  const Real _pc_high;
  const Real _dpc_high;
  const PorousFlowVanGenuchten::HighCapillaryPressureExtension _high_ext;

  const MaterialProperty<unsigned> & _hys_order;

  const MaterialProperty<unsigned> & _hys_order_old;

  const MaterialProperty<std::array<Real, PorousFlowConstants::MAX_HYSTERESIS_ORDER>> &
      _hys_sat_tps;

  const MaterialProperty<Real> & _pc_older;

  MaterialProperty<std::array<Real, PorousFlowConstants::MAX_HYSTERESIS_ORDER>> & _pc_tps;

  MaterialProperty<std::array<Real, PorousFlowConstants::MAX_HYSTERESIS_ORDER>> & _s_d_tps;

  MaterialProperty<std::array<Real, PorousFlowConstants::MAX_HYSTERESIS_ORDER>> & _s_gr_tps;

  MaterialProperty<std::array<PorousFlowVanGenuchten::LowCapillaryPressureExtension,
                              PorousFlowConstants::MAX_HYSTERESIS_ORDER>> & _w_low_ext_tps;

  MaterialProperty<std::array<PorousFlowVanGenuchten::HighCapillaryPressureExtension,
                              PorousFlowConstants::MAX_HYSTERESIS_ORDER>> & _w_high_ext_tps;

  MaterialProperty<std::array<Real, PorousFlowConstants::MAX_HYSTERESIS_ORDER>> & _s_w_tps;

private:
  Real firstOrderWettingPc(Real sat) const;

  Real dfirstOrderWettingPc(Real sat) const;

  Real d2firstOrderWettingPc(Real sat) const;

  Real secondOrderDryingPc(Real sat) const;

  Real dsecondOrderDryingPc(Real sat) const;

  Real d2secondOrderDryingPc(Real sat) const;

  Real firstOrderWettingSat(Real pc) const;

  Real dfirstOrderWettingSat(Real pc) const;

  Real d2firstOrderWettingSat(Real pc) const;

  Real secondOrderDryingSat(Real pc) const;

  Real dsecondOrderDryingSat(Real pc) const;

  Real d2secondOrderDryingSat(Real pc) const;
};