File |
Line number |
Procedure |
Code |
./pkg/gmredi/gmredi_slope_limit.F |
113 |
GMREDI_SLOPE_LIMIT |
_RL f1,Smod,f2,Rnondim |
./pkg/gmredi/gmredi_slope_limit.F |
570 |
GMREDI_SLOPE_LIMIT |
Rnondim= -depthZ(k)/(Lrho(i,j)*Smod) |
./pkg/gmredi/gmredi_slope_limit.F |
571 |
GMREDI_SLOPE_LIMIT |
IF ( Rnondim.GE.1. _d 0 ) THEN |
./pkg/gmredi/gmredi_slope_limit.F |
574 |
GMREDI_SLOPE_LIMIT |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
./pkg/gmredi/gmredi_slope_psi.F |
332 |
GMREDI_SLOPE_PSI |
Rnondim = -depthZ/(LrhoW(i,j)*Smod) |
./pkg/gmredi/gmredi_slope_psi.F |
334 |
GMREDI_SLOPE_PSI |
Rnondim = 1. |
./pkg/gmredi/gmredi_slope_psi.F |
336 |
GMREDI_SLOPE_PSI |
IF ( Rnondim.GE.1. _d 0 ) THEN |
./pkg/gmredi/gmredi_slope_psi.F |
339 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
./pkg/gmredi/gmredi_slope_psi.F |
352 |
GMREDI_SLOPE_PSI |
Rnondim = -depthZ/(LrhoS(i,j)*Smod) |
./pkg/gmredi/gmredi_slope_psi.F |
354 |
GMREDI_SLOPE_PSI |
Rnondim = 1. |
./pkg/gmredi/gmredi_slope_psi.F |
356 |
GMREDI_SLOPE_PSI |
IF ( Rnondim.GE.1. _d 0 ) THEN |
./pkg/gmredi/gmredi_slope_psi.F |
359 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
./pkg/gmredi/gmredi_slope_psi.F |
62 |
GMREDI_SLOPE_PSI |
_RL f1,Smod,f2,Rnondim |