Subversion Repositories lagranto.um

Rev

Rev 3 | Rev 11 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3 Rev 5
Line 52... Line 52...
52 
c     --------------------------------------------------------------------
 52 
c     --------------------------------------------------------------------
53 
 
 53 
 
54 
c     Input parameters
 54 
c     Input parameters
55 
      integer                                fbflag          ! Flag for forward/backward mode
 55 
      integer                                fbflag          ! Flag for forward/backward mode
56 
      integer                                numdat          ! Number of input files
 56 
      integer                                numdat          ! Number of input files
57 
      character*11                           dat(ndatmax)    ! Dates of input files
 57 
      character*13                           dat(ndatmax)    ! Dates of input files
58 
      real                                   timeinc         ! Time increment between input files
 58 
      real                                   timeinc         ! Time increment between input files
59 
      real                                   per             ! Periodicity (=0 if none)
 59 
      real                                   per             ! Periodicity (=0 if none)
60 
      integer                                ntra            ! Number of trajectories
 60 
      integer                                ntra            ! Number of trajectories
61 
      character*80                           cdfname         ! Name of output files
 61 
      character*80                           cdfname         ! Name of output files
62 
      real                                   ts              ! Time step
 62 
      real                                   ts              ! Time step
Line 143... Line 143...
143 
      endif
 143 
      endif
144 
 
 144 
 
145 
c     Read list of input dates (dat, sort depending on forward/backward mode)
 145 
c     Read list of input dates (dat, sort depending on forward/backward mode)
146 
      if (fbflag.eq.1) then
 146 
      if (fbflag.eq.1) then
147 
        do itm=1,numdat
 147 
        do itm=1,numdat
148 
          read(9,'(a11)') dat(itm)
 148 
          read(9,'(a13)') dat(itm)
149 
        enddo
 149 
        enddo
150 
      else
 150 
      else
151 
        do itm=numdat,1,-1
 151 
        do itm=numdat,1,-1
152 
          read(9,'(a11)') dat(itm)
 152 
          read(9,'(a13)') dat(itm)
153 
        enddo
 153 
        enddo
154 
      endif
 154 
      endif
155 
 
 155 
 
156 
c     Read time increment between input files (timeinc)
 156 
c     Read time increment between input files (timeinc)
157 
      read(9,*) timeinc
 157 
      read(9,*) timeinc