| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_limit.F |
110 |
GMREDI_SLOPE_LIMIT |
_RL f1,Smod,f2,Rnondim |
|
./pkg/gmredi/gmredi_slope_limit.F |
426 |
GMREDI_SLOPE_LIMIT |
Smod = MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
427 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = SlopeX(i,j)*Smod*taperFctLoc |
|
./pkg/gmredi/gmredi_slope_limit.F |
428 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = SlopeY(i,j)*Smod*taperFctLoc |
|
./pkg/gmredi/gmredi_slope_limit.F |
432 |
GMREDI_SLOPE_LIMIT |
& *Smod*taperFctHat |
|
./pkg/gmredi/gmredi_slope_limit.F |
438 |
GMREDI_SLOPE_LIMIT |
Smod = MIN( SlopeMod(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
439 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = SlopeX(i,j)*Smod |
|
./pkg/gmredi/gmredi_slope_limit.F |
440 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = SlopeY(i,j)*Smod |
|
./pkg/gmredi/gmredi_slope_limit.F |
444 |
GMREDI_SLOPE_LIMIT |
& *Smod |
|
./pkg/gmredi/gmredi_slope_limit.F |
618 |
GMREDI_SLOPE_LIMIT |
Smod=SQRT(SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
619 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
633 |
GMREDI_SLOPE_LIMIT |
Smod=SQRT(SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
634 |
GMREDI_SLOPE_LIMIT |
f1=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
635 |
GMREDI_SLOPE_LIMIT |
Rnondim= -depthZ(k)/(Lrho(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_psi.F |
266 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
267 |
GMREDI_SLOPE_PSI |
IF ( Smod .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
268 |
GMREDI_SLOPE_PSI |
& Smod .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
269 |
GMREDI_SLOPE_PSI |
& taperX(i,j)=GM_maxSlope/(Smod+GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
274 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
275 |
GMREDI_SLOPE_PSI |
IF ( Smod .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
276 |
GMREDI_SLOPE_PSI |
& Smod .LT. slopeCutoff ) |
|
./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 |
307 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
308 |
GMREDI_SLOPE_PSI |
taperX(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
313 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeY(i,j)) |
|
./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 |
324 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
325 |
GMREDI_SLOPE_PSI |
IF ( Smod .LT. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
326 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
327 |
GMREDI_SLOPE_PSI |
IF (Smod.NE.0.) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
328 |
GMREDI_SLOPE_PSI |
Rnondim = -depthZ/(LrhoW(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_psi.F |
344 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
345 |
GMREDI_SLOPE_PSI |
IF ( Smod .LT. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
346 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
347 |
GMREDI_SLOPE_PSI |
IF (Smod.NE.0.) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
348 |
GMREDI_SLOPE_PSI |
Rnondim = -depthZ/(LrhoS(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_psi.F |
59 |
GMREDI_SLOPE_PSI |
_RL f1,Smod,f2,Rnondim |