      program read
c
c     read the Ed Harrison wind stress grid data
c
      dimension taux(360,180),tauy(360,180),nobs(360,180)


      open(10,file='/tmp/e2.taux_fold')
      open(11,file='/tmp/e2.tauy_fold')
      open(12,file='/tmp/e2.nobs_fold')


      do kmon = 1,12 

      read(10,20)((taux(i,j),i=1,360),j=1,180)
      read(11,20)((tauy(i,j),i=1,360),j=1,180)
      read(12,30)((nobs(i,j),i=1,360),j=1,180)
20    format(10f9.5)
30    format(15i6) 

      print*,' MONTH = ',kmon
      print*,' j,taux(1,j),tauy(1,j),nobs(1,j),j=1,180,20'
      write(*,'(i4,2f10.5,i6)')(j,taux(1,j),tauy(1,j),nobs(1,j),
     *                          j=1,180,20)
      print*,' j,taux(90,j),tauy(90,j),nobs(90,j),j=1,180,20'
      write(*,'(i4,2f10.5,i6)')(j,taux(90,j),tauy(90,j),nobs(90,j),
     *                          j=1,180,20)
      print*,' j,taux(180,j),tauy(180,j),nobs(180,j),j=1,180,20'
      write(*,'(i4,2f10.5,i6)')(j,taux(180,j),tauy(180,j),nobs(180,j),
     *                          j=1,180,20)

      enddo

      stop
      end
