| File |
Line number |
Procedure |
Code |
|
./pkg/bling/bling_carbon_chem.F |
111 |
CALC_PCO2 |
INTEGER hstep |
|
./pkg/bling/bling_carbon_chem.F |
236 |
CALC_PCO2 |
do hstep = 1,3 |
|
./pkg/bling/bling_carbon_chem.F |
237 |
CALC_PCO2 |
if(hstep .eq. 1)x = xhi |
|
./pkg/bling/bling_carbon_chem.F |
238 |
CALC_PCO2 |
if(hstep .eq. 2)x = xlo |
|
./pkg/bling/bling_carbon_chem.F |
239 |
CALC_PCO2 |
if(hstep .eq. 3)x = xmid |
|
./pkg/bling/bling_carbon_chem.F |
269 |
CALC_PCO2 |
fni(hstep) = fn |
|
./pkg/dic/carbon_chem.F |
116 |
CALC_PCO2 |
INTEGER hstep |
|
./pkg/dic/carbon_chem.F |
241 |
CALC_PCO2 |
do hstep = 1,3 |
|
./pkg/dic/carbon_chem.F |
242 |
CALC_PCO2 |
if(hstep .eq. 1)x = xhi |
|
./pkg/dic/carbon_chem.F |
243 |
CALC_PCO2 |
if(hstep .eq. 2)x = xlo |
|
./pkg/dic/carbon_chem.F |
244 |
CALC_PCO2 |
if(hstep .eq. 3)x = xmid |
|
./pkg/dic/carbon_chem.F |
274 |
CALC_PCO2 |
fni(hstep) = fn |