IRP=12 Regular hysteresis
IRP = 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 regular hysteresis model is invoked by setting both IRP and ICP to 12.
krl=Sˉl[1−(1−1−SˉlΔSˉgt)(1−(Sˉl+Sˉgt)1/m)m−(1−SˉlΔSˉgt)(1−(SˉlΔ)1/m)m]2
krg=krgmax(1−(Sˉl+Sˉgt))γ(1−(Sˉl+Sˉgt)1/m)2m
where
Sˉl=1−SlrSl−Slr, SˉlΔ=1−SlrSlΔ−Slr, Sˉgt=(1−Slr)(1−SlΔ−SgrΔ)SgrΔ(Sl−SlΔ)
SgrΔ=1/(1−SlΔ)+1/Sgrmax−1/(1−Slr)1
SlΔ is the turning-point saturation, and SgrΔ is the residual gas saturation.
RP(1) = m; van Genuchten m for liquid relative permeability (need not equal CP(1) or CP(6)); krl uses the same m for drainage and imbibition.
RP(2) = Slr : klr(Slr) = 0, krg(Slr)=krgmax. Must have Slr > Slmin in capillary pressure (CP(2)). Slr is minimum saturation for transition to imbibition branch. For Sl < Slr , curve stays on primary drainage branch even if Sl increases.
RP(3) = Sgrmax; maximum possible value of SgrΔ . Note that the present version of the code requires that Slr + Sgrmax < 1, otherwise there will be saturations for which neither fluid phase is mobile, which the code cannot handle. Setting Sgrmax = 0 effectively turns off hysteresis. As a special option, a constant, non-zero value of Sgr may be employed by setting CP(10)>1 and making RP(3) negative. The code will set SgrΔ = -RP(3) for all grid blocks at all times.
RP(4) = γ; typical values 0.33 – 0.50.
RP(5) = krgmax
RP(6) = fitting parameter for krg extension for Sl < Slr (only used when < 1); determines type of function for extension and slope of krg at Sl = 0.
≤ 0 use cubic spline for 0 < Sl < Slr , with slope at Sl = 0 of RP(6)
> 0 use linear segment for 0 < Sl < RP(8)Slr and cubic spline for RP(8) Slr < Sl < Slr , with slope at Sl = 0 of –RP(6).
RP(7) = numerical factor used for krl extension to Sl > Sl∗ ,. RP(7) is the fraction of Sl* at which krl curve departs from the original van Genuchten function. Recommended range of values: 0.95–0.97. For RP(7)=0, krl =1 for Sl > Sl∗ (not recommended).
RP(8) = numerical factor used for linear krg extension to Sl < Slr (only used when krgmax< 1). RP(8) is the fraction of Slr at which the linear and cubic parts of the extensions are joined.
RP(9) = flag to turn off hysteresis for krl (no effect on Pc and krg ; to turn off hysteresis entirely, set Sgrmax = 0 in RP(3)).
=0 hysteresis is on for krl
=1 hysteresis is off for krl (force krl to stay on primary drainage branch ( krld) at all times)
RP(10) = mgas ; van Genuchten m for gas relative permeability (need not equal CP(1) or CP(6)); krg uses same mgas for drainage and imbibition. If zero or blank, use RP(1) so that mgas = m.
Last updated