Symbol Description Uses
pt 35



File Line number Procedure Code
./pkg/dic/carbon_chem.F 133 CALC_PCO2
        pt=pt*permil
./pkg/dic/carbon_chem.F 193 CALC_PCO2
     &        pt*k12p*x/a +
./pkg/dic/carbon_chem.F 194 CALC_PCO2
     &        2.0*pt*k123p/a +
./pkg/dic/carbon_chem.F 199 CALC_PCO2
     &        pt*x3/a -
./pkg/dic/carbon_chem.F 210 CALC_PCO2
     &        (pt*k12p*(a - x*da))/a2 -
./pkg/dic/carbon_chem.F 211 CALC_PCO2
     &        2.0*pt*k123p*da/a2 -
./pkg/dic/carbon_chem.F 216 CALC_PCO2
     &        pt*x2*(3.0*a-x*da)/a2
./pkg/dic/carbon_chem.F 22 CALC_PCO2
     I                       t,s,diclocal,pt,sit,ta,
./pkg/dic/carbon_chem.F 262 CALC_PCO2
     &          pt*k12p*x/a +
./pkg/dic/carbon_chem.F 263 CALC_PCO2
     &          2.0*pt*k123p/a +
./pkg/dic/carbon_chem.F 268 CALC_PCO2
     &          pt*x3/a -
./pkg/dic/carbon_chem.F 315 CALC_PCO2
        pt=pt/permil
./pkg/dic/carbon_chem.F 329 CALC_PCO2_APPROX_CO3
     I                       t,s,diclocal,pt,sit,ta,
./pkg/dic/carbon_chem.F 372 CALC_PCO2_APPROX_CO3
        _RL  t, s, pt, sit, ta
./pkg/dic/carbon_chem.F 405 CALC_PCO2_APPROX_CO3
        pt=pt*permil
./pkg/dic/carbon_chem.F 426 CALC_PCO2_APPROX_CO3
        h3po4g = (pt*hguess*hguess*hguess) / stuff
./pkg/dic/carbon_chem.F 427 CALC_PCO2_APPROX_CO3
        h2po4g = (pt*k1plocal*hguess*hguess) / stuff
./pkg/dic/carbon_chem.F 428 CALC_PCO2_APPROX_CO3
        hpo4g  = (pt*k1plocal*k2plocal*hguess) / stuff
./pkg/dic/carbon_chem.F 429 CALC_PCO2_APPROX_CO3
        po4g   = (pt*k1plocal*k2plocal*k3plocal) / stuff
./pkg/dic/carbon_chem.F 464 CALC_PCO2_APPROX_CO3
        pt=pt/permil
./pkg/dic/carbon_chem.F 479 CALC_PCO2_APPROX
     I                       t,s,diclocal,pt,sit,ta,
./pkg/dic/carbon_chem.F 519 CALC_PCO2_APPROX
        _RL  t, s, pt, sit, ta
./pkg/dic/carbon_chem.F 552 CALC_PCO2_APPROX
        pt=pt*permil
./pkg/dic/carbon_chem.F 573 CALC_PCO2_APPROX
        h3po4g = (pt*hguess*hguess*hguess) / stuff
./pkg/dic/carbon_chem.F 574 CALC_PCO2_APPROX
        h2po4g = (pt*k1plocal*hguess*hguess) / stuff
./pkg/dic/carbon_chem.F 575 CALC_PCO2_APPROX
        hpo4g  = (pt*k1plocal*k2plocal*hguess) / stuff
./pkg/dic/carbon_chem.F 576 CALC_PCO2_APPROX
        po4g   = (pt*k1plocal*k2plocal*k3plocal) / stuff
./pkg/dic/carbon_chem.F 58 CALC_PCO2
        _RL  t, s, pt, sit, ta
./pkg/dic/carbon_chem.F 611 CALC_PCO2_APPROX
        pt=pt/permil