| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
1112 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(surfkz, 'GM_SFLYR',0, 1,0,1,1,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
151 |
GMREDI_K3D |
_RL surfkz(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_k3d.F |
609 |
GMREDI_K3D |
surfkz(i,j) = MIN(-GM_K3D_surfMinDepth,-hMixLayer(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
610 |
GMREDI_K3D |
surfkz(i,j) = MAX(surfkz(i,j),R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
611 |
GMREDI_K3D |
IF(maskC(i,j,1,bi,bj).EQ.0.0) surfkz(i,j)=0.0 |
|
./pkg/gmredi/gmredi_k3d.F |
618 |
GMREDI_K3D |
IF (rF(k).GT.surfkz(i,j) .AND. surfkz(i,j).GE.rF(k+1)) |
|
./pkg/gmredi/gmredi_k3d.F |
724 |
GMREDI_K3D |
hsurf = -surfkz(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
743 |
GMREDI_K3D |
hsurf = -surfkz(i,j) |