c      
c       This dataset is downloaded from  Remote Sensing Systems,
c       3-Day-Running Mean TRMM Microwave Imager (TMI) Data
c       http://www.ssmi.com/tmi/tmi_description.html 

        program output
        parameter (lons=1440,lats=320,kvar=6)
        real*4 data(lons,lats,kvar)

        open(8,file='199801.dat',
     &  form='unformatted',access='sequential')



        k=31     ! or 28, or 29, or 30
        do 110 idy=1,kdy
        do 120 ivar=1,kvar

        read(8) ((data(i,j,ivar),i=1,lons),j=1,lats)

c       for ivar= 
c               1  cloud liquid water in MM
c               2  rain rate in MM/hour
c               3  sea surface temperatures in deg C
c               4  columnar water vapor in MM
c               5  10m surface wind using 11 GHz channel aglgorithm in M/S
c               6  10m surface wind using 37 GHz channel aglgorithm in M/S


  120   continue
  110   continue
 
        stop
        end