c       DAAC/NASA TRMM Monthly 5 x 5 Degree Combined Rainfall Data (3B31)


        parameter (lons=72,lats=16,levs=14,mons=67)
       dimension   dd(lons,lats)
        open(8,file='data.dat',
     &  form='unformatted',access='sequential')
        do M=1,mons
        do L=1,levs
        read(8) ((dd(i,j),i=1,lons),j=1,lats)
        enddo
        enddo


July 17, 2003, Yongsheng Zhang