Subversion Repositories lagranto.ecmwf

Rev

Rev 9 | Rev 19 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9 Rev 13
Line 332... Line 332...
332 
          enddo
 332 
          enddo
333 
         close(fid)
 333 
         close(fid)
334 
 
 334 
 
335 
c     Read start coordinates from trajectory file - check consistency of ref time
 335 
c     Read start coordinates from trajectory file - check consistency of ref time
336 
      else
 336 
      else
- 
 
 337 
         print*,'Hallo', ntra,ncol
337 
         call ropen_tra(cdfid,strname,ntra,1,ncol,reftmp,vars,inpmode)
 338 
         call ropen_tra(cdfid,strname,ntra,1,ncol,reftmp,vars,inpmode)
338 
         call read_tra (cdfid,trainp,ntra,1,ncol,inpmode)
 339 
         call read_tra (cdfid,trainp,ntra,1,ncol,inpmode)
339 
         do i=1,ntra
 340 
         do i=1,ntra
340 
            time   = trainp(i,1,1)
 341 
            time   = trainp(i,1,1)
341 
            xx0(i) = trainp(i,1,2)
342 
            xx0(i) = trainp(i,1,2)