c --------------------------------------------------------------------
      PROGRAM  read_wind
c --------------------------------------------------------------------
      parameter (nx=100,ny=100)

      real  x(nx),y(ny)

      parameter (nxy=nx*ny)
      real  u(nxy),v(nxy)

      character  fn*60
c ---------------------------------------------------------------------
      read (5,'(a)') fn
c ---------------------------------------------------------------------
      open (30,file=fn,status='old')

      read (30,*) nxc,nyc	! dimensions
      nxyc = nxc*nyc

      read (30,*) (x(i),i=1,nxc)  ! longitude
      read (30,*) (y(j),j=1,nyc)  ! latitude

111   continue
c ===============================================================
      read (30,*,end=222) iYr,iMon,iDay,iHr

      read (30,*) (u(ij),ij=1,nxyc)
      read (30,*) (v(ij),ij=1,nxyc)

      write (6,600) iYr,iMon,iDay,iHr
600   format(i5.4,3i3.2)
      goto 111
c ===============================================================
222   continue
      close(30)

90    write (6,*) fn
c -------------------------------------------------------------------

9     stop
      end