| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/cheapaml.F |
563 |
CHEAPAML |
pt=p0*(1-gamma_blk*CheapHgrid(i,j,bi,bj)/ts) |
|
./pkg/cheapaml/cheapaml.F |
567 |
CHEAPAML |
dm=100.*(p0-pt)*recip_gravity |
|
./pkg/cheapaml/cheapaml.F |
70 |
CHEAPAML |
_RL dm,pt,xalwd,xlwnet |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
133 |
CHEAPAML_LANL_FLUX |
pt=p0*(1-gamma_blk*cheaphgrid(i,j,bi,bj)/ttas) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
138 |
CHEAPAML_LANL_FLUX |
ssqt = ssq0*exp( lath*(ssq1-ssq2/ttt) ) / pt |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
67 |
CHEAPAML_LANL_FLUX |
_RL deltap, delq, pt, psx100, z100ol |
|
./pkg/dic/carbon_chem.F |
137 |
CALC_PCO2 |
pt=pt*permil |
|
./pkg/dic/carbon_chem.F |
197 |
CALC_PCO2 |
& pt*k12p*x/a + |
|
./pkg/dic/carbon_chem.F |
198 |
CALC_PCO2 |
& 2.0*pt*k123p/a + |
|
./pkg/dic/carbon_chem.F |
203 |
CALC_PCO2 |
& pt*x3/a - |
|
./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 |
21 |
CALC_PCO2 |
I t,s,diclocal,pt,sit,ta, |
|
./pkg/dic/carbon_chem.F |
220 |
CALC_PCO2 |
& pt*x2*(3.0*a-x*da)/a2 |
|
./pkg/dic/carbon_chem.F |
266 |
CALC_PCO2 |
& pt*k12p*x/a + |
|
./pkg/dic/carbon_chem.F |
267 |
CALC_PCO2 |
& 2.0*pt*k123p/a + |
|
./pkg/dic/carbon_chem.F |
272 |
CALC_PCO2 |
& pt*x3/a - |
|
./pkg/dic/carbon_chem.F |
325 |
CALC_PCO2 |
pt=pt/permil |
|
./pkg/dic/carbon_chem.F |
340 |
CALC_PCO2_APPROX |
I t,s,diclocal,pt,sit,ta, |
|
./pkg/dic/carbon_chem.F |
383 |
CALC_PCO2_APPROX |
_RL t, s, pt, sit, ta |
|
./pkg/dic/carbon_chem.F |
417 |
CALC_PCO2_APPROX |
pt=pt*permil |
|
./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 |
482 |
CALC_PCO2_APPROX |
pt=pt/permil |
|
./pkg/dic/carbon_chem.F |
60 |
CALC_PCO2 |
_RL t, s, pt, sit, ta |