Subversion Repositories lagranto.ecmwf

Rev

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

Rev 5 Rev 46
Line 57... Line 57...
57 
 
 57 
 
58 
c        Get times
 58 
c        Get times
59 
         i0 = 0
 59 
         i0 = 0
60 
         i1 = 0
 60 
         i1 = 0
61 
         do i=1,ntim
 61 
         do i=1,ntim
62 
            if ( param(2).eq.times(i) ) i0 = i
 62 
            if ( abs(param(2)-times(i)).lt.0.001 ) i0 = i
63 
            if ( param(3).eq.times(i) ) i1 = i
 63 
            if ( abs(param(3)-times(i)).lt.0.001 ) i1 = i
64 
         enddo
 64 
         enddo
65 
         if ( (i0.eq.0).or.(i1.eq.0) ) then
 65 
         if ( (i0.eq.0).or.(i1.eq.0) ) then
66 
            print*,' ERROR: invalid times in SPECIAL:WCB... Stop'
 66 
            print*,' ERROR: invalid times in SPECIAL:WCB... Stop'
- 
 
 67 
            print*,param(2),param(3)
- 
 
 68 
            print*,(times(i),i=1,ntim)
- 
 
 69 
            print*,i0,i1
67 
            stop
 70 
            stop
68 
         endif
 71 
         endif
69 
 
 72 
 
70 
c        Check for ascent
73 
c        Check for ascent
71 
         do i=i0+1,i1
 74 
         do i=i0+1,i1