program rdtot

c  Reads total chlorophyll in Poseidon grid format
c  Starts at 0lon, -84lat (degrees)
c  increments of 1.25lon, 0.67lat
c  units = mg/m3

      parameter(im=288,jm=234,km=14)
      real totchl(im,jm)

      open(4,file='tot200812',status='old',form='unformatted')
5     read(4,end=11)head
      read(4,end=11)totchl     !read surface layer
c  Read off lower layers
      do k = 2,km
       read(4)totchl 
      enddo
      go to 5
11    close(4)

      end