| 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 |
635 |
GMREDI_SLOPE_LIMIT |
Rnondim= -depthZ(k)/(Lrho(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_limit.F |
636 |
GMREDI_SLOPE_LIMIT |
IF ( Rnondim.GE.1. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
639 |
GMREDI_SLOPE_LIMIT |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
328 |
GMREDI_SLOPE_PSI |
Rnondim = -depthZ/(LrhoW(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_psi.F |
330 |
GMREDI_SLOPE_PSI |
Rnondim = 1. |
|
./pkg/gmredi/gmredi_slope_psi.F |
332 |
GMREDI_SLOPE_PSI |
IF ( Rnondim.GE.1. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
335 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
348 |
GMREDI_SLOPE_PSI |
Rnondim = -depthZ/(LrhoS(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_psi.F |
350 |
GMREDI_SLOPE_PSI |
Rnondim = 1. |
|
./pkg/gmredi/gmredi_slope_psi.F |
352 |
GMREDI_SLOPE_PSI |
IF ( Rnondim.GE.1. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
355 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
59 |
GMREDI_SLOPE_PSI |
_RL f1,Smod,f2,Rnondim |