Subversion Repositories lagranto.icon

Rev

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

Rev 3 Rev 5
Line 333... Line 333...
333
333
334 
	do i=2,ntim
 334 
	do i=2,ntim
335 
	    if((tropdist(i)*tropdist(i-1) .lt. 0) .and.
335 
	    if((tropdist(i)*tropdist(i-1) .lt. 0) .and.
336 
     &(tropdist(i-1) .gt. 0)) then
 336 
     &(tropdist(i-1) .gt. 0)) then
337 
C		Adding label check for STT
 337 
C		Adding label check for STT
338 
		if( (tra(i,labelcol) .ne. 1) .and. (tra(i-1,labelcol) .ne. 2)) then
 338 
		if((tra(i,labelcol).ne.1).and.(tra(i-1,labelcol).ne.2))then
339 
		  if(debugflag .eq. 1) then
 339 
		  if(debugflag .eq. 1) then
340 
	            print*, 'STT label check failed:'
340 
	            print*, 'STT label check failed:'
341 
		    print*, 'moving to next STT candidate'
 341 
		    print*, 'moving to next STT candidate'
342 
	          endif
 342 
	          endif
343 
		    cycle
 343 
		    cycle