| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_psi.F |
256 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
257 |
GMREDI_SLOPE_PSI |
IF ( Smod .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
258 |
GMREDI_SLOPE_PSI |
& Smod .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
259 |
GMREDI_SLOPE_PSI |
& taperX(i,j)=GM_maxSlope/(Smod+GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
264 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
265 |
GMREDI_SLOPE_PSI |
IF ( Smod .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
266 |
GMREDI_SLOPE_PSI |
& Smod .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
267 |
GMREDI_SLOPE_PSI |
& taperY(i,j)=GM_maxSlope/(Smod+GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
297 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
298 |
GMREDI_SLOPE_PSI |
taperX(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
303 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
304 |
GMREDI_SLOPE_PSI |
taperY(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
314 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
315 |
GMREDI_SLOPE_PSI |
IF ( Smod .LT. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
316 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
317 |
GMREDI_SLOPE_PSI |
IF (Smod.NE.0.) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
318 |
GMREDI_SLOPE_PSI |
Rnondim=depthZ/(LrhoW(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_psi.F |
330 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
331 |
GMREDI_SLOPE_PSI |
IF ( Smod .LT. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
332 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
333 |
GMREDI_SLOPE_PSI |
IF (Smod.NE.0.) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
334 |
GMREDI_SLOPE_PSI |
Rnondim=depthZ/(LrhoS(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_psi.F |
61 |
GMREDI_SLOPE_PSI |
_RL f1,Smod,f2,Rnondim |
|
./pkg/gmredi/gmredi_slope_limit.F |
329 |
GMREDI_SLOPE_LIMIT |
Smod=sqrt(SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
330 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
344 |
GMREDI_SLOPE_LIMIT |
Smod=sqrt(SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
345 |
GMREDI_SLOPE_LIMIT |
f1=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
346 |
GMREDI_SLOPE_LIMIT |
Rnondim=depthZ/(Lrho(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_limit.F |
66 |
GMREDI_SLOPE_LIMIT |
_RL f1,Smod,f2,Rnondim |