program read
c   fortran "stub code" to read in level3e file's variables
c   into time and data
c
c   define variables
      integer*2 dat(360,180,18)
      real data(360,180,18)
      integer*4 time(360,180)
      character*39 filename*39
      character*5 yyddd*5
      logical EOF, ex
c
c   prompt for file name
      write (6,*) 'Enter file year,day (YYDDD):  '
      read (5,'(a5)') yyddd
c
c   find which directory file is located
      inquire(file='/misc/isdat2/lvl3e/nimbus7/z'//yyddd//'.n7g',
     1        exist=ex)
        if (ex) then 
c   for nimbus 7 data
           open(8,file='/misc/isdat2/lvl3e/nimbus7/z'//yyddd//'.n7g',
     1            status='old',form='unformatted',READONLY)
        endif
c
c   if file exists, read in variables and remove multiple of 50
      if (ex) then
         write(6,*)'exists ',yyddd
           read (8) time,dat
            do 10 i = 1, 360
               do 20 j = 1, 180
                 do 30 k = 1, 18
                 data(i,j,k)=dat(i,j,k)/50.
30               continue
                 time(i,j)=time(i,j)/50.
20             continue
10           continue
      close (8)
      else 
         write(6,*)'does not exist ',yyddd
      endif
c
      end