| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
1120 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(surfkz, 'GM_SFLYR',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
151 |
GMREDI_K3D |
_RL surfkz(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_k3d.F |
620 |
GMREDI_K3D |
surfkz(i,j) = MIN(-GM_K3D_surfMinDepth,-hMixLayer(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
621 |
GMREDI_K3D |
surfkz(i,j) = MAX(surfkz(i,j),R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
622 |
GMREDI_K3D |
IF(maskC(i,j,1,bi,bj).EQ.0.0) surfkz(i,j)=0.0 |
|
./pkg/gmredi/gmredi_k3d.F |
629 |
GMREDI_K3D |
IF (rF(k).GT.surfkz(i,j) .AND. surfkz(i,j).GE.rF(k+1)) |
|
./pkg/gmredi/gmredi_k3d.F |
733 |
GMREDI_K3D |
hsurf = -surfkz(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
752 |
GMREDI_K3D |
hsurf = -surfkz(i,j) |