| File |
Line number |
Procedure |
Code |
|
./pkg/dic/carbon_chem.F |
119 |
CALC_PCO2 |
_RL invtk |
|
./pkg/dic/carbon_chem.F |
536 |
CARBON_COEFFS |
_RL invtk |
|
./pkg/dic/carbon_chem.F |
562 |
CARBON_COEFFS |
invtk=1.0/tk |
|
./pkg/dic/carbon_chem.F |
588 |
CARBON_COEFFS |
ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk - |
|
./pkg/dic/carbon_chem.F |
591 |
CARBON_COEFFS |
ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 - |
|
./pkg/dic/carbon_chem.F |
597 |
CARBON_COEFFS |
& 1.728*s15 - 0.0996*s2)*invtk + |
|
./pkg/dic/carbon_chem.F |
604 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 - |
|
./pkg/dic/carbon_chem.F |
606 |
CARBON_COEFFS |
& (-106.736*invtk + 0.69171)*sqrts + |
|
./pkg/dic/carbon_chem.F |
607 |
CARBON_COEFFS |
& (-0.65643*invtk - 0.01844)*s) |
|
./pkg/dic/carbon_chem.F |
611 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 - |
|
./pkg/dic/carbon_chem.F |
613 |
CARBON_COEFFS |
& (-160.340*invtk + 1.3566) * sqrts + |
|
./pkg/dic/carbon_chem.F |
614 |
CARBON_COEFFS |
& (0.37335*invtk - 0.05778) * s) |
|
./pkg/dic/carbon_chem.F |
618 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 + |
|
./pkg/dic/carbon_chem.F |
619 |
CARBON_COEFFS |
& (17.27039*invtk + 2.81197) * |
|
./pkg/dic/carbon_chem.F |
620 |
CARBON_COEFFS |
& sqrts + (-44.99486*invtk - 0.09984) * s) |
|
./pkg/dic/carbon_chem.F |
624 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 - |
|
./pkg/dic/carbon_chem.F |
626 |
CARBON_COEFFS |
& (-458.79*invtk + 3.5913) * sqrtis + |
|
./pkg/dic/carbon_chem.F |
627 |
CARBON_COEFFS |
& (188.74*invtk - 1.5998) * is + |
|
./pkg/dic/carbon_chem.F |
628 |
CARBON_COEFFS |
& (-12.1652*invtk + 0.07871) * is2 + |
|
./pkg/dic/carbon_chem.F |
633 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 - |
|
./pkg/dic/carbon_chem.F |
635 |
CARBON_COEFFS |
& (118.67*invtk - 5.977 + 1.0495 * dlogtk) * |
|
./pkg/dic/carbon_chem.F |
640 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 - |
|
./pkg/dic/carbon_chem.F |
642 |
CARBON_COEFFS |
& (-13856*invtk + 324.57 - 47.986*dlogtk)*sqrtis + |
|
./pkg/dic/carbon_chem.F |
643 |
CARBON_COEFFS |
& (35474*invtk - 771.54 + 114.723*dlogtk)*is - |
|
./pkg/dic/carbon_chem.F |
644 |
CARBON_COEFFS |
& 2698*invtk*is**1.5 + 1776*invtk*is2 + |
|
./pkg/dic/carbon_chem.F |
649 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis + |