File |
Line number |
Procedure |
Code |
./pkg/bling/bling_carbon_chem.F |
386 |
CALC_PCO2_APPROX |
_RL stuff |
./pkg/bling/bling_carbon_chem.F |
420 |
CALC_PCO2_APPROX |
stuff = hguess*hguess*hguess |
./pkg/bling/bling_carbon_chem.F |
424 |
CALC_PCO2_APPROX |
h3po4g = (pt*hguess*hguess*hguess) / stuff |
./pkg/bling/bling_carbon_chem.F |
425 |
CALC_PCO2_APPROX |
h2po4g = (pt*k1plocal*hguess*hguess) / stuff |
./pkg/bling/bling_carbon_chem.F |
426 |
CALC_PCO2_APPROX |
hpo4g = (pt*k1plocal*k2plocal*hguess) / stuff |
./pkg/bling/bling_carbon_chem.F |
427 |
CALC_PCO2_APPROX |
po4g = (pt*k1plocal*k2plocal*k3plocal) / stuff |
./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 |
447 |
CALC_PCO2_APPROX |
hnew = 0.5 _d 0*( (gamm-1.0 _d 0)*k1local + sqrt(stuff) ) |
./pkg/dic/carbon_chem.F |
400 |
CALC_PCO2_APPROX |
_RL stuff |
./pkg/dic/carbon_chem.F |
434 |
CALC_PCO2_APPROX |
stuff = hguess*hguess*hguess |
./pkg/dic/carbon_chem.F |
438 |
CALC_PCO2_APPROX |
h3po4g = (pt*hguess*hguess*hguess) / stuff |
./pkg/dic/carbon_chem.F |
439 |
CALC_PCO2_APPROX |
h2po4g = (pt*k1plocal*hguess*hguess) / stuff |
./pkg/dic/carbon_chem.F |
440 |
CALC_PCO2_APPROX |
hpo4g = (pt*k1plocal*k2plocal*hguess) / stuff |
./pkg/dic/carbon_chem.F |
441 |
CALC_PCO2_APPROX |
po4g = (pt*k1plocal*k2plocal*k3plocal) / stuff |
./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 |
457 |
CALC_PCO2_APPROX |
hnew = 0.5 _d 0*( (gamm-1.0 _d 0)*k1local + sqrt(stuff) ) |