Symbol Description Uses
s_ind input field latitudinal index, on southern side of model grid pt 49


File Line number Procedure Code
./pkg/exf/exf_interp.F 339 EXF_INTERP 
          s_ind(i,j) = 0
./pkg/exf/exf_interp.F 350 EXF_INTERP 
           IF ( w_ind(i,j).GT.s_ind(i,j)+1 ) THEN
./pkg/exf/exf_interp.F 351 EXF_INTERP 
            k = NINT( (s_ind(i,j)+w_ind(i,j))*0.5 )
./pkg/exf/exf_interp.F 355 EXF_INTERP 
              s_ind(i,j) = k
./pkg/exf/exf_interp.F 366 EXF_INTERP 
           IF ( w_ind(i,j).NE.s_ind(i,j)+1 ) THEN
./pkg/exf/exf_interp.F 379 EXF_INTERP 
     &        'EXF_INTERP: s_ind=',s_ind(i,j),', lat=',y_in(s_ind(i,j))
./pkg/exf/exf_interp.F 404 EXF_INTERP 
     I                w_ind, s_ind,
./pkg/exf/exf_interp.F 78 EXF_INTERP 
      INTEGER  w_ind(sNx,sNy), s_ind(sNx,sNy)
./pkg/exf/exf_interp_uv.F 356 EXF_INTERP_UV 
          s_ind(i,j) = 0
./pkg/exf/exf_interp_uv.F 367 EXF_INTERP_UV 
           IF ( w_ind(i,j).GT.s_ind(i,j)+1 ) THEN
./pkg/exf/exf_interp_uv.F 368 EXF_INTERP_UV 
            k = NINT( (s_ind(i,j)+w_ind(i,j))*0.5 )
./pkg/exf/exf_interp_uv.F 372 EXF_INTERP_UV 
              s_ind(i,j) = k
./pkg/exf/exf_interp_uv.F 383 EXF_INTERP_UV 
           IF ( w_ind(i,j).NE.s_ind(i,j)+1 ) THEN
./pkg/exf/exf_interp_uv.F 396 EXF_INTERP_UV 
     &      'EXF_INTERP_UV: s_ind=',s_ind(i,j),', lat=',y_in(s_ind(i,j))
./pkg/exf/exf_interp_uv.F 421 EXF_INTERP_UV 
     I                w_ind, s_ind,
./pkg/exf/exf_interp_uv.F 429 EXF_INTERP_UV 
     I                w_ind, s_ind,
./pkg/exf/exf_interp_uv.F 86 EXF_INTERP_UV 
      INTEGER  w_ind(sNx,sNy), s_ind(sNx,sNy)
./pkg/exf/exf_interpolate.F 110 EXF_INTERPOLATE 
      INTEGER       w_ind(sNx,sNy), s_ind(sNx,sNy)
./pkg/exf/exf_interpolate.F 144 EXF_INTERPOLATE 
            py_ind(l+1) = y_in(s_ind(i,j)+l)
./pkg/exf/exf_interpolate.F 148 EXF_INTERPOLATE 
            ew_val(k) = arrayin(w_ind(i,j)  ,s_ind(i,j)+k-1)
./pkg/exf/exf_interpolate.F 150 EXF_INTERPOLATE 
     &                + arrayin(w_ind(i,j)+1,s_ind(i,j)+k-1)
./pkg/exf/exf_interpolate.F 156 EXF_INTERPOLATE 
           ew_val1 = arrayin(w_ind(i,j)  ,s_ind(i,j)  )
./pkg/exf/exf_interpolate.F 158 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)+1,s_ind(i,j)  )
./pkg/exf/exf_interpolate.F 160 EXF_INTERPOLATE 
           ew_val2 = arrayin(w_ind(i,j)  ,s_ind(i,j)+1)
./pkg/exf/exf_interpolate.F 162 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)+1,s_ind(i,j)+1)
./pkg/exf/exf_interpolate.F 179 EXF_INTERPOLATE 
            py_ind(l+2) = y_in(s_ind(i,j)+l)
./pkg/exf/exf_interpolate.F 183 EXF_INTERPOLATE 
            ew_val(k) = arrayin(w_ind(i,j)-1,s_ind(i,j)+k-2)
./pkg/exf/exf_interpolate.F 185 EXF_INTERPOLATE 
     &                + arrayin(w_ind(i,j)  ,s_ind(i,j)+k-2)
./pkg/exf/exf_interpolate.F 187 EXF_INTERPOLATE 
     &                + arrayin(w_ind(i,j)+1,s_ind(i,j)+k-2)
./pkg/exf/exf_interpolate.F 189 EXF_INTERPOLATE 
     &                + arrayin(w_ind(i,j)+2,s_ind(i,j)+k-2)
./pkg/exf/exf_interpolate.F 195 EXF_INTERPOLATE 
           ew_val1 = arrayin(w_ind(i,j)-1,s_ind(i,j)-1)
./pkg/exf/exf_interpolate.F 197 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)  ,s_ind(i,j)-1)
./pkg/exf/exf_interpolate.F 199 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)+1,s_ind(i,j)-1)
./pkg/exf/exf_interpolate.F 201 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)+2,s_ind(i,j)-1)
./pkg/exf/exf_interpolate.F 203 EXF_INTERPOLATE 
           ew_val2 = arrayin(w_ind(i,j)-1,s_ind(i,j)  )
./pkg/exf/exf_interpolate.F 205 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)  ,s_ind(i,j)  )
./pkg/exf/exf_interpolate.F 207 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)+1,s_ind(i,j)  )
./pkg/exf/exf_interpolate.F 209 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)+2,s_ind(i,j)  )
./pkg/exf/exf_interpolate.F 211 EXF_INTERPOLATE 
           ew_val3 = arrayin(w_ind(i,j)-1,s_ind(i,j)+1)
./pkg/exf/exf_interpolate.F 213 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)  ,s_ind(i,j)+1)
./pkg/exf/exf_interpolate.F 215 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)+1,s_ind(i,j)+1)
./pkg/exf/exf_interpolate.F 217 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)+2,s_ind(i,j)+1)
./pkg/exf/exf_interpolate.F 219 EXF_INTERPOLATE 
           ew_val4 = arrayin(w_ind(i,j)-1,s_ind(i,j)+2)
./pkg/exf/exf_interpolate.F 221 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)  ,s_ind(i,j)+2)
./pkg/exf/exf_interpolate.F 223 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)+1,s_ind(i,j)+2)
./pkg/exf/exf_interpolate.F 225 EXF_INTERPOLATE 
     &             + arrayin(w_ind(i,j)+2,s_ind(i,j)+2)
./pkg/exf/exf_interpolate.F 68 EXF_INTERPOLATE 
     I                w_ind, s_ind,