SUBROUTINE UVINT (SPDO, PSIO, li, lj, xlat, xlon, ui, vi, ni, nj, igtyp,
                    ig1, ig2, ig3, ig4, sws)

ARGUMENTS

OUT

SPDO(LI,LJ)   output field (speed of wind)                       real
PSIO(LI,LJ)   output field (direction of wind)                   real

IN

LI            x-dimension of arrays SPDO, PSIO, XLAT and XLON    integer
LJ            y-dimension of arrays SPDO, PSIO, XLAT and XLON    integer
XLAT(LI,LJ)   latitudes on output grid                           real
XLON(LI,LJ)   longitudes on output grid                          real
UI(NI,NJ)     input field (u component of wind)                  real
VI(NI,NJ)     input field (v component of wind)                  real
NI            x-dimension of arrays UI and VI                    integer
NJ            y-dimension of arrays UI and VI                    integer
IGTYP         grid type for UI and VI (hollerith 1 char)         integer
IG1           input grid descriptor                              integer
IG2             ''           ''                                  integer
IG3             ''           ''                                  integert
IG4             ''           ''                                  integer
SWS           .true.:SPDO and PSIO; .false.:SPDO only            logical
  (1,LJ)      (LI,LJ)  
   +-------------+
   |             | 
   |             |  arrays SPDO, PSIO, XLAT and XLON 
   |             |
   |             |
   |             |
   +-------------+
  (1,1)       (LI,1)
  (1,NJ)      (NI,NJ)  
   +-------------+
   |             | 
   |             |  arrays UI and VI 
   |             |
   |             |
   |             |
   +-------------+
  (1,1)       (NI,1)

DESCRIPTION