Symbol Description Uses
surfk index of the depth of the surface layer 9



File Line number Procedure Code
./pkg/gmredi/gmredi_k3d.F 60 GMREDI_K3D
      INTEGER surfk(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/gmredi/gmredi_k3d.F 612 GMREDI_K3D
        surfk(i,j) = 0
./pkg/gmredi/gmredi_k3d.F 619 GMREDI_K3D
     &        surfk(i,j) = k
./pkg/gmredi/gmredi_k3d.F 634 GMREDI_K3D
         IF(surfk(i,j).GE.kLowC(i,j,bi,bj)) THEN
./pkg/gmredi/gmredi_k3d.F 709 GMREDI_K3D
           IF(k.LE.surfk(i,j)) THEN 
./pkg/gmredi/gmredi_k3d.F 719 GMREDI_K3D
               IF(kLow_U(i,j).LT.surfk(i,j)) THEN
./pkg/gmredi/gmredi_k3d.F 723 GMREDI_K3D
                 kk=surfk(i,j)
./pkg/gmredi/gmredi_k3d.F 738 GMREDI_K3D
               IF(kLow_V(i,j).LT.surfk(i,j)) THEN
./pkg/gmredi/gmredi_k3d.F 742 GMREDI_K3D
                 kk=surfk(i,j)