ICP=6 Leverett’s function

Leverett’s function (Leverett, 1941; Udell and Fitch, 1985)

Pcap=P0σ(T) f(Sl)P_{cap}\quad=\quad-P_0\cdot\sigma(T)\cdot\ f(S_l)

with

σ\sigma(T) - surface tension of water (supplied internally in TOUGH4)

f(Sl)=1.417(1S)2.120(1S)2+1.263(1S)3f(S_l)=1.417 (1 - S^*) - 2.120 (1 - S^*)^2 + 1.263 (1 - S^*)^3

where

S=(SlSlr)/(1Slr)S^*=(S_l-S_{lr})/(1-S_{lr})

Parameters: P0P_0= CP(1) SlrS_{lr}= CP(2)

If CP(3) ≠ 0,

Pcgn=Pcap(=Pcgl)P{cgn}=P_{cap}(=P_{cgl})

Pcap(Pcgl=0P_{cap}(P_{cgl})=0