| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2272 |
RNCL |
_RL p5,p8,pt8,pt2,pfac,p4,p6,p7,p9,cucld,cfac |
|
./pkg/kpp/kpp_calc.F |
148 |
KPP_CALC |
_RL p0 , p5 , p25 , p125 , p0625 |
|
./pkg/kpp/kpp_calc.F |
149 |
KPP_CALC |
parameter( p0=0.0, p5=0.5, p25=0.25, p125=0.125, p0625=0.0625 ) |
|
./pkg/kpp/kpp_calc.F |
463 |
KPP_CALC |
shsq(i,j,k) = p5 * ( |
|
./pkg/kpp/kpp_calc.F |
473 |
KPP_CALC |
shsq(i,j,k) = p5 * shsq(i,j,k) + p125 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
123 |
KPP_FORCING_SURF |
_RL p0 , p5 , p125 |
|
./pkg/kpp/kpp_forcing_surf.F |
124 |
KPP_FORCING_SURF |
PARAMETER( p0=0.0, p5=0.5, p125=0.125 ) |
|
./pkg/kpp/kpp_forcing_surf.F |
196 |
KPP_FORCING_SURF |
ustar(i,j) = SQRT( phepsi * p5 * drF(1) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
198 |
KPP_FORCING_SURF |
tempVar2 = SQRT( work3(i,j) ) * p5 |
|
./pkg/kpp/kpp_forcing_surf.F |
326 |
KPP_FORCING_SURF |
tempVar1 = p5 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
352 |
KPP_FORCING_SURF |
uRef(i,j) = p5 * ( uVel(i,j,1,bi,bj) + uVel(ip1,j,1,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
353 |
KPP_FORCING_SURF |
vRef(i,j) = p5 * ( vVel(i,j,1,bi,bj) + vVel(i,jp1,1,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
356 |
KPP_FORCING_SURF |
& surfForcU(ip1,j,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
358 |
KPP_FORCING_SURF |
& surfForcV(i,jp1,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
383 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
393 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
424 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
434 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * ( |
|
./pkg/kpp/kpp_routines.F |
1090 |
Z121 |
_RL p0 , p25 , p5 , p2 |
|
./pkg/kpp/kpp_routines.F |
1091 |
Z121 |
parameter ( p0 = 0.0, p25 = 0.25, p5 = 0.5, p2 = 2.0 ) |
|
./pkg/kpp/kpp_routines.F |
1111 |
Z121 |
KRi_range(k) = p5 + SIGN(p5,v(i,k)) |
|
./pkg/kpp/kpp_routines.F |
1113 |
Z121 |
& ( p5 + SIGN(p5,(Riinfty-v(i,k))) ) |
|
./pkg/kpp/kpp_routines.F |
1177 |
SMOOTH_HORIZ |
_RL p0 , p5 , p25 , p125 , p0625 |
|
./pkg/kpp/kpp_routines.F |
1178 |
SMOOTH_HORIZ |
parameter( p0=0.0, p5=0.5, p25=0.25, p125=0.125, p0625=0.0625 ) |
|
./pkg/kpp/kpp_routines.F |
390 |
BLDEPTH |
_RL p5 , eins |
|
./pkg/kpp/kpp_routines.F |
391 |
BLDEPTH |
parameter ( p5=0.5, eins=1.0 ) |
|
./pkg/kpp/kpp_routines.F |
490 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))*p5 |
|
./pkg/kpp/kpp_routines.F |
504 |
BLDEPTH |
stable(i) = p5 + sign(p5,bfsfc(i)) |
|
./pkg/kpp/kpp_routines.F |
523 |
BLDEPTH |
bvsq = p5 * |
|
./pkg/kpp/kpp_routines.F |
651 |
BLDEPTH |
stable(i) = p5 + sign( p5, bfsfc(i) ) |
|
./pkg/kpp/kpp_routines.F |
762 |
BLDEPTH |
stable(i) = p5 + sign( p5, bfsfc(i) ) |
|
./pkg/kpp/kpp_routines.F |
771 |
BLDEPTH |
casea(i) = p5 + |
|
./pkg/kpp/kpp_routines.F |
772 |
BLDEPTH |
1 sign(p5, -zgrid(kbl(i)) - p5*hwide(kbl(i)) - hbl(i)) |
|
./pkg/my82/my82_ri_number.F |
135 |
MY82_RI_NUMBER |
RiNumber(I,J) = p5*RiTmp(I,J) |
|
./pkg/my82/my82_ri_number.F |
61 |
MY82_RI_NUMBER |
_RL p5 , p125 |
|
./pkg/my82/my82_ri_number.F |
62 |
MY82_RI_NUMBER |
PARAMETER( p5=0.5D0, p125=0.125D0 ) |
|
./pkg/pp81/pp81_ri_number.F |
138 |
PP81_RI_NUMBER |
RiNumber(I,J) = p5*RiTmp(I,J) |
|
./pkg/pp81/pp81_ri_number.F |
63 |
PP81_RI_NUMBER |
_RL p5 , p125 |
|
./pkg/pp81/pp81_ri_number.F |
64 |
PP81_RI_NUMBER |
PARAMETER( p5=0.5, p125=0.125 ) |
|
./pkg/ctrl/ctrl_smooth.F |
33 |
CTRL_SMOOTH |
_RL p0 , p5 , p25 , p125 , p0625 |
|
./pkg/ctrl/ctrl_smooth.F |
34 |
CTRL_SMOOTH |
parameter( p0=0. _d 0 , p5=0.5 _d 0 , p25=0.25 _d 0 ) |
|
./pkg/ecco/cost_atlantic.F |
165 |
COST_ATLANTIC |
tv = tv+p5*(theta(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
213 |
COST_ATLANTIC |
$ +p5*(theta(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
79 |
COST_ATLANTIC |
_RL p5 |
|
./pkg/ecco/cost_atlantic.F |
80 |
COST_ATLANTIC |
parameter( p5 = 0.5 ) |
|
./pkg/ecco/cost_trans_merid.F |
204 |
COST_TRANS_MERID |
tv(isect) = tv(isect) + p5*(tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
209 |
COST_TRANS_MERID |
sv(isect) = sv(isect) + p5*(sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
214 |
COST_TRANS_MERID |
mv(isect) = mv(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
68 |
COST_TRANS_MERID |
_RL p5 |
|
./pkg/ecco/cost_trans_merid.F |
69 |
COST_TRANS_MERID |
parameter( p5 = 0.5 ) |
|
./pkg/ecco/cost_trans_zonal.F |
193 |
COST_TRANS_ZONAL |
tu(isect) = tu(isect) + p5*(tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
198 |
COST_TRANS_ZONAL |
su(isect) = su(isect) + p5*(sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
203 |
COST_TRANS_ZONAL |
mu(isect) = mu(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
68 |
COST_TRANS_ZONAL |
_RL p5 |
|
./pkg/ecco/cost_trans_zonal.F |
69 |
COST_TRANS_ZONAL |
parameter( p5 = 0.5 ) |