program main

      real dummy(201,141), dummy3d(201,141,14) 
      real uu(201,141,14), vv(201,141,14), tt(201,141,14)
      real qq(201,141,14), pp(201,141), sst(201,141)

c* 3-D wind field u,v: uu, vv
c* 3-D temperature field T: tt
c* 3-D specific humidity fied q: qq
c* 2-D surface pressure psfc: pp
c* 2-D sea surface temperature: sst




       OPEN(17,
     & file=
     & '/home/amakila/kph/TC/second.era_1997.dat',
     &    form='unformatted',
     &    access='sequential',status='unknown')

C  LOOP TIMESTEP

       DO n=1,12 
       write (6,*) n

c
c  READ RCM   data
c

         DO k=1,14
            READ(17) ((uu(j,i,k),j=1,201),i=1,141)
         write (6,*) uu(1,1,k), uu(201,141,k)
         END DO

         DO k=1,14  
            READ(17) ((vv(j,i,k),j=1,201),i=1,141)
         END DO

         DO k=1,14   
            READ(17) ((tt(j,i,k),j=1,201),i=1,141)
         END DO

         DO k=1,14  
            READ(17) ((qq(j,i,k),j=1,201),i=1,141)
         END DO

         DO k=1,14
            READ(17) ((dummy3d(j,i,k),j=1,201),i=1,141)
         if (n.gt.200) write(18)((dummy3d(j,i,k),j=1,201),i=1,141)
         END DO

         READ(17) ((dummy(j,i),j=1,201),i=1,141)
         READ(17) ((dummy(j,i),j=1,201),i=1,141)
         READ(17) ((pp(j,i),j=1,201),i=1,141)
         READ(17) ((sst(j,i),j=1,201),i=1,141)
         write (6,*) sst(101,70)
         READ(17) ((dummy(j,i),j=1,201),i=1,141)
         READ(17) ((dummy(j,i),j=1,201),i=1,141)
         READ(17) ((dummy(j,i),j=1,201),i=1,141)
         READ(17) ((dummy(j,i),j=1,201),i=1,141)
         READ(17) ((dummy(j,i),j=1,201),i=1,141)
         READ(17) ((dummy(j,i),j=1,201),i=1,141)
         READ(17) ((dummy(j,i),j=1,201),i=1,141)
         READ(17) ((dummy(j,i),j=1,201),i=1,141)
         READ(17) ((dummy(j,i),j=1,201),i=1,141)
         READ(17) ((dummy(j,i),j=1,201),i=1,141)

      enddo

      stop
      end