| File |
Line number |
Procedure |
Code |
|
./pkg/dic/carbon_chem.F |
1000 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 + |
|
./pkg/dic/carbon_chem.F |
1001 |
CARBON_COEFFS_PRESSURE_DEP |
& 23.3585 * log(tk100) + |
|
./pkg/dic/carbon_chem.F |
1002 |
CARBON_COEFFS_PRESSURE_DEP |
& s * (0.023517 - 0.023656*tk100 + |
|
./pkg/dic/carbon_chem.F |
681 |
CARBON_COEFFS |
_RL tk100 |
|
./pkg/dic/carbon_chem.F |
713 |
CARBON_COEFFS |
tk100 = tk/100. _d 0 |
|
./pkg/dic/carbon_chem.F |
714 |
CARBON_COEFFS |
tk1002=tk100*tk100 |
|
./pkg/dic/carbon_chem.F |
727 |
CARBON_COEFFS |
ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100 + |
|
./pkg/dic/carbon_chem.F |
728 |
CARBON_COEFFS |
& 90.9241 _d 0*log(tk100) - 1.47696 _d 0*tk1002 + |
|
./pkg/dic/carbon_chem.F |
729 |
CARBON_COEFFS |
& s * (.025695 _d 0 - .025225 _d 0*tk100 + |
|
./pkg/dic/carbon_chem.F |
733 |
CARBON_COEFFS |
ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 + |
|
./pkg/dic/carbon_chem.F |
734 |
CARBON_COEFFS |
& 23.3585 _d 0 * log(tk100) + |
|
./pkg/dic/carbon_chem.F |
735 |
CARBON_COEFFS |
& s * (0.023517 _d 0 - 0.023656 _d 0*tk100 + |
|
./pkg/dic/carbon_chem.F |
910 |
CARBON_COEFFS_PRESSURE_DEP |
_RL tk100 |
|
./pkg/dic/carbon_chem.F |
979 |
CARBON_COEFFS_PRESSURE_DEP |
tk100 = tk/100.0 |
|
./pkg/dic/carbon_chem.F |
980 |
CARBON_COEFFS_PRESSURE_DEP |
tk1002=tk100*tk100 |
|
./pkg/dic/carbon_chem.F |
994 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100 + |
|
./pkg/dic/carbon_chem.F |
995 |
CARBON_COEFFS_PRESSURE_DEP |
& 90.9241*log(tk100) - 1.47696*tk1002 + |
|
./pkg/dic/carbon_chem.F |
996 |
CARBON_COEFFS_PRESSURE_DEP |
& s * (.025695 - .025225*tk100 + |