program disdro_read

      integer yyyy,mo,dd,hh,mm
      integer hh1,mmday
      real wind,precip,par1,par2,par3,par4
      real uref
      real refl,dbz,dbr

      open(10,file="rain_data_ODM0931991_151_rd_dbz.dat")
      open(11,file="rain_data_ODM0931991_151_rd_dbz.txt")

      hh = 0
      mm = 0
      hh1 = 0
      mmday = 0
c *** run through each line -- if this number is too small, not enough lines will be processed ... make sure it is at least the number of lines in rain_data_ODM0931991_151_rd_dbz.dat
      do i = 1,10000000 
        read(10,*)yyyy,mo,dd,hh,mm,wind,precip,par1,par2,par3,par4
     &,uref,refl,dbz,dbr

        hh1 = hh * 60
        mmday = hh1 + mm
        if(dd.eq.10)mmday=mmday+1440
c ***** mmday maximal 1440 minuten pro tag
        write(11,1000) i,dd,mo,yyyy,hh,mm,mmday,precip,wind
     &,uref,refl,dbz,dbr
1000  format(i7.7,1x,2i2.2,i4.4,1x,2i2.2,1x,i4.4,1x,f10.2,1x,f10.2
     &,1x,f5.2,1x,f12.2,1x,f12.2,1x,f12.2) 

        enddo
        end