| File |
Line number |
Procedure |
Code |
|
./pkg/bling/bling_carbon_chem.F |
387 |
CALC_PCO2_APPROX |
_RL gamm |
|
./pkg/bling/bling_carbon_chem.F |
444 |
CALC_PCO2_APPROX |
gamm = diclocal/cag |
|
./pkg/bling/bling_carbon_chem.F |
445 |
CALC_PCO2_APPROX |
stuff = (1.0 _d 0-gamm)*(1.0 _d 0-gamm)*k1local*k1local |
|
./pkg/bling/bling_carbon_chem.F |
446 |
CALC_PCO2_APPROX |
& - 4.0 _d 0*k1local*k2local*(1.0 _d 0-2.0 _d 0*gamm) |
|
./pkg/bling/bling_carbon_chem.F |
447 |
CALC_PCO2_APPROX |
hnew = 0.5 _d 0*( (gamm-1.0 _d 0)*k1local + sqrt(stuff) ) |
|
./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) ) |