23 |
|
|
24 |
COMMON /CARBON_CHEM/ |
COMMON /CARBON_CHEM/ |
25 |
& ak0,ak1,ak2,akw,akb,aks,akf, |
& ak0,ak1,ak2,akw,akb,aks,akf, |
26 |
& ak1p,ak2p,ak3p,aksi, |
& ak1p,ak2p,ak3p,aksi, fugf, |
27 |
& ff,ft,st,bt, Ksp_TP_Calc |
& ff,ft,st,bt, Ksp_TP_Calc |
28 |
_RL ak0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL ak0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
29 |
_RL ak1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL ak1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
37 |
_RL ak3p(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL ak3p(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
38 |
_RL aksi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL aksi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
39 |
_RL ff(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL ff(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
40 |
|
C Fugacity Factor added by Val Bennington Nov. 2010 |
41 |
|
_RL fugf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
42 |
_RL ft(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL ft(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
43 |
_RL st(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL st(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
44 |
_RL bt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL bt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |