| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
1129 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(slopeC, 'GM_SLOPE',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
305 |
GMREDI_K3D |
slopeC(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
511 |
GMREDI_K3D |
slopeC(i,j,k) = SQRT(M4loc(i,j,k))/N2loc(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
513 |
GMREDI_K3D |
IF (slopeC(i,j,k).LE.GM_maxSlope) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
516 |
GMREDI_K3D |
slopeC(i,j,k) = GM_maxslope |
|
./pkg/gmredi/gmredi_k3d.F |
80 |
GMREDI_K3D |
_RL slopeC(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |