Symbol Description Uses
gamm 12



File Line number Procedure Code
./pkg/dic/carbon_chem.F 388 CALC_PCO2_APPROX_CO3
        _RL  gamm
./pkg/dic/carbon_chem.F 442 CALC_PCO2_APPROX_CO3
        gamm  = diclocal/cag
./pkg/dic/carbon_chem.F 443 CALC_PCO2_APPROX_CO3
        stuff = (1.0-gamm)*(1.0-gamm)*k1local*k1local
./pkg/dic/carbon_chem.F 444 CALC_PCO2_APPROX_CO3
     &          - 4.0*k1local*k2local*(1.0-2.0*gamm)
./pkg/dic/carbon_chem.F 445 CALC_PCO2_APPROX_CO3
        hnew  = 0.5*( (gamm-1.0)*k1local + sqrt(stuff) )
./pkg/dic/carbon_chem.F 535 CALC_PCO2_APPROX
        _RL  gamm
./pkg/dic/carbon_chem.F 589 CALC_PCO2_APPROX
        gamm  = diclocal/cag
./pkg/dic/carbon_chem.F 590 CALC_PCO2_APPROX
        stuff = (1.0 _d 0-gamm)*(1.0 _d 0-gamm)*k1local*k1local
./pkg/dic/carbon_chem.F 591 CALC_PCO2_APPROX
     &          - 4.0 _d 0*k1local*k2local*(1.0 _d 0-2.0 _d 0*gamm)
./pkg/dic/carbon_chem.F 592 CALC_PCO2_APPROX
        hnew  = 0.5 _d 0*( (gamm-1.0 _d 0)*k1local + sqrt(stuff) )