ICP=10 Modified Brooks-Corey Model
A modified version of the Brooks-Corey model (Brooks and Corey, 1964) has been implemented. In order to prevent the capillary pressure from decreasing towards negative infinity as the effective saturation approaches zero, a linear function is used for saturations Sl below a certain value Slrc+ε, where ε is a small number. The slope of the linear extrapolation is identical with the slope of the capillary pressure curve at Sl=Slrc+ε. Alternatively, the capillary pressure is prevented from becoming more negative than −pc,max. The modified Brooks-Corey model is invoked by setting both IRP and ICP to 10.
pc=⎩⎨⎧−pe(Sec)−1/λ for Sl>(Slrc+ε)−pe(1−Slrcε)−1/λ+λpe1−Slrc1(1−Slrcε)−λ1+λ(Sl−Slrc−ε) for Sl<(Slrc+ε)
pc≥−pc,max
where
Sec=1−SlrcSl−Slrc
Parameters:
CP(1): λ (pore size distribution index)
CP(2): Pe (gas entry pressure [Pa])
if CP(2) is negative and USERX(1,N) is non-zero, apply Leverett’s rule:
Pe=−CP(2)USERX(1,N)/PER(NMAT)
if USERX(2,N) is positive, Pe = USERX(2,N)
if USERX(2,N) is negative, Pe = -USERX(2,N)∙CP(2)
CP(3): ε or Pc,max
if CP(3) = 0, pc,max=1050, ε=−1
if 0 < CP(3) < 1, use linear model for Sl<Slrc+ε
if CP(3) ≥1 , pc,max= CP(3), ε=−1
CP(6): Slrc