File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_swrad.F |
1019 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
./pkg/fizhi/fizhi_swrad.F |
1020 |
CLDSCALE |
parameter (dm=0.1,dt=0.30103,da=0.1,t1=-0.9031) |
./pkg/fizhi/fizhi_swrad.F |
1098 |
CLDSCALE |
fa=fa/da |
./pkg/bling/bling_carbon_chem.F |
180 |
CALC_PCO2 |
da = 3.0*x2 + 2.0*k1plocal*x + k12p |
./pkg/bling/bling_carbon_chem.F |
209 |
CALC_PCO2 |
& (pt*k12p*(a - x*da))/a2 - |
./pkg/bling/bling_carbon_chem.F |
210 |
CALC_PCO2 |
& 2.0*pt*k123p*da/a2 - |
./pkg/bling/bling_carbon_chem.F |
215 |
CALC_PCO2 |
& pt*x2*(3.0*a-x*da)/a2 |
./pkg/bling/bling_carbon_chem.F |
252 |
CALC_PCO2 |
da = 3.0*x2 + 2.0*k1plocal*x + k12p |
./pkg/bling/bling_carbon_chem.F |
92 |
CALC_PCO2 |
_RL da |
./pkg/dic/carbon_chem.F |
185 |
CALC_PCO2 |
da = 3.0*x2 + 2.0*k1plocal*x + k12p |
./pkg/dic/carbon_chem.F |
214 |
CALC_PCO2 |
& (pt*k12p*(a - x*da))/a2 - |
./pkg/dic/carbon_chem.F |
215 |
CALC_PCO2 |
& 2.0*pt*k123p*da/a2 - |
./pkg/dic/carbon_chem.F |
220 |
CALC_PCO2 |
& pt*x2*(3.0*a-x*da)/a2 |
./pkg/dic/carbon_chem.F |
257 |
CALC_PCO2 |
da = 3.0*x2 + 2.0*k1plocal*x + k12p |
./pkg/dic/carbon_chem.F |
97 |
CALC_PCO2 |
_RL da |