c   program v3ersstf.f
c     
c   To read the extended reconstructed SST.
c
      parameter (im=180,jm=89)
c
c   i is longitude index (values 1 to im)
c   j is the latitude index (values 1 to jm)
c
      integer isst(im,jm)
c
c   isst is the input SST array (values are degrees C times 100)
c   land value = -9999
      real ersst(im,jm)
c
c   ersst is the reconstructed SST mean in degrees C
c
   81 format (90i6)
c
c   Open the file to read, either ERSST.v3 data or the
c*  error standard deviation.  Here the SST file for
c*  1990 to 1999 is used as an example (unit 11).
c
      open(11,file='ersst.v3.1990.1999.asc')

      do iy=1990,1999
       do mon=1,12
        do i=1,im
         read(11,81) (isst(i,j),j=1,jm)
        end do
        do 5 j=1,jm
        do 5 i=1,im
         ersst(i,j)=real(isst(i,j))/100.
    5   continue

          ...

       end do
      end do

      stop 
      end