Subversion Repositories lagranto.wrf

Rev

Rev 21 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 21 Rev 23
Line 55... Line 55...
55 
  character(len=80) :: tvar(200)       ! Tracing variable name (only the variable)
 55 
  character(len=80) :: tvar(200)       ! Tracing variable name (only the variable)
56 
  character(len=1)  :: tfil(200)       ! Filename prefix
 56 
  character(len=1)  :: tfil(200)       ! Filename prefix
57 
  real :: fac(200)                     ! Scaling factor
 57 
  real :: fac(200)                     ! Scaling factor
58 
  integer :: compfl(200)               ! Computation flag (1=compute)
 58 
  integer :: compfl(200)               ! Computation flag (1=compute)
59 
  integer :: numdat                    ! Number of input files
 59 
  integer :: numdat                    ! Number of input files
60 
  character(len=11) :: dat(ndatmax)    ! Dates of input files
 60 
  character(len=13) :: dat(ndatmax)    ! Dates of input files
61 
  real :: timeinc                      ! Time increment between input files
 61 
  real :: timeinc                      ! Time increment between input files
62 
  real :: tst                          ! Time shift of start relative to first data file
 62 
  real :: tst                          ! Time shift of start relative to first data file
63 
  real :: ten                          ! Time shift of end relatiev to first data file
 63 
  real :: ten                          ! Time shift of end relatiev to first data file
64 
  character(len=20) :: startdate       ! First time/date on trajectory
 64 
  character(len=20) :: startdate       ! First time/date on trajectory
65 
  character(len=20) :: enddate         ! Last time/date on trajectory
 65 
  character(len=20) :: enddate         ! Last time/date on trajectory
Line 145... Line 145...
145 
   read(10,*) enddate
 145 
   read(10,*) enddate
146 
   read(10,*) fbflag
 146 
   read(10,*) fbflag
147 
   read(10,*) numdat
 147 
   read(10,*) numdat
148 
   if ( fbflag.eq.1) then
 148 
   if ( fbflag.eq.1) then
149 
      do i=1,numdat
 149 
      do i=1,numdat
150 
         read(10,'(a11)') dat(i)
 150 
         read(10,'(a)') dat(i)
151 
      enddo
 151 
      enddo
152 
   else
 152 
   else
153 
      do i=numdat,1,-1
 153 
      do i=numdat,1,-1
154 
         read(10,'(a11)') dat(i)
 154 
         read(10,'(a)') dat(i)
155 
      enddo
 155 
      enddo
156 
   endif
 156 
   endif
157 
   read(10,*) timeinc
 157 
   read(10,*) timeinc
158 
   read(10,*) tst
 158 
   read(10,*) tst
159 
   read(10,*) ten
 159 
   read(10,*) ten