program reaa500yr

      PARAMETER ( NI = 144, NJ = 73, ny=500)
      PARAMETER ( mi = 180, mj = 139)
      real a(ni,nj),b(mi,mj)
      real wind(ni,nj,12,ny)
      real sst(mi,mj,12,ny)

c-----------------------------------------------------------
c All monthly mean data from NORTH Pole to SOUTH Pole in lat
c big endian

C For Wind (m/s), height, omega (Pa/s), and
c       prate (kg/m^2/s, Precipitation rate)
c  grid: 144x73, 2.5x2.5 (lon x lat)
c  lat  90.000000 to -90.000000 by 2.500000
c  lon 0.000000 to 357.5 by 2.500000

c For SST (K)
c  grid: 180x139,  2x1 (lon x lat)
c  lat  64.0 to -74.0 by 1.0
c  lon  1.0 to 359.0 by 2.0
c  Value on LAND  9.999E+20

c-----------------------------------------------------------
      
      open(11,file='U200.cfs.freerun500yr.2.5x2.5',
     1 form='unformatted',status='old')

      open(12,file='SST.cfs.freerun500yr.2x1',
     1 form='unformatted',status='old')

      do iyear=1,ny
      do imonth=1,12

      read(11) a

        do i=1,ni
        do j=1,nj
         wind(i,j,imonth,iyear)=a(i,j)
        end do
        end do

      read(12) b

        do i=1,mi
        do j=1,mj
         sst(i,j,imonth,iyear)=b(i,j)
        end do
        end do


      end do
      end do

      stop
      end