Symbol Description Uses
w_ind input field longitudinal index, on western side of model grid pt 51


File Line number Procedure Code
./pkg/exf/exf_interp.F 392 EXF_INTERP 
          w_ind(i,j) = nyIn+1
./pkg/exf/exf_interp.F 402 EXF_INTERP 
           IF ( w_ind(i,j).GT.s_ind(i,j)+1 ) THEN
./pkg/exf/exf_interp.F 403 EXF_INTERP 
            k = NINT( (s_ind(i,j)+w_ind(i,j))*0.5 )
./pkg/exf/exf_interp.F 405 EXF_INTERP 
              w_ind(i,j) = k
./pkg/exf/exf_interp.F 418 EXF_INTERP 
           IF ( w_ind(i,j).NE.s_ind(i,j)+1 ) THEN
./pkg/exf/exf_interp.F 434 EXF_INTERP 
     &        'EXF_INTERP: n_ind=',w_ind(i,j),', lat=',y_in(w_ind(i,j))
./pkg/exf/exf_interp.F 445 EXF_INTERP 
           w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1
./pkg/exf/exf_interp.F 456 EXF_INTERP 
     I                w_ind, s_ind,
./pkg/exf/exf_interp.F 92 EXF_INTERP 
      INTEGER  w_ind(sNx,sNy), s_ind(sNx,sNy)
./pkg/exf/exf_interp_uv.F 104 EXF_INTERP_UV 
      INTEGER  w_ind(sNx,sNy), s_ind(sNx,sNy)
./pkg/exf/exf_interp_uv.F 418 EXF_INTERP_UV 
          w_ind(i,j) = nyIn+1
./pkg/exf/exf_interp_uv.F 428 EXF_INTERP_UV 
           IF ( w_ind(i,j).GT.s_ind(i,j)+1 ) THEN
./pkg/exf/exf_interp_uv.F 429 EXF_INTERP_UV 
            k = NINT( (s_ind(i,j)+w_ind(i,j))*0.5 )
./pkg/exf/exf_interp_uv.F 431 EXF_INTERP_UV 
              w_ind(i,j) = k
./pkg/exf/exf_interp_uv.F 444 EXF_INTERP_UV 
           IF ( w_ind(i,j).NE.s_ind(i,j)+1 ) THEN
./pkg/exf/exf_interp_uv.F 460 EXF_INTERP_UV 
     &      'EXF_INTERP_UV: n_ind=',w_ind(i,j),', lat=',y_in(w_ind(i,j))
./pkg/exf/exf_interp_uv.F 471 EXF_INTERP_UV 
           w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1
./pkg/exf/exf_interp_uv.F 482 EXF_INTERP_UV 
     I                w_ind, s_ind,
./pkg/exf/exf_interp_uv.F 490 EXF_INTERP_UV 
     I                w_ind, s_ind,
./pkg/exf/exf_interpolate.F 110 EXF_INTERPOLATE 
      INTEGER       w_ind(sNx,sNy), s_ind(sNx,sNy)
./pkg/exf/exf_interpolate.F 143 EXF_INTERPOLATE 
            px_ind(l+1) = x_in(w_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 178 EXF_INTERPOLATE 
            px_ind(l+2) = x_in(w_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,