| File |
Line number |
Procedure |
Code |
|
./model/src/gsw_teos10.F |
100 |
NO PROCEDURE |
ct_diff = gsw_ct_from_pt(sa,pt) - CT |
|
./model/src/gsw_teos10.F |
101 |
NO PROCEDURE |
pt_old = pt |
|
./model/src/gsw_teos10.F |
131 |
NO PROCEDURE |
_RL sa, pt |
|
./model/src/gsw_teos10.F |
148 |
NO PROCEDURE |
y = pt*0.025 _d 0 |
|
./model/src/gsw_teos10.F |
56 |
NO PROCEDURE |
_RL pt, pt_old, ptm, dct_dpt |
|
./model/src/gsw_teos10.F |
85 |
NO PROCEDURE |
pt = (pt_num)/(pt_den) |
|
./model/src/gsw_teos10.F |
87 |
NO PROCEDURE |
dct_dpt = (pt_den)/(ct_factor + a5ct - (b2 + b3ct + b3ct)*pt) |
|
./model/src/gsw_teos10.F |
92 |
NO PROCEDURE |
ct_diff = gsw_ct_from_pt(sa,pt) - CT |
|
./model/src/gsw_teos10.F |
93 |
NO PROCEDURE |
pt_old = pt |
|
./model/src/gsw_teos10.F |
94 |
NO PROCEDURE |
pt = pt_old - (ct_diff)/dct_dpt |
|
./model/src/gsw_teos10.F |
95 |
NO PROCEDURE |
ptm = 0.5 _d 0*(pt + pt_old) |
|
./model/src/gsw_teos10.F |
99 |
NO PROCEDURE |
pt = pt_old - (ct_diff)/dct_dpt |
|
./pkg/bling/bling_carbon_chem.F |
132 |
CALC_PCO2 |
pt=pt*permil |
|
./pkg/bling/bling_carbon_chem.F |
16 |
CALC_PCO2 |
I t,s,diclocal,pt,sit,ta, |
|
./pkg/bling/bling_carbon_chem.F |
192 |
CALC_PCO2 |
& pt*k12p*x/a + |
|
./pkg/bling/bling_carbon_chem.F |
193 |
CALC_PCO2 |
& 2.0*pt*k123p/a + |
|
./pkg/bling/bling_carbon_chem.F |
198 |
CALC_PCO2 |
& pt*x3/a - |
|
./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 |
261 |
CALC_PCO2 |
& pt*k12p*x/a + |
|
./pkg/bling/bling_carbon_chem.F |
262 |
CALC_PCO2 |
& 2.0*pt*k123p/a + |
|
./pkg/bling/bling_carbon_chem.F |
267 |
CALC_PCO2 |
& pt*x3/a - |
|
./pkg/bling/bling_carbon_chem.F |
315 |
CALC_PCO2 |
pt=pt/permil |
|
./pkg/bling/bling_carbon_chem.F |
327 |
CALC_PCO2_APPROX |
I t,s,diclocal,pt,sit,ta, |
|
./pkg/bling/bling_carbon_chem.F |
369 |
CALC_PCO2_APPROX |
_RL t, s, pt, sit, ta |
|
./pkg/bling/bling_carbon_chem.F |
403 |
CALC_PCO2_APPROX |
pt=pt*permil |
|
./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 |
467 |
CALC_PCO2_APPROX |
pt=pt/permil |
|
./pkg/bling/bling_carbon_chem.F |
55 |
CALC_PCO2 |
_RL t, s, pt, sit, ta |
|
./pkg/cheapaml/cheapaml.F |
477 |
CHEAPAML |
pt=p0*(1-gamma_blk*CheapHgrid(i,j,bi,bj)/ts) |
|
./pkg/cheapaml/cheapaml.F |
482 |
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 |