Subversion Repositories lagranto.ecmwf

Rev

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

Rev 15 Rev 46
Line 207... Line 207...
207 
      refdate(1) = date1(1)
 207 
      refdate(1) = date1(1)
208 
      refdate(2) = date1(2)
 208 
      refdate(2) = date1(2)
209 
      refdate(3) = date1(3)
 209 
      refdate(3) = date1(3)
210 
      refdate(4) = date1(4)
 210 
      refdate(4) = date1(4)
211 
      refdate(5) = date1(5)
 211 
      refdate(5) = date1(5)
212 
 
 212
213 
c     Shift the times
 213 
c     Shift the times
214 
      do i=1,ntra
 214 
      do i=1,ntra
215 
      do j=1,ntim
 215 
      do j=1,ntim
216 
        traout(i,j,1) = traout(i,j,1) - shift
 216 
        traout(i,j,1) = traout(i,j,1) - shift
217 
      enddo
 217 
      enddo