SUBROUTINE SPAUV(SPD, PSI, li, lj, ityp, xg1, xg2, xg3, xg4)

ARGUMENTS

OUT

SPD(LI,LJ)   u component of wind                      real
PSI(LI,LJ)   v component of wind                      real

IN

SPD(LI,LJ)   speed of wind                            real
PSI(LI,LJ)   direction of wind                        real
LI           x-dimension of array SPD and PSI         integer
LJ           y-dimension of array SPD and PSI         integer
ITYP         type of grid (hollerith 1 char)          integer
XG1          grid descriptor                          real 
XG2          ITYP = 1hn, pi, pj, d60, dgrw            real
XG3          ITYP = 1hl, lat0, lon0, dlat, dlon,      real
XG4          ITYP = 1ha, 1hb, ihg,  xg1 = 0. global
                                        = 1. north
                                        = 2. south    real
  (1,LJ)      (LI,LJ)  
   +-------------+
   |             | 
   |             |  arrays SPD and PSI 
   |             |
   |             |
   |             |
   +-------------+
  (1,1)       (LI,1)

DESCRIPTION