Symbol Description Uses
tk100 11


File Line number Procedure Code
./pkg/dic/carbon_chem.F 525 CARBON_COEFFS 
        _RL  tk100
./pkg/dic/carbon_chem.F 560 CARBON_COEFFS 
           tk100 = tk/100.0
./pkg/dic/carbon_chem.F 561 CARBON_COEFFS 
           tk1002=tk100*tk100
./pkg/dic/carbon_chem.F 574 CARBON_COEFFS 
           ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100  +
./pkg/dic/carbon_chem.F 575 CARBON_COEFFS 
     &          90.9241*log(tk100) - 1.47696*tk1002 +
./pkg/dic/carbon_chem.F 576 CARBON_COEFFS 
     &          s * (.025695 - .025225*tk100 +
./pkg/dic/carbon_chem.F 580 CARBON_COEFFS 
           ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 +
./pkg/dic/carbon_chem.F 581 CARBON_COEFFS 
     &        23.3585 * log(tk100) +
./pkg/dic/carbon_chem.F 582 CARBON_COEFFS 
     &        s * (0.023517 - 0.023656*tk100 +
./pkg/dic/carbon_chem.F 79 CALC_PCO2 
        _RL  tk100