Subversion Repositories lagranto.ecmwf

Rev

Rev 9 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

      PROGRAM datelist

c     **********************************************************************
c     * Handling of date lists                                             *
c     * Michael Sprenger                                                   *
c     **********************************************************************

      implicit none

c     ---------------------------------------------------------------------
c     Declaration of variables
c     ---------------------------------------------------------------------

c     Parameters
      character*80              datefile
      character*80              mode 
      character*80              startdate
      character*80              finaldate
      character*80              refdate
      integer                   interval
      real                      randpercent

c     Date list
      integer                   ndates
      integer,allocatable,dimension(:)    :: year,month,day,hour

c     Auxiliary variables
      integer                     i
      integer                     year1,month1,day1,hour1,min1
      integer                     year2,month2,day2,hour2,min2
      character                   direction
      integer                     date1(5),date2(5)
      character*11                datestr,datestr1,datestr2
      character                   ch
      real                        diff
      real                        time
      character*80                datefile1,datefile2
      integer                     timestamp1,timestamp2
      integer                     oldstamp1 ,oldstamp2
      integer                     state

c     ---------------------------------------------------------------------
c     Preparations
c     ---------------------------------------------------------------------

c     Read parameter file
      open(10,file='datelist.param')

       read(10,*) datefile                           ! General parameters
       read(10,*) mode

       if ( mode.eq.'-create' ) then                 ! Create date list
          read(10,*) startdate
          read(10,*) finaldate
          read(10,*) interval

       elseif ( mode.eq.'-totime' ) then             ! Convert to time list
          read(10,*) refdate

       elseif ( mode.eq.'-todate' ) then             ! Convert to date list
          read(10,*) refdate
       
       elseif ( mode.eq.'-onlyin1' ) then            ! Dates only in file 1
          read(10,*) datefile1
          read(10,*) datefile2

       else                                          ! Invalid mode
          print*,' ERROR: invalid mode for datelist'
          stop
       endif
       
      close(10)

c     ---------------------------------------------------------------------
c     Create a date list (-create)
c     ---------------------------------------------------------------------

      if ( mode.ne.'-create' ) goto 100

c     Check whether interval is ok
      if ( ( interval.le.0 ).or.(interval.gt.24) ) then
         print*,'Interval must be between 1 h and 24 h... Stop'
         stop
      endif

c     Extract dates and times
      read(startdate( 1: 4),*) year1
      read(startdate( 5: 6),*) month1
      read(startdate( 7: 8),*) day1
      read(startdate(10:11),*) hour1
      read(startdate(12:13),*) min1
      
      read(finaldate( 1: 4),*) year2
      read(finaldate( 5: 6),*) month2
      read(finaldate( 7: 8),*) day2
      read(finaldate(10:11),*) hour2
      read(finaldate(12:13),*) min2

c     Get direction of the date file
      if (year2.gt.year1) then
         direction = 'f'
         goto 101
      elseif (year2.lt.year1) then
         direction = 'b'
         goto 101
      endif

      if (month2.gt.month1) then
         direction = 'f'
         goto 101
      elseif (month2.lt.month1) then
         direction = 'b'
         goto 101
      endif

      if (day2.gt.day1) then
         direction = 'f'
         goto 101
      elseif (day2.lt.day1) then
         direction = 'b'
         goto 101
      endif
      
      if (hour2.gt.hour1) then
         direction = 'f'
         goto 101
      elseif (hour2.lt.hour1) then
         direction = 'b'
         goto 101
      endif

      if (min2.gt.min1) then
         direction = 'f'
         goto 101
      elseif (min2.lt.min1) then
         direction = 'b'
         goto 101
      endif

      direction = 'f'

 101  continue

c     Set the interval step depending on the direction
      if ( direction.eq.'b' ) then
         interval = -interval
      endif

c     Save the dates in arrays
      date1(1) = year1
      date1(2) = month1
      date1(3) = day1
      date1(4) = hour1 
      date1(5) = 0

      date2(1) = year2
      date2(2) = month2
      date2(3) = day2
      date2(4) = hour2 
      date2(5) = 0


c     Get starting and ending date for the date list
      if ( direction.eq.'f' ) then

         do while ( mod(date1(4),interval) .ne. 0 )
            date1(4) = date1(4) - 1
         enddo

         if (min2.ne.0) call newdate(date2,1.,date2)

         do while ( mod(date2(4),interval) .ne. 0 )
            date2(4) = date2(4) + 1
         enddo

      else

         if (min1.ne.0) call newdate(date1,1.,date1)

         do while ( mod(date1(4),interval) .ne. 0 )
            date1(4) = date1(4) + 1
         enddo
       
         do while ( mod(date2(4),interval) .ne. 0 )
            date2(4) = date2(4) - 1
         enddo
         
      endif

c     Create and write the datefile
      if ( datefile.ne.'/dev/stdout') then
         open(10,file=datefile)
      endif

 102  continue

       call datestring(datestr,date1(1),date1(2),date1(3),date1(4) )

       if ( datefile.ne.'/dev/stdout') then
          write(10,*) datestr
       else
          write(*,*) datestr
       endif

       if ( ( date1(1).ne.date2(1) ).or.
     >      ( date1(2).ne.date2(2) ).or.
     >      ( date1(3).ne.date2(3) ).or.
     >      ( date1(4).ne.date2(4) ) ) 
     > then
          diff = real(interval)
          call newdate(date1,diff,date1)
          goto 102
       endif

      if ( datefile.ne.'/dev/stdout') then
         close(10)
      endif

 100  continue

c     ---------------------------------------------------------------------
c     Convert dates to a list of times
c     ---------------------------------------------------------------------

      if ( mode.ne.'-totime' ) goto 112

c     Extract reference date
      read(refdate( 1: 4),*) year1
      read(refdate( 5: 6),*) month1
      read(refdate( 7: 8),*) day1
      read(refdate(10:11),*) hour1
      read(refdate(12:13),*) min1
      
c     Loop through the date file
      open(10,file=datefile)

 111  read(10,*,end=110) datestr
      
c     Extract date
      read(datestr( 1: 4),*) year2
      read(datestr( 5: 6),*) month2
      read(datestr( 7: 8),*) day2
      read(datestr(10:11),*) hour2
      min1 = 0

c     Get the time difference
      date1(1) = year1
      date1(2) = month1
      date1(3) = day1
      date1(4) = hour1 
      date1(5) = 0

      date2(1) = year2
      date2(2) = month2
      date2(3) = day2
      date2(4) = hour2 
      date2(5) = 0

      call timediff(date2,date1,diff)
      

c     Write it to screen
      write(*,'(i6)') nint(diff)

      goto 111

 110  continue
      
c     Close datefile
      close(10)
      
c     Exit point      
  112 continue

c     ---------------------------------------------------------------------
c     Convert times to a list of dates 
c     ---------------------------------------------------------------------

      if ( mode.ne.'-todate' ) goto 122

c     Extract reference date
      read(refdate( 1: 4),*) year1
      read(refdate( 5: 6),*) month1
      read(refdate( 7: 8),*) day1
      read(refdate(10:11),*) hour1
      read(refdate(12:13),*) min1
      
c     Loop through the date file
      open(10,file=datefile)

 121  read(10,*,end=120) time

c     Calculate the new date
      date1(1) = year1
      date1(2) = month1
      date1(3) = day1
      date1(4) = hour1 
      date1(5) = 0
      call newdate(date1,time,date2)
      call datestring(datestr,date2(1),date2(2),date2(3),date2(4) )

c     Write it to screen
      write(*,'(a11)') trim(datestr)

      goto 121

 120  continue
      
c     Close datefile
      close(10)
      
c     Exit point      
 122  continue
   
c     ---------------------------------------------------------------------
c     Extract all dates which are only in one datefile 
c     ---------------------------------------------------------------------

      if ( mode.ne.'-onlyin1' ) goto 134
      
c     Set reference date   
      date1(1) = 1979
      date1(2) = 1
      date1(3) = 1
      date1(4) = 0
      date1(5) = 0
      
c     Open the output file
      if ( datefile.ne.'/dev/stdout') then
         open(30,file=datefile)
      endif

c     Loop through the input date files
      open(10,file=datefile1)
      open(20,file=datefile2)
    
c     Loop through both date files
      state     = 0
      oldstamp1 = 0
      oldstamp2 = 0
      
 131  if ( (state.eq.1).or.(state.eq.0) ) then 
         read(10,*,end=133) datestr1
      endif
      if ( (state.eq.2).or.(state.eq.0) ) then 
         read(20,*,end=130) datestr2
      endif

c     Get time stamp for both date strings
      if ( (state.eq.1).or.(state.eq.0) ) then 
         read(datestr1( 1: 4),*) year2
         read(datestr1( 5: 6),*) month2
         read(datestr1( 7: 8),*) day2
         read(datestr1(10:11),*) hour2
         date2(1) = year2
         date2(2) = month2
         date2(3) = day2
         date2(4) = hour2 
         date2(5) = 0
         call timediff(date2,date1,diff)
         timestamp1 =  nint( diff )
         if ( timestamp1.lt.oldstamp1 ) then
            print*,' ERROR: datelist must be ordered ',trim(datefile1)
            stop
         else
            oldstamp1 = timestamp1
         endif
      endif
      
      if ( (state.eq.1).or.(state.eq.0) ) then 
         read(datestr2( 1: 4),*) year2
         read(datestr2( 5: 6),*) month2
         read(datestr2( 7: 8),*) day2
         read(datestr2(10:11),*) hour2
         date2(1) = year2
         date2(2) = month2
         date2(3) = day2
         date2(4) = hour2 
         date2(5) = 0
         call timediff(date2,date1,diff)
         timestamp2 =  nint( diff )
         if ( timestamp2.lt.oldstamp2 ) then
            print*,' ERROR: datelist must be ordered ',trim(datefile2)
            stop
         else
            oldstamp2 = timestamp2
         endif
      endif
      
c     Write output and set new state
      if ( timestamp1.gt.timestamp2 ) then
        state = 2
c        print*,trim(datestr1)//'.'//trim(datestr2)//' >'

      else if ( timestamp1.lt.timestamp2 ) then
        state = 1

        if ( datefile.ne.'/dev/stdout') then
           write(30,*) datestr1
        else
           write(*,*) datestr1
        endif

c        print*,trim(datestr1)//'.'//trim(datestr2)//' -> out'

      else if (timestamp1.eq.timestamp2 ) then
        state = 0
c        print*,trim(datestr1)//'.'//trim(datestr2)//' ='

      endif

      goto 131

c     Exit point for parallel reading through files
 130  continue
 
c     Write remaining part of datefile 1
 132  continue
        read(10,*,end=133) datestr1
        if ( datefile.ne.'/dev/stdout') then
           write(30,*) datestr1
        else
           write(*,*) datestr1
        endif
      goto 132
 133  continue
      
c     Close datefile
      close(10)
      close(20)
      close(30)
      
c     Exit point      
 134  continue
 
c     ---------------------------------------------------------------------
c     End
c     ---------------------------------------------------------------------

      end