| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
889 |
ASTRO |
_RL pi, zero, one, two, six, dg2rd, yrlen, eqnx, ob, ecc, per |
|
./pkg/fizhi/fizhi_clockstuff.F |
892 |
ASTRO |
parameter ( one = 1.0 ) |
|
./pkg/fizhi/fizhi_moist.F |
1655 |
CLOUD |
_RL daylen,half,one,zero,cmb2pa,rhmax |
|
./pkg/fizhi/fizhi_moist.F |
2384 |
RNEVP |
_RL zm1p04,zero,two89,zp44,zp01,half,zp578,one,z3600,z1800 |
|
./pkg/fizhi/fizhi_moist.F |
50 |
MOISTIO |
_RL one |
|
./pkg/fizhi/fizhi_moist.F |
51 |
MOISTIO |
parameter (one=1.) |
|
./pkg/fizhi/fizhi_moist.F |
656 |
MOISTIO |
. CLSBTH,TMSTP,one,cp,grav,alhl,gamfac,cldlz,rhcrit,offset,alpha) |
|
./pkg/fizhi/fizhi_swrad.F |
1982 |
DELEDD |
_RL zero,one,two,three,four,fourth,seven,tumin |
|
./pkg/fizhi/fizhi_swrad.F |
1983 |
DELEDD |
parameter (one=1., three=3.) |
|
./pkg/fizhi/fizhi_swrad.F |
1999 |
DELEDD |
zth = one / csm |
|
./pkg/fizhi/fizhi_swrad.F |
2006 |
DELEDD |
xx = one-ff*ssc |
|
./pkg/fizhi/fizhi_swrad.F |
2008 |
DELEDD |
sscp= ssc*(one-ff)/xx |
|
./pkg/fizhi/fizhi_swrad.F |
2009 |
DELEDD |
gp = g0/(one+g0) |
|
./pkg/fizhi/fizhi_swrad.F |
2021 |
DELEDD |
gm2 = -(one - sscp*(four-xx))*fourth |
|
./pkg/fizhi/fizhi_swrad.F |
2039 |
DELEDD |
bll = (one - gm3 + alf1*zth)*xx |
|
./pkg/fizhi/fizhi_swrad.F |
2042 |
DELEDD |
st7 = one - xx |
|
./pkg/fizhi/fizhi_swrad.F |
2043 |
DELEDD |
st8 = one + xx |
|
./pkg/fizhi/fizhi_swrad.F |
2049 |
DELEDD |
xx = akk * (one-gm3) |
|
./pkg/fizhi/fizhi_swrad.F |
2106 |
SAGPOL |
_RL one,three,four |
|
./pkg/fizhi/fizhi_swrad.F |
2107 |
SAGPOL |
parameter (one=1., three=3., four=4.) |
|
./pkg/fizhi/fizhi_swrad.F |
2121 |
SAGPOL |
xx = one-ssc*g0 |
|
./pkg/fizhi/fizhi_swrad.F |
2122 |
SAGPOL |
uuu = sqrt( xx/(one-ssc)) |
|
./pkg/fizhi/fizhi_swrad.F |
2123 |
SAGPOL |
ttt = sqrt( xx*(one-ssc)*three )*tau |
|
./pkg/fizhi/fizhi_swrad.F |
2125 |
SAGPOL |
up1 = uuu + one |
|
./pkg/fizhi/fizhi_swrad.F |
2126 |
SAGPOL |
um1 = uuu - one |
|
./pkg/fizhi/fizhi_swrad.F |
2128 |
SAGPOL |
st1 = one / ((up1+xx) * (up1-xx)) |
|
./pkg/fizhi/fizhi_swrad.F |
2129 |
SAGPOL |
rll = up1*um1*(one-emt*emt)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2145 |
SAGPOL |
_RL one,expmin,e1,e2,e3,e4 |
|
./pkg/fizhi/fizhi_swrad.F |
2146 |
SAGPOL |
parameter (one=1.0, expmin=-10.0) |
|
./pkg/fizhi/fizhi_swrad.F |
2153 |
SAGPOL |
expmn = one / (expmn * expmn) |
|
./pkg/fizhi/fizhi_utils.F |
677 |
MSC2GRD |
_RL zero,one |
|
./pkg/fizhi/fizhi_utils.F |
678 |
MSC2GRD |
parameter ( one = 1.) |
|
./pkg/fizhi/update_chemistry_exports.F |
305 |
INTERP_OZ |
_RL zero,one,o3min,voltomas |
|
./pkg/fizhi/update_chemistry_exports.F |
341 |
INTERP_OZ |
slope(i) = one |
|
./pkg/fizhi/update_earth_exports.F |
702 |
GETLGR |
_RL one,daylen |
|
./pkg/fizhi/update_earth_exports.F |
704 |
GETLGR |
parameter (one = 1.) |
|
./pkg/fizhi/update_earth_exports.F |
862 |
GETALB |
_RL one,a0,a1,a2,a3,ocnalb,albsi |
|
./pkg/fizhi/update_earth_exports.F |
863 |
GETALB |
PARAMETER (one = 1.) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
45 |
MOM_U_CORIOLIS |
_RS one |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
46 |
MOM_U_CORIOLIS |
PARAMETER( one = 1. _d 0 ) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
82 |
MOM_U_CORIOLIS |
& *4. _d 0/MAX( one, |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
45 |
MOM_V_CORIOLIS |
_RS one |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
46 |
MOM_V_CORIOLIS |
PARAMETER( one = 1. _d 0 ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
80 |
MOM_V_CORIOLIS |
& *4. _d 0/MAX( one, |
|
./model/src/calc_phi_hyd.F |
291 |
CALC_PHI_HYD |
& (one/locAlpha - recip_rhoConst) |
|
./model/src/calc_phi_hyd.F |
338 |
CALC_PHI_HYD |
rec_dRm = one/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
339 |
CALC_PHI_HYD |
rec_dRp = one/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
374 |
CALC_PHI_HYD |
& *( tFld(i,j,k,bi,bj)*(sFld(i,j,k,bi,bj)*atm_Rq+one) |
|
./model/src/calc_phi_hyd.F |
469 |
CALC_PHI_HYD |
rec_dRm = one/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
470 |
CALC_PHI_HYD |
rec_dRp = one/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
81 |
CALC_PHI_HYD |
_RL zero, one, half |
|
./model/src/calc_phi_hyd.F |
86 |
CALC_PHI_HYD |
PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 ) |
|
./model/src/diags_phi_rlow.F |
62 |
DIAGS_PHI_RLOW |
_RL zero, one, half |
|
./model/src/diags_phi_rlow.F |
64 |
DIAGS_PHI_RLOW |
PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 ) |
|
./model/src/diags_phi_rlow.F |
98 |
DIAGS_PHI_RLOW |
ratioRm = one |
|
./model/src/diags_phi_rlow.F |
99 |
DIAGS_PHI_RLOW |
ratioRp = one |
|
./pkg/salt_plume/salt_plume_frac.F |
103 |
SALT_PLUME_FRAC |
dd20 = one |
|
./pkg/salt_plume/salt_plume_frac.F |
105 |
SALT_PLUME_FRAC |
plumek(i) = one - min(one,(facz-dd)/(dd20-dd)) |
|
./pkg/salt_plume/salt_plume_frac.F |
112 |
SALT_PLUME_FRAC |
tempN = one !input depth temp |
|
./pkg/salt_plume/salt_plume_frac.F |
113 |
SALT_PLUME_FRAC |
tempN20 = one |
|
./pkg/salt_plume/salt_plume_frac.F |
119 |
SALT_PLUME_FRAC |
plumek(i) = one - min(one,two/dd20*facz-tempN/tempN20) |
|
./pkg/salt_plume/salt_plume_frac.F |
121 |
SALT_PLUME_FRAC |
plumek(i) = one - min(one, |
|
./pkg/salt_plume/salt_plume_frac.F |
64 |
SALT_PLUME_FRAC |
_RL one, two, three, tempN, tempN20 |
|
./pkg/salt_plume/salt_plume_frac.F |
65 |
SALT_PLUME_FRAC |
parameter( one = 1. _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./pkg/salt_plume/salt_plume_frac.F |
74 |
SALT_PLUME_FRAC |
tempN = one !input depth temp |
|
./pkg/salt_plume/salt_plume_frac.F |
75 |
SALT_PLUME_FRAC |
tempN20 = one |
|
./pkg/salt_plume/salt_plume_frac.F |
80 |
SALT_PLUME_FRAC |
plumek(i) = one - min(one,tempN/tempN20) |
|
./pkg/salt_plume/salt_plume_frac.F |
84 |
SALT_PLUME_FRAC |
plumek(i) = one - |
|
./pkg/salt_plume/salt_plume_frac.F |
85 |
SALT_PLUME_FRAC |
& (exp(facz/dd)-one)/ |
|
./pkg/salt_plume/salt_plume_frac.F |
86 |
SALT_PLUME_FRAC |
& (exp(one )-one) |
|
./pkg/salt_plume/salt_plume_frac.F |
95 |
SALT_PLUME_FRAC |
plumek(i) = one - min(one,(facz-dd)/(dd20-dd)) |
|
./pkg/salt_plume/salt_plume_frac.F |
97 |
SALT_PLUME_FRAC |
plumek(i) = one |
|
./pkg/admtlm/admtlm_dsvd.F |
192 |
ADMTLM_DSVD |
& one, zero |
|
./pkg/admtlm/admtlm_dsvd.F |
193 |
ADMTLM_DSVD |
parameter (one = 1.0D+0, zero = 0.0D+0) |
|
./pkg/admtlm/admtlm_dsvd.F |
601 |
ADMTLM_DSVD |
temp = one / dnrm2( m, u(l,j), 1 ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
122 |
BULKF_FORMULA_LAY |
_RL half, one, two |
|
./pkg/bulk_force/bulkf_formula_lay.F |
128 |
BULKF_FORMULA_LAY |
DATA half, one, two |
|
./pkg/bulk_force/bulkf_formula_lay.F |
155 |
BULKF_FORMULA_LAY |
t0 = Ta*(one + humid_fac*Qa) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
176 |
BULKF_FORMULA_LAY |
rhn = stable*cStantonS + (one-stable)*cStantonU |
|
./pkg/bulk_force/bulkf_formula_lay.F |
190 |
BULKF_FORMULA_LAY |
& +qstar/(Qa + one/humid_fac) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
194 |
BULKF_FORMULA_LAY |
xsq = SQRT( ABS(one - huol*16. _d 0) ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
197 |
BULKF_FORMULA_LAY |
& + (one-stable)* |
|
./pkg/bulk_force/bulkf_formula_lay.F |
198 |
BULKF_FORMULA_LAY |
& ( LOG( (one + two*x + xsq)*(one+xsq)*.125 ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
201 |
BULKF_FORMULA_LAY |
xsq = SQRT( ABS(one - htol*16. _d 0) ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
203 |
BULKF_FORMULA_LAY |
& + (one-stable)*( two*LOG(half*(one+xsq)) ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
206 |
BULKF_FORMULA_LAY |
usn = ws/(one + rdn/xkar*(zwln-psimh) ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
212 |
BULKF_FORMULA_LAY |
rhn = stable*cStantonS + (one-stable)*cStantonU |
|
./pkg/chronos/chronos.F |
740 |
ASTRO |
_RL pi, zero, one, two, six, dg2rd, yrlen, eqnx, ob, ecc, per |
|
./pkg/chronos/chronos.F |
745 |
ASTRO |
parameter ( one = 1.0 ) |