king/raw_files/READ_GRIDDED.f

!  program to  read TOPEX/POSEIDON gridded ssh (cm)

      parameter (mlon=721,mlat=361)
      real ssh(mlon,mlat)
      character fin*80
      read(5,'(a)')fin
      write(6,'(a)')fin

      open(10,file=fin,form='unformatted',status='old')

      read(10)nlon,nlat,ylatmi,ylatma,xlonmi,xlonma
      read(10)((ssh(i,j),i=1,nlon),j=1,nlat)

      write(6,*)nlon,nlat,ylatmi,ylatma,xlonmi,xlonma
      write(6,*)(ssh(i,33),i=1,nlon)

      stop
      end
1	edhill	1.1	! program to read TOPEX/POSEIDON gridded ssh (cm)
2
3			parameter (mlon=721,mlat=361)
4			real ssh(mlon,mlat)
5			character fin*80
6			read(5,'(a)')fin
7			write(6,'(a)')fin
8
9			open(10,file=fin,form='unformatted',status='old')
10
11			read(10)nlon,nlat,ylatmi,ylatma,xlonmi,xlonma
12			read(10)((ssh(i,j),i=1,nlon),j=1,nlat)
13
14			write(6,*)nlon,nlat,ylatmi,ylatma,xlonmi,xlonma
15			write(6,*)(ssh(i,33),i=1,nlon)
16
17			stop
18			end