Subversion Repositories lagranto.um

Rev

Rev 3 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3 Rev 5
Line 60... Line 60...
60 
      real                                   fac(200)        ! Scaling factor
60 
      real                                   fac(200)        ! Scaling factor
61 
      real                                   shift_val(200)  ! Shift in space and time relative to trajectory position
 61 
      real                                   shift_val(200)  ! Shift in space and time relative to trajectory position
62 
      character*80                           shift_dir(200)  ! Direction of shift
 62 
      character*80                           shift_dir(200)  ! Direction of shift
63 
      integer                                compfl(200)     ! Computation flag (1=compute)
 63 
      integer                                compfl(200)     ! Computation flag (1=compute)
64 
      integer                                numdat          ! Number of input files
 64 
      integer                                numdat          ! Number of input files
65 
      character*11                           dat(ndatmax)    ! Dates of input files
 65 
      character*13                           dat(ndatmax)    ! Dates of input files
66 
      real                                   timeinc         ! Time increment between input files
 66 
      real                                   timeinc         ! Time increment between input files
67 
      real                                   tst             ! Time shift of start relative to first data file
 67 
      real                                   tst             ! Time shift of start relative to first data file
68 
      real                                   ten             ! Time shift of end relatiev to first data file
68 
      real                                   ten             ! Time shift of end relatiev to first data file
69 
      character*20                           startdate       ! First time/date on trajectory
 69 
      character*20                           startdate       ! First time/date on trajectory
70 
      character*20                           enddate         ! Last time/date on trajectory
 70 
      character*20                           enddate         ! Last time/date on trajectory
Line 159... Line 159...
159 
       read(10,*) enddate
159 
       read(10,*) enddate
160 
       read(10,*) fbflag
 160 
       read(10,*) fbflag
161 
       read(10,*) numdat
 161 
       read(10,*) numdat
162 
       if ( fbflag.eq.1) then
 162 
       if ( fbflag.eq.1) then
163 
          do i=1,numdat
 163 
          do i=1,numdat
164 
             read(10,'(a11)') dat(i)
 164 
             read(10,'(a13)') dat(i)
165 
          enddo
 165 
          enddo
166 
       else
 166 
       else
167 
          do i=numdat,1,-1
 167 
          do i=numdat,1,-1
168 
             read(10,'(a11)') dat(i)
 168 
             read(10,'(a13)') dat(i)
169 
          enddo
 169 
          enddo
170 
       endif
 170 
       endif
171 
       read(10,*) timeinc
 171 
       read(10,*) timeinc
172 
       read(10,*) tst
 172 
       read(10,*) tst
173 
       read(10,*) ten
 173 
       read(10,*) ten