This is used to specify user relative permeability curves. The current user interface does not support this data and it has to be added manually in the GRF file.
BEGIN PROBLEMDATA
RelPerm name { Data }
END
Data to be specified
• | Resin |
• | D_Resin |
• | Air |
• | D_Air |
• | P_Capillary |
• | D_P_Capillary |
• | Derivative |
Variable |
Default Value |
Valid Range |
Data Type |
Significance |
Resin |
1.0 |
0 - 1 |
Function of S |
Relative permeability of resin as a function of S |
Air |
0.0 |
0 - 1 |
Function of S |
Relative permeability of air as a function of S |
D_Resin |
0.0 |
Bounded number |
Function of S |
d (Resin)/dS - Derivative of relative permeabiity of Resin |
D_Air |
0.0 |
Bounded number |
Function of S |
d (Resin)/dS - Derivative of relative permeabiity of Air |
P_Capillary |
0.0 |
Bounded number |
Function of S |
Capillary pressure as a function of S |
D_P_Capillary |
0.0 |
Bounded number |
Function of S |
Derivative of Capillary pressure with respect to S |
Derivative |
1 |
0/1 |
Constant |
1 - Compute Derivative 0 - Derivative functions given |
Example
BEGIN FUNCTIONS
EXPRESSION kr "{swet} { kresin $swet }"
EXPRESSION ka "{swet} { kair $swet }"
EXPRESSION pc "{swet} { pcap $swet }"
END
BEGIN PROBLEMDATA
RelPerm mycurve {
Resin = kr
Air = ka
P_Capillary = pc
}
END PROBLEMDATA
Corresponding to this data, you have to load the tcl functions in the commands file.
source relpermcurve.tcl