Symbol Description Uses
tk100 40



File Line number Procedure Code
./pkg/bling/bling_carbon_chem.F 542 CARBON_COEFFS
        _RL  tk100
./pkg/bling/bling_carbon_chem.F 581 CARBON_COEFFS
           tk100 = tk/100. _d 0
./pkg/bling/bling_carbon_chem.F 582 CARBON_COEFFS
           tk1002=tk100*tk100
./pkg/bling/bling_carbon_chem.F 615 CARBON_COEFFS
           ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100  +
./pkg/bling/bling_carbon_chem.F 616 CARBON_COEFFS
     &          90.9241 _d 0*log(tk100) - 1.47696 _d 0*tk1002 +
./pkg/bling/bling_carbon_chem.F 617 CARBON_COEFFS
     &          s * (.025695 _d 0 - .025225 _d 0*tk100 +
./pkg/bling/bling_carbon_chem.F 621 CARBON_COEFFS
           ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 +
./pkg/bling/bling_carbon_chem.F 622 CARBON_COEFFS
     &        23.3585 _d 0 * log(tk100) +
./pkg/bling/bling_carbon_chem.F 623 CARBON_COEFFS
     &        s * (0.023517 _d 0 - 0.023656 _d 0*tk100 +
./pkg/bling/bling_carbon_chem.F 802 CARBON_COEFFS_PRESSURE_DEP
        _RL  tk100
./pkg/bling/bling_carbon_chem.F 875 CARBON_COEFFS_PRESSURE_DEP
           tk100 = tk/100.0
./pkg/bling/bling_carbon_chem.F 876 CARBON_COEFFS_PRESSURE_DEP
           tk1002=tk100*tk100
./pkg/bling/bling_carbon_chem.F 912 CARBON_COEFFS_PRESSURE_DEP
           ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100  +
./pkg/bling/bling_carbon_chem.F 913 CARBON_COEFFS_PRESSURE_DEP
     &          90.9241*log(tk100) - 1.47696*tk1002 +
./pkg/bling/bling_carbon_chem.F 914 CARBON_COEFFS_PRESSURE_DEP
     &          s * (.025695 - .025225*tk100 +
./pkg/bling/bling_carbon_chem.F 918 CARBON_COEFFS_PRESSURE_DEP
           ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 +
./pkg/bling/bling_carbon_chem.F 919 CARBON_COEFFS_PRESSURE_DEP
     &        23.3585 * log(tk100) +
./pkg/bling/bling_carbon_chem.F 920 CARBON_COEFFS_PRESSURE_DEP
     &        s * (0.023517 - 0.023656*tk100 +
./pkg/dic/carbon_chem.F 554 CARBON_COEFFS
        _RL  tk100
./pkg/dic/carbon_chem.F 593 CARBON_COEFFS
           tk100 = tk/100. _d 0
./pkg/dic/carbon_chem.F 594 CARBON_COEFFS
           tk1002=tk100*tk100
./pkg/dic/carbon_chem.F 619 CARBON_COEFFS
           ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100  +
./pkg/dic/carbon_chem.F 620 CARBON_COEFFS
     &          90.9241 _d 0*log(tk100) - 1.47696 _d 0*tk1002 +
./pkg/dic/carbon_chem.F 621 CARBON_COEFFS
     &          s * (.025695 _d 0 - .025225 _d 0*tk100 +
./pkg/dic/carbon_chem.F 625 CARBON_COEFFS
           ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 +
./pkg/dic/carbon_chem.F 626 CARBON_COEFFS
     &        23.3585 _d 0 * log(tk100) +
./pkg/dic/carbon_chem.F 627 CARBON_COEFFS
     &        s * (0.023517 _d 0 - 0.023656 _d 0*tk100 +
./pkg/dic/carbon_chem.F 804 CARBON_COEFFS_PRESSURE_DEP
        _RL  tk100
./pkg/dic/carbon_chem.F 873 CARBON_COEFFS_PRESSURE_DEP
           tk100 = tk/100.0
./pkg/dic/carbon_chem.F 874 CARBON_COEFFS_PRESSURE_DEP
           tk1002=tk100*tk100
./pkg/dic/carbon_chem.F 888 CARBON_COEFFS_PRESSURE_DEP
           ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100  +
./pkg/dic/carbon_chem.F 889 CARBON_COEFFS_PRESSURE_DEP
     &          90.9241*log(tk100) - 1.47696*tk1002 +
./pkg/dic/carbon_chem.F 890 CARBON_COEFFS_PRESSURE_DEP
     &          s * (.025695 - .025225*tk100 +
./pkg/dic/carbon_chem.F 894 CARBON_COEFFS_PRESSURE_DEP
           ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 +
./pkg/dic/carbon_chem.F 895 CARBON_COEFFS_PRESSURE_DEP
     &        23.3585 * log(tk100) +
./pkg/dic/carbon_chem.F 896 CARBON_COEFFS_PRESSURE_DEP
     &        s * (0.023517 - 0.023656*tk100 +