| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
112 |
GMREDI_CALC_PSI_B |
O taperX, taperY, |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
145 |
GMREDI_CALC_PSI_B |
GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
54 |
GMREDI_CALC_PSI_B |
_RL taperY(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_slope_psi.F |
170 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
239 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
249 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
277 |
GMREDI_SLOPE_PSI |
& taperY(i,j)=GM_maxSlope/(Smod+GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
297 |
GMREDI_SLOPE_PSI |
& taperY(i,j)=maxSlopeSqr/ |
|
./pkg/gmredi/gmredi_slope_psi.F |
314 |
GMREDI_SLOPE_PSI |
taperY(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
357 |
GMREDI_SLOPE_PSI |
taperY(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_psi.F |
413 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
43 |
GMREDI_SLOPE_PSI |
_RL taperY(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_slope_psi.F |
441 |
GMREDI_SLOPE_PSI |
taperY(i,j)=1. |
|
./pkg/gmredi/gmredi_slope_psi.F |
8 |
GMREDI_SLOPE_PSI |
O taperX, taperY, |