program readsst
C
C  THIS PROGRAM READS THE NMC ODAS SUBSURFACE U,V AND T DATA
C
C
      dimension dummy(710),spc(5),u(112,27),v(112,27),t(112,27)
      character lname*64

      write(*,*)  'input file '
      read(*,'(a)') lname

      open(10,file=lname,form='unformatted')


  10  read(10,end=99) dummy,spc

      iyr=spc(2)
      imo=spc(3)
      idy=spc(4)

      print * , iyr,imo,idy

      do 200 j=1,81
         read(10) ((u(i,k),i=1,112),k=1,27),
     1            ((v(i,k),i=1,112),k=1,27),
     2            ((t(i,k),i=1,112),k=1,27)
  200 continue
      go to 10

  99  continue
      end