Symbol Description Uses
tk100 21



File Line number Procedure Code
./pkg/dic/carbon_chem.F 665 CARBON_COEFFS
        _RL  tk100
./pkg/dic/carbon_chem.F 700 CARBON_COEFFS
           tk100 = tk/100.0
./pkg/dic/carbon_chem.F 701 CARBON_COEFFS
           tk1002=tk100*tk100
./pkg/dic/carbon_chem.F 714 CARBON_COEFFS
           ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100  +
./pkg/dic/carbon_chem.F 715 CARBON_COEFFS
     &          90.9241*log(tk100) - 1.47696*tk1002 +
./pkg/dic/carbon_chem.F 716 CARBON_COEFFS
     &          s * (.025695 - .025225*tk100 + 
./pkg/dic/carbon_chem.F 720 CARBON_COEFFS
           ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 + 
./pkg/dic/carbon_chem.F 721 CARBON_COEFFS
     &        23.3585 * log(tk100) +
./pkg/dic/carbon_chem.F 722 CARBON_COEFFS
     &        s * (0.023517 - 0.023656*tk100 + 
./pkg/dic/carbon_chem.F 79 CALC_PCO2
        _RL  tk100
./pkg/dic/carbon_chem.F 897 CARBON_COEFFS_PRESSURE_DEP
        _RL  tk100
./pkg/dic/carbon_chem.F 969 CARBON_COEFFS_PRESSURE_DEP
           tk100 = tk/100.0
./pkg/dic/carbon_chem.F 970 CARBON_COEFFS_PRESSURE_DEP
           tk1002=tk100*tk100
./pkg/dic/carbon_chem.F 984 CARBON_COEFFS_PRESSURE_DEP
           ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100  +
./pkg/dic/carbon_chem.F 985 CARBON_COEFFS_PRESSURE_DEP
     &          90.9241*log(tk100) - 1.47696*tk1002 +
./pkg/dic/carbon_chem.F 986 CARBON_COEFFS_PRESSURE_DEP
     &          s * (.025695 - .025225*tk100 +
./pkg/dic/carbon_chem.F 990 CARBON_COEFFS_PRESSURE_DEP
           ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 + 
./pkg/dic/carbon_chem.F 991 CARBON_COEFFS_PRESSURE_DEP
     &        23.3585 * log(tk100) +
./pkg/dic/carbon_chem.F 992 CARBON_COEFFS_PRESSURE_DEP
     &        s * (0.023517 - 0.023656*tk100 +