File |
Line number |
Procedure |
Code |
./pkg/my82/my82_ri_number.F |
142 |
MY82_RI_NUMBER |
& + p125*RiTmp(I-1,J) + p125*RiTmp(I+1,J) |
./pkg/my82/my82_ri_number.F |
143 |
MY82_RI_NUMBER |
& + p125*RiTmp(I,J-1) + p125*RiTmp(I,J+1) |
./pkg/my82/my82_ri_number.F |
67 |
MY82_RI_NUMBER |
_RL p5 , p125 |
./pkg/my82/my82_ri_number.F |
68 |
MY82_RI_NUMBER |
PARAMETER( p5=0.5D0, p125=0.125D0 ) |
./pkg/kpp/kpp_calc.F |
138 |
KPP_CALC |
_KPP_RL p0 , p5 , p25 , p125 , p0625 |
./pkg/kpp/kpp_calc.F |
139 |
KPP_CALC |
parameter( p0=0.0, p5=0.5, p25=0.25, p125=0.125, p0625=0.0625 ) |
./pkg/kpp/kpp_calc.F |
529 |
KPP_CALC |
dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * ( |
./pkg/kpp/kpp_calc.F |
570 |
KPP_CALC |
dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * ( |
./pkg/kpp/kpp_calc.F |
613 |
KPP_CALC |
shsq(i,j,k) = p5 * shsq(i,j,k) + p125 * ( |
./pkg/kpp/kpp_routines.F |
1014 |
SMOOTH_HORIZ |
_RL p0 , p5 , p25 , p125 , p0625 |
./pkg/kpp/kpp_routines.F |
1015 |
SMOOTH_HORIZ |
parameter( p0=0.0, p5=0.5, p25=0.25, p125=0.125, p0625=0.0625 ) |
./pkg/kpp/kpp_routines.F |
1025 |
SMOOTH_HORIZ |
& p125 * ( maskC(im1,j ,k,bi,bj) + |
./pkg/kpp/kpp_routines.F |
1036 |
SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
./pkg/kpp/kpp_routines.F |
933 |
KPP_SMOOTH_HORIZ |
_KPP_RL p0 , p5 , p25 , p125 , p0625 |
./pkg/kpp/kpp_routines.F |
934 |
KPP_SMOOTH_HORIZ |
parameter( p0=0.0, p5=0.5, p25=0.25, p125=0.125, p0625=0.0625 ) |
./pkg/kpp/kpp_routines.F |
944 |
KPP_SMOOTH_HORIZ |
& p125 * ( maskC(im1,j ,k,bi,bj) + |
./pkg/kpp/kpp_routines.F |
955 |
KPP_SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
./pkg/ctrl/ctrl_smooth.F |
32 |
CTRL_SMOOTH |
_RL p0 , p5 , p25 , p125 , p0625 |
./pkg/ctrl/ctrl_smooth.F |
33 |
CTRL_SMOOTH |
parameter( p0=0.0, p5=0.5, p25=0.25, p125=0.125, p0625=0.0625 ) |
./pkg/ctrl/ctrl_smooth.F |
49 |
CTRL_SMOOTH |
& p125 * ( mask(im1,j ,k,bi,bj) + |
./pkg/ctrl/ctrl_smooth.F |
60 |
CTRL_SMOOTH |
& p125 *(fld(im1,j ,bi,bj )*mask(im1,j ,k,bi,bj) + |
./pkg/pp81/pp81_ri_number.F |
141 |
PP81_RI_NUMBER |
& + p125*RiTmp(I-1,J) + p125*RiTmp(I+1,J) |
./pkg/pp81/pp81_ri_number.F |
142 |
PP81_RI_NUMBER |
& + p125*RiTmp(I,J-1) + p125*RiTmp(I,J+1) |
./pkg/pp81/pp81_ri_number.F |
65 |
PP81_RI_NUMBER |
_RL p5 , p125 |
./pkg/pp81/pp81_ri_number.F |
66 |
PP81_RI_NUMBER |
PARAMETER( p5=0.5, p125=0.125 ) |