Subversion Repositories lagranto.wrf

Rev

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

Rev 21 Rev 23
Line 56... Line 56...
56 
c     --------------------------------------------------------------------
 56 
c     --------------------------------------------------------------------
57 
 
 57 
 
58 
c     Input parameters
 58 
c     Input parameters
59 
      integer                                fbflag          ! Flag for forward/backward mode
 59 
      integer                                fbflag          ! Flag for forward/backward mode
60 
      integer                                numdat          ! Number of input files
 60 
      integer                                numdat          ! Number of input files
61 
      character*11                           dat(ndatmax)    ! Dates of input files
 61 
      character*13                           dat(ndatmax)    ! Dates of input files
62 
      real                                   timeinc         ! Time increment between input files
 62 
      real                                   timeinc         ! Time increment between input files
63 
      integer                                per             ! Periodicity flag (=0 if none)
 63 
      integer                                per             ! Periodicity flag (=0 if none)
64 
      integer                                ntra            ! Number of trajectories
 64 
      integer                                ntra            ! Number of trajectories
65 
      character*80                           cdfname         ! Name of output files
 65 
      character*80                           cdfname         ! Name of output files
66 
      real                                   ts              ! Time step
 66 
      real                                   ts              ! Time step
Line 153... Line 153...
153 
      endif
 153 
      endif
154 
 
 154 
 
155 
c     Read list of input dates (dat, sort depending on forward/backward mode)
 155 
c     Read list of input dates (dat, sort depending on forward/backward mode)
156 
      if (fbflag.eq.1) then
 156 
      if (fbflag.eq.1) then
157 
        do itm=1,numdat
 157 
        do itm=1,numdat
158 
          read(9,'(a11)') dat(itm)
 158 
          read(9,'(a)') dat(itm)
159 
        enddo
 159 
        enddo
160 
      else
 160 
      else
161 
        do itm=numdat,1,-1
 161 
        do itm=numdat,1,-1
162 
          read(9,'(a11)') dat(itm)
 162 
          read(9,'(a)') dat(itm)
163 
        enddo
 163 
        enddo
164 
      endif
 164 
      endif
165 
 
 165 
 
166 
c     Read time increment between input files (timeinc)
 166 
c     Read time increment between input files (timeinc)
167 
      read(9,*) timeinc
 167 
      read(9,*) timeinc