Symbol Description Uses
ksurfW vertical index of the surface U point 25



File Line number Procedure Code
./pkg/obcs/obcs_apply_surf_dr.F 24 OBCS_APPLY_SURF_DR
      INTEGER ksurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
./pkg/obcs/obcs_apply_surf_dr.F 69 OBCS_APPLY_SURF_DR
        ks = ksurfW(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 78 OBCS_APPLY_SURF_DR
        ks = ksurfW(i+1,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 7 OBCS_APPLY_SURF_DR
     I                bi, bj, ksurfC, ksurfW, ksurfS,
./pkg/obcs/obcs_init_fixed.F 104 OBCS_INIT_FIXED
            k = ksurfW(i,j,bi,bj) 
./pkg/obcs/obcs_init_fixed.F 110 OBCS_INIT_FIXED
            k = ksurfW(i,j,bi,bj) 
./pkg/obcs/obcs_apply_r_star.F 24 OBCS_APPLY_R_STAR
      INTEGER ksurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/obcs/obcs_apply_r_star.F 70 OBCS_APPLY_R_STAR
        IF (ksurfW(i,j,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F 7 OBCS_APPLY_R_STAR
     I                bi, bj, ksurfC, ksurfW, ksurfS,
./pkg/obcs/obcs_apply_r_star.F 80 OBCS_APPLY_R_STAR
        IF (ksurfW(i+1,j,bi,bj).LE.Nr) THEN
./model/src/calc_surf_dr.F 196 CALC_SURF_DR
          ks = ksurfW(i,j,bi,bj)
./model/src/calc_surf_dr.F 91 CALC_SURF_DR
             IF ( ks.EQ.ksurfW(i,j,bi,bj))
./model/src/calc_surf_dr.F 93 CALC_SURF_DR
             IF ( ks.EQ.ksurfW(i+1,j,bi,bj)) 
./model/src/update_r_star.F 53 UPDATE_R_STAR
     I                    bi, bj, ksurfC, ksurfW, ksurfS,
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 286 INI_MASKS_ETC
          ksurfW(I,J,bi,bj) = Nr+1
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 289 INI_MASKS_ETC
           IF (hFacW(I,J,K,bi,bj).NE.0.) ksurfW(I,J,bi,bj) = k
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 295 INI_MASKS_ETC
          ksurfW(I,J,bi,bj) = Nr+1
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 298 INI_MASKS_ETC
           IF (hFacW(I,J,K,bi,bj).NE.0.) ksurfW(I,J,bi,bj) = k
./model/src/timestep.F 240 TIMESTEP
          IF ( k.EQ.ksurfW(i,j,bi,bj) ) THEN
./model/inc/SURFACE.h 36 NO PROCEDURE
      COMMON /SURF_INDEX/ ksurfC, ksurfW, ksurfS
./model/inc/SURFACE.h 38 NO PROCEDURE
      INTEGER ksurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./model/src/ini_masks_etc.F 267 INI_MASKS_ETC
          ksurfW(I,J,bi,bj) = Nr+1
./model/src/ini_masks_etc.F 270 INI_MASKS_ETC
           IF (hFacW(I,J,K,bi,bj).NE.0.) ksurfW(I,J,bi,bj) = k
./model/src/update_surf_dr.F 54 UPDATE_SURF_DR
     I                    bi, bj, ksurfC, ksurfW, ksurfS,
./model/src/update_surf_dr.F 75 UPDATE_SURF_DR
          ks = ksurfW(i,j,bi,bj)