| File |
Line number |
Procedure |
Code |
|
./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/mom_fluxform/mom_u_coriolis.F |
46 |
MOM_U_CORIOLIS |
_RL one |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
47 |
MOM_U_CORIOLIS |
PARAMETER(one=1.d0) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
83 |
MOM_U_CORIOLIS |
& *4.d0/max(one, maskS( i , j ,k,bi,bj)+maskS( i ,j+1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
46 |
MOM_V_CORIOLIS |
_RL one |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
47 |
MOM_V_CORIOLIS |
PARAMETER(one=1.d0) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
81 |
MOM_V_CORIOLIS |
& *4.d0/max(one, maskW( i , j ,k,bi,bj)+maskW(i+1, j ,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_init.F |
49 |
ZONAL_FILT_INIT |
_RL one |
|
./pkg/zonal_filt/zonal_filt_init.F |
50 |
ZONAL_FILT_INIT |
PARAMETER( one = 1.0 ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
52 |
ZONAL_FILT_INIT |
ampfact(Y,I) = min( one, |
|
./pkg/zonal_filt/zonal_filt_init.F |
69 |
ZONAL_FILT_INIT |
ampFactor(1,J,bi,bj) = one |
|
./pkg/zonal_filt/zonal_filt_init.F |
70 |
ZONAL_FILT_INIT |
ampFactorV(1,J,bi,bj) = one |
|
./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/fizhi/fizhi_utils.F |
675 |
MSC2GRD |
_RL zero,one |
|
./pkg/fizhi/fizhi_utils.F |
676 |
MSC2GRD |
parameter ( one = 1.) |
|
./pkg/fizhi/fizhi_clockstuff.F |
917 |
ASTRO |
_RL pi, zero, one, two, six, dg2rd, yrlen, eqnx, ob, ecc, per |
|
./pkg/fizhi/fizhi_clockstuff.F |
922 |
ASTRO |
parameter ( one = 1.0 ) |
|
./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 |
698 |
GETLGR |
_RL one,daylen |
|
./pkg/fizhi/update_earth_exports.F |
700 |
GETLGR |
parameter (one = 1.) |
|
./pkg/fizhi/update_earth_exports.F |
858 |
GETALB |
_RL one,a0,a1,a2,a3,ocnalb,albsi |
|
./pkg/fizhi/update_earth_exports.F |
859 |
GETALB |
PARAMETER (one = 1.) |
|
./pkg/fizhi/fizhi_moist.F |
1595 |
CLOUD |
_RL daylen,half,one,zero,cmb2pa,rhmax |
|
./pkg/fizhi/fizhi_moist.F |
2312 |
RNEVP |
_RL zm1p04,zero,two89,zp44,zp01,half,zp578,one,thousand,z3600 |
|
./pkg/fizhi/fizhi_moist.F |
50 |
MOISTIO |
_RL one |
|
./pkg/fizhi/fizhi_moist.F |
51 |
MOISTIO |
parameter (one=1.) |
|
./pkg/fizhi/fizhi_moist.F |
632 |
MOISTIO |
. CLSBTH,TMSTP,one,cp,grav,alhl,gamfac,cldlz,rhcrit,offset,alpha) |
|
./pkg/fizhi/fizhi_swrad.F |
1974 |
DELEDD |
_RL zero,one,two,three,four,fourth,seven,tumin |
|
./pkg/fizhi/fizhi_swrad.F |
1975 |
DELEDD |
parameter (one=1., three=3.) |
|
./pkg/fizhi/fizhi_swrad.F |
1991 |
DELEDD |
zth = one / csm |
|
./pkg/fizhi/fizhi_swrad.F |
1998 |
DELEDD |
xx = one-ff*ssc |
|
./pkg/fizhi/fizhi_swrad.F |
2000 |
DELEDD |
sscp= ssc*(one-ff)/xx |
|
./pkg/fizhi/fizhi_swrad.F |
2001 |
DELEDD |
gp = g0/(one+g0) |
|
./pkg/fizhi/fizhi_swrad.F |
2013 |
DELEDD |
gm2 = -(one - sscp*(four-xx))*fourth |
|
./pkg/fizhi/fizhi_swrad.F |
2031 |
DELEDD |
bll = (one - gm3 + alf1*zth)*xx |
|
./pkg/fizhi/fizhi_swrad.F |
2034 |
DELEDD |
st7 = one - xx |
|
./pkg/fizhi/fizhi_swrad.F |
2035 |
DELEDD |
st8 = one + xx |
|
./pkg/fizhi/fizhi_swrad.F |
2041 |
DELEDD |
xx = akk * (one-gm3) |
|
./pkg/fizhi/fizhi_swrad.F |
2098 |
SAGPOL |
_RL one,three,four |
|
./pkg/fizhi/fizhi_swrad.F |
2099 |
SAGPOL |
parameter (one=1., three=3., four=4.) |
|
./pkg/fizhi/fizhi_swrad.F |
2113 |
SAGPOL |
xx = one-ssc*g0 |
|
./pkg/fizhi/fizhi_swrad.F |
2114 |
SAGPOL |
uuu = sqrt( xx/(one-ssc)) |
|
./pkg/fizhi/fizhi_swrad.F |
2115 |
SAGPOL |
ttt = sqrt( xx*(one-ssc)*three )*tau |
|
./pkg/fizhi/fizhi_swrad.F |
2117 |
SAGPOL |
up1 = uuu + one |
|
./pkg/fizhi/fizhi_swrad.F |
2118 |
SAGPOL |
um1 = uuu - one |
|
./pkg/fizhi/fizhi_swrad.F |
2120 |
SAGPOL |
st1 = one / ((up1+xx) * (up1-xx)) |
|
./pkg/fizhi/fizhi_swrad.F |
2121 |
SAGPOL |
rll = up1*um1*(one-emt*emt)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2137 |
SAGPOL |
_RL one,expmin,e1,e2,e3,e4 |
|
./pkg/fizhi/fizhi_swrad.F |
2138 |
SAGPOL |
parameter (one=1.0, expmin=-10.0) |
|
./pkg/fizhi/fizhi_swrad.F |
2145 |
SAGPOL |
expmn = one / (expmn * expmn) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
919 |
ASTRO |
_RL pi, zero, one, two, six, dg2rd, yrlen, eqnx, ob, ecc, per |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
924 |
ASTRO |
parameter ( one = 1.0 ) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
698 |
GETLGR |
_RL one,daylen |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
700 |
GETLGR |
parameter (one = 1.) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
858 |
GETALB |
_RL one,a0,a1,a2,a3,ocnalb,albsi |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
859 |
GETALB |
PARAMETER (one = 1.) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1974 |
DELEDD |
_RL zero,one,two,three,four,fourth,seven,tumin |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1975 |
DELEDD |
parameter (one=1., three=3.) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1991 |
DELEDD |
zth = one / csm |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1998 |
DELEDD |
xx = one-ff*ssc |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2000 |
DELEDD |
sscp= ssc*(one-ff)/xx |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2001 |
DELEDD |
gp = g0/(one+g0) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2013 |
DELEDD |
gm2 = -(one - sscp*(four-xx))*fourth |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2031 |
DELEDD |
bll = (one - gm3 + alf1*zth)*xx |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2034 |
DELEDD |
st7 = one - xx |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2035 |
DELEDD |
st8 = one + xx |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2041 |
DELEDD |
xx = akk * (one-gm3) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2098 |
SAGPOL |
_RL one,three,four |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2099 |
SAGPOL |
parameter (one=1., three=3., four=4.) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2113 |
SAGPOL |
xx = one-ssc*g0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2114 |
SAGPOL |
uuu = sqrt( xx/(one-ssc)) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2115 |
SAGPOL |
ttt = sqrt( xx*(one-ssc)*three )*tau |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2117 |
SAGPOL |
up1 = uuu + one |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2118 |
SAGPOL |
um1 = uuu - one |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2120 |
SAGPOL |
st1 = one / ((up1+xx) * (up1-xx)) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2121 |
SAGPOL |
rll = up1*um1*(one-emt*emt)*st1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2137 |
SAGPOL |
_RL one,expmin,e1,e2,e3,e4 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2138 |
SAGPOL |
parameter (one=1.0, expmin=-10.0) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2145 |
SAGPOL |
expmn = one / (expmn * expmn) |
|
./model/src/calc_phi_hyd.F |
265 |
CALC_PHI_HYD |
& (one/locAlpha - recip_rhoConst) |
|
./model/src/calc_phi_hyd.F |
312 |
CALC_PHI_HYD |
rec_dRm = one/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
313 |
CALC_PHI_HYD |
rec_dRp = one/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
348 |
CALC_PHI_HYD |
& *( tFld(i,j,k,bi,bj)*(sFld(i,j,k,bi,bj)*atm_Rq+one) |
|
./model/src/calc_phi_hyd.F |
443 |
CALC_PHI_HYD |
rec_dRm = one/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
444 |
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 |
87 |
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 |
89 |
DIAGS_PHI_RLOW |
ratioRm = one |
|
./model/src/diags_phi_rlow.F |
90 |
DIAGS_PHI_RLOW |
ratioRp = one |
|
./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 ) |