Subversion Repositories lagranto.um

Rev

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

Rev 11 Rev 16
Line 349... Line 349...
349 
     >        ( reftime(3).ne.reftmp(3) ).or.
 349 
     >        ( reftime(3).ne.reftmp(3) ).or.
350 
     >        ( reftime(4).ne.reftmp(4) ).or.
 350 
     >        ( reftime(4).ne.reftmp(4) ).or.
351 
     >        ( reftime(5).ne.reftmp(5) ) )
 351 
     >        ( reftime(5).ne.reftmp(5) ) )
352 
     >   then
 352 
     >   then
353 
            print*,' WARNING: Inconsistent reference times'
 353 
            print*,' WARNING: Inconsistent reference times'
354 
            write(*,'(5f8.2)') (reftime(i),i=1,5)
 354 
            write(*,'(5i5)') (reftime(i),i=1,5)
355 
            write(*,'(5f8.2)') (reftmp (i),i=1,5)
 355 
            write(*,'(5i5)') (reftmp (i),i=1,5)
356 
            print*,'Enter a key to proceed...'
 356 
            print*,'Enter a key to proceed...'
357 
            stop
 357 
            stop
358 
         endif
 358 
         endif
359 
      endif
 359 
      endif
360 
 
 360