ICP=12 Regular hysteresis
ICP = 12 Regular hysteresis
The hysteretic form of the van Genuchten model (Parker and Lenhard, 1987; Lenhard and Parker, 1987) has been implemented. Details of the implementation are described in Doughty (2013). The hysteretic model is invoked by setting both IRP and ICP to 12.
Pc=−P0p[(1−SgrΔ−SlminSl−Slmin)−(mp1)−1](1−mp)
where
SgrΔ=1/(1−SlΔ)+1/Sgrmax−1/(1−Slr)1
CP(1) = md; van Genuchten m for drainage branch Pcd(Sl).
CP(2) = Slmin; saturation at which original van Genuchten Pc goes to infinity.
Must have Slmin< Slr , where Slr is the relative permeability parameter RP(2).
CP(3) = P0d; capillary strength parameter for drainage branch Pcd(S1) [Pa].
CP(4) = Pc,max; maximum capillary pressure [Pa] obtained using original van Genuchten Pc. Inverting the original van Genuchten function for Pc,max determines Sm, the transition point between the original van Genuchten function and an extension that stays finite as Sl goes to zero. For functional form of extension, see description of CP(13) below.
CP(5) = scale factor for pressures for unit conversion (1 for pressure in Pa).
CP(6) = mw; van Genuchten m for imbibition branch Pcw(Sl). Default value is CP(1) (recommended unless compelling reason otherwise).
CP(7) = Pw0; capillary strength parameter for imbibition branch Pcw(Sl) [Pa]. Default value is CP(3) (recommended unless compelling reason otherwise).
CP(8) = parameter indicating whether to invoke non-zero Pc extension for Sl > Sl∗
= 1 – SgrΔ
=0 no extension; Pc = 0 for Sl > Sl∗
>0 power-law extension for Sl∗ <Sl <1, with Pc = 0 when Sl = 1. A non-zero CP(8) is the fraction of Sl∗ at which the Pc curve departs from the original van Genuchten function. Recommended range of values: 0.97–0.99.
CP(9) = flag indicating how to treat negative radicand, which can arise for Sl> SlΔ23 for second-order scanning drainage curves (ICURV = 3), where SlΔ23 is the turning-point saturation between first-order scanning imbibition (ICURV = 2) and second-order scanning drainage. None of the options below have proved to be robust under all circumstances. If difficulties arise because Sl> SlΔ23 for ICURV = 3, also consider using IEHYS(3) > 0 or CP(10) < 0, which should minimize the occurrence of Sl> SlΔ23 for ICURV = 3.
=0 radicand = max(0,radicand) regardless of Sl value
=1 if Sl> SlΔ23 , radicand takes value of radicand at Sl= SlΔ23
=2 if Sl> SlΔ23 , use first-order scanning imbibition curve (ICURV = 2)
CP(10) = threshold value of ∣ΔS∣ (absolute value of saturation change since previous time step) for enabling a branch switch (default is 1E-6; set to any negative number to do a branch switch no matter how small ∣ΔS∣ is; set to a value greater than 1 to never do a branch switch). See also IEHYS(3).
CP(11) = threshold value of SgrΔ. If value of SgrΔ calculated from SlΔ(Equation (2)) is less than CP(11), use SgrΔ = 0. Recommended value 0.01–0.03; default is 0.02.
CP(12) = flag to turn off hysteresis for Pc (no effect on krl and krg; to turn off hysteresis entirely, set Sgrmax = 0 in RP(3)).
=0 hysteresis is on for Pc
=1 hysteresis is off for Pc (switch branches of Pc as usual, but set Sgr = 0 in Pc calculation. Make sure other parameters of Pcd and Pcw are the same: CP(1) = CP(6) and CP(3) = CP(7))
CP(13) = parameter to determine functional form of Pc extension for Sl>< Slmin (i.e., Pc > Pcmax )
=0 exponential extension
>0 power-law extension with zero slope at Sl = 0 and Pc(0) =CP(13). Recommended value: 2 to 5 times CP(4)=Pcmax . Should not be less than or equal to CP(4).