| File |
Line number |
Procedure |
Code |
|
./pkg/dic/carbon_chem.F |
1001 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 - |
|
./pkg/dic/carbon_chem.F |
1020 |
CARBON_COEFFS_PRESSURE_DEP |
& 1.728*s15 - 0.0996*s2)*invtk + |
|
./pkg/dic/carbon_chem.F |
1037 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 - |
|
./pkg/dic/carbon_chem.F |
1039 |
CARBON_COEFFS_PRESSURE_DEP |
& (-106.736*invtk + 0.69171)*sqrts + |
|
./pkg/dic/carbon_chem.F |
1040 |
CARBON_COEFFS_PRESSURE_DEP |
& (-0.65643*invtk - 0.01844)*s) |
|
./pkg/dic/carbon_chem.F |
1044 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 - |
|
./pkg/dic/carbon_chem.F |
1046 |
CARBON_COEFFS_PRESSURE_DEP |
& (-160.340*invtk + 1.3566) * sqrts + |
|
./pkg/dic/carbon_chem.F |
1047 |
CARBON_COEFFS_PRESSURE_DEP |
& (0.37335*invtk - 0.05778) * s) |
|
./pkg/dic/carbon_chem.F |
1051 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 + |
|
./pkg/dic/carbon_chem.F |
1052 |
CARBON_COEFFS_PRESSURE_DEP |
& (17.27039*invtk + 2.81197) * |
|
./pkg/dic/carbon_chem.F |
1053 |
CARBON_COEFFS_PRESSURE_DEP |
& sqrts + (-44.99486*invtk - 0.09984) * s) |
|
./pkg/dic/carbon_chem.F |
1057 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 - |
|
./pkg/dic/carbon_chem.F |
1059 |
CARBON_COEFFS_PRESSURE_DEP |
& (-458.79*invtk + 3.5913) * sqrtis + |
|
./pkg/dic/carbon_chem.F |
1060 |
CARBON_COEFFS_PRESSURE_DEP |
& (188.74*invtk - 1.5998) * is + |
|
./pkg/dic/carbon_chem.F |
1061 |
CARBON_COEFFS_PRESSURE_DEP |
& (-12.1652*invtk + 0.07871) * is2 + |
|
./pkg/dic/carbon_chem.F |
1066 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 - |
|
./pkg/dic/carbon_chem.F |
1068 |
CARBON_COEFFS_PRESSURE_DEP |
& (118.67*invtk - 5.977 + 1.0495 * dlogtk) * |
|
./pkg/dic/carbon_chem.F |
1073 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 - |
|
./pkg/dic/carbon_chem.F |
1075 |
CARBON_COEFFS_PRESSURE_DEP |
& (-13856*invtk + 324.57 - 47.986*dlogtk)*sqrtis + |
|
./pkg/dic/carbon_chem.F |
1076 |
CARBON_COEFFS_PRESSURE_DEP |
& (35474*invtk - 771.54 + 114.723*dlogtk)*is - |
|
./pkg/dic/carbon_chem.F |
1077 |
CARBON_COEFFS_PRESSURE_DEP |
& 2698*invtk*is**1.5 + 1776*invtk*is2 + |
|
./pkg/dic/carbon_chem.F |
1082 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis + |
|
./pkg/dic/carbon_chem.F |
119 |
CALC_PCO2 |
_RL invtk |
|
./pkg/dic/carbon_chem.F |
676 |
CARBON_COEFFS |
_RL invtk |
|
./pkg/dic/carbon_chem.F |
702 |
CARBON_COEFFS |
invtk=1.0/tk |
|
./pkg/dic/carbon_chem.F |
728 |
CARBON_COEFFS |
ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk - |
|
./pkg/dic/carbon_chem.F |
731 |
CARBON_COEFFS |
ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 - |
|
./pkg/dic/carbon_chem.F |
737 |
CARBON_COEFFS |
& 1.728*s15 - 0.0996*s2)*invtk + |
|
./pkg/dic/carbon_chem.F |
744 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 - |
|
./pkg/dic/carbon_chem.F |
746 |
CARBON_COEFFS |
& (-106.736*invtk + 0.69171)*sqrts + |
|
./pkg/dic/carbon_chem.F |
747 |
CARBON_COEFFS |
& (-0.65643*invtk - 0.01844)*s) |
|
./pkg/dic/carbon_chem.F |
751 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 - |
|
./pkg/dic/carbon_chem.F |
753 |
CARBON_COEFFS |
& (-160.340*invtk + 1.3566) * sqrts + |
|
./pkg/dic/carbon_chem.F |
754 |
CARBON_COEFFS |
& (0.37335*invtk - 0.05778) * s) |
|
./pkg/dic/carbon_chem.F |
758 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 + |
|
./pkg/dic/carbon_chem.F |
759 |
CARBON_COEFFS |
& (17.27039*invtk + 2.81197) * |
|
./pkg/dic/carbon_chem.F |
760 |
CARBON_COEFFS |
& sqrts + (-44.99486*invtk - 0.09984) * s) |
|
./pkg/dic/carbon_chem.F |
764 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 - |
|
./pkg/dic/carbon_chem.F |
766 |
CARBON_COEFFS |
& (-458.79*invtk + 3.5913) * sqrtis + |
|
./pkg/dic/carbon_chem.F |
767 |
CARBON_COEFFS |
& (188.74*invtk - 1.5998) * is + |
|
./pkg/dic/carbon_chem.F |
768 |
CARBON_COEFFS |
& (-12.1652*invtk + 0.07871) * is2 + |
|
./pkg/dic/carbon_chem.F |
773 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 - |
|
./pkg/dic/carbon_chem.F |
775 |
CARBON_COEFFS |
& (118.67*invtk - 5.977 + 1.0495 * dlogtk) * |
|
./pkg/dic/carbon_chem.F |
780 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 - |
|
./pkg/dic/carbon_chem.F |
782 |
CARBON_COEFFS |
& (-13856*invtk + 324.57 - 47.986*dlogtk)*sqrtis + |
|
./pkg/dic/carbon_chem.F |
783 |
CARBON_COEFFS |
& (35474*invtk - 771.54 + 114.723*dlogtk)*is - |
|
./pkg/dic/carbon_chem.F |
784 |
CARBON_COEFFS |
& 2698*invtk*is**1.5 + 1776*invtk*is2 + |
|
./pkg/dic/carbon_chem.F |
789 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis + |
|
./pkg/dic/carbon_chem.F |
908 |
CARBON_COEFFS_PRESSURE_DEP |
_RL invtk |
|
./pkg/dic/carbon_chem.F |
971 |
CARBON_COEFFS_PRESSURE_DEP |
invtk=1.0/tk |
|
./pkg/dic/carbon_chem.F |
998 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk - |