Symbol Description Uses
k1local 33


File Line number Procedure Code
./pkg/dic/carbon_chem.F 14 CALC_PCO2 
     I                       k1local,k2local,
./pkg/dic/carbon_chem.F 180 CALC_PCO2 
            k12 = k1local*k2local
./pkg/dic/carbon_chem.F 187 CALC_PCO2 
            b = x2 + k1local*x + k12
./pkg/dic/carbon_chem.F 189 CALC_PCO2 
            db = 2.0*x + k1local
./pkg/dic/carbon_chem.F 194 CALC_PCO2 
            fn = k1local*x*diclocal/b +
./pkg/dic/carbon_chem.F 211 CALC_PCO2 
            df = ((k1local*diclocal*b) - k1local*x*diclocal*db)/b2 -
./pkg/dic/carbon_chem.F 252 CALC_PCO2 
              k12 = k1local*k2local
./pkg/dic/carbon_chem.F 259 CALC_PCO2 
              b = x2 + k1local*x + k12
./pkg/dic/carbon_chem.F 261 CALC_PCO2 
              db = 2.0*x + k1local
./pkg/dic/carbon_chem.F 263 CALC_PCO2 
              fn = k1local*x*diclocal/b +
./pkg/dic/carbon_chem.F 305 CALC_PCO2 
        co2star=diclocal*htotal2/(htotal2 + k1local*htotal
./pkg/dic/carbon_chem.F 306 CALC_PCO2 
     &            + k1local*k2local)
./pkg/dic/carbon_chem.F 342 CALC_PCO2_APPROX_CO3 
     I                       k1local,k2local,
./pkg/dic/carbon_chem.F 374 CALC_PCO2_APPROX_CO3 
        _RL  k1local, k2local
./pkg/dic/carbon_chem.F 440 CALC_PCO2_APPROX_CO3 
        stuff = (1.0-gamm)*(1.0-gamm)*k1local*k1local
./pkg/dic/carbon_chem.F 441 CALC_PCO2_APPROX_CO3 
     &          - 4.0*k1local*k2local*(1.0-2.0*gamm)
./pkg/dic/carbon_chem.F 442 CALC_PCO2_APPROX_CO3 
        hnew  = 0.5*( (gamm-1.0)*k1local + sqrt(stuff) )
./pkg/dic/carbon_chem.F 445 CALC_PCO2_APPROX_CO3 
     &   (1.0 + (k1local/hnew) + (k1local*k2local/(hnew*hnew)))
./pkg/dic/carbon_chem.F 452 CALC_PCO2_APPROX_CO3 
        co3local = k1local*k2local*diclocal /
./pkg/dic/carbon_chem.F 453 CALC_PCO2_APPROX_CO3 
     &         (hnew*hnew + k1local*hnew + k1local*k2local)
./pkg/dic/carbon_chem.F 479 CALC_PCO2_APPROX 
     I                       k1local,k2local,
./pkg/dic/carbon_chem.F 510 CALC_PCO2_APPROX 
        _RL  k1local, k2local
./pkg/dic/carbon_chem.F 51 CALC_PCO2 
        _RL  k1local, k2local
./pkg/dic/carbon_chem.F 576 CALC_PCO2_APPROX 
        stuff = (1.0-gamm)*(1.0-gamm)*k1local*k1local
./pkg/dic/carbon_chem.F 577 CALC_PCO2_APPROX 
     &          - 4.0*k1local*k2local*(1.0-2.0*gamm)
./pkg/dic/carbon_chem.F 578 CALC_PCO2_APPROX 
        hnew  = 0.5*( (gamm-1.0)*k1local + sqrt(stuff) )
./pkg/dic/carbon_chem.F 581 CALC_PCO2_APPROX 
     &   (1.0 + (k1local/hnew) + (k1local*k2local/(hnew*hnew)))