program read
      PARAMETER ( NI = 180, NJ = 139, nv=9)
      real  t(ni,nj,15,nv)

C missing value = -99.99

      open(11,file='ssh2009.gr',form='unformatted',
     1 access='direct',recl=ni*nj*15*9*4)

      open(31,file='ssh2009.gr2',form='unformatted',
     1 access='sequential')

      do im=1, 12

      read(11,rec=im)
     1 ((((t(i,j,iv,k),i=1,ni),j=1,nj),iv=1,15),k=1,nv)

      do iv=1,15

      do k=1,nv
      write(31) ((t(i,j,iv,k),i=1,ni),j=1,nj)
      end do

      end do

      end do


      stop
      end