Subversion Repositories lagranto.ecmwf

Rev

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

Rev 3 Rev 5
Line 67... Line 67...
67 
            stop
 67 
            stop
68 
         endif
 68 
         endif
69 
 
 69 
 
70 
c        Check for ascent
70 
c        Check for ascent
71 
         do i=i0+1,i1
 71 
         do i=i0+1,i1
72 
            if ( ( tra(1,ip)-tra(i,ip) ) .gt. param(1) ) flag = 1
 72 
            if ( ( tra(i0,ip)-tra(i,ip) ) .gt. param(1) ) flag = 1
73 
         enddo
 73 
         enddo
74 
 
 74 
 
75 
      endif
 75 
      endif
76 
 
 76 
 
77 
c     ---------------------------------------------------------------------------
 77 
c     ---------------------------------------------------------------------------