Symbol Description Uses
gamm 6



File Line number Procedure Code
./pkg/dic/carbon_chem.F 401 CALC_PCO2_APPROX
        _RL  gamm
./pkg/dic/carbon_chem.F 454 CALC_PCO2_APPROX
        gamm  = diclocal/cag
./pkg/dic/carbon_chem.F 455 CALC_PCO2_APPROX
        stuff = (1.0 _d 0-gamm)*(1.0 _d 0-gamm)*k1local*k1local
./pkg/dic/carbon_chem.F 456 CALC_PCO2_APPROX
     &          - 4.0 _d 0*k1local*k2local*(1.0 _d 0-2.0 _d 0*gamm)
./pkg/dic/carbon_chem.F 457 CALC_PCO2_APPROX
        hnew  = 0.5 _d 0*( (gamm-1.0 _d 0)*k1local + sqrt(stuff) )