/[MITgcm]/MITgcm/eesupp/src/check_threads.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/check_threads.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10 by cnh, Fri Sep 21 03:54:34 2001 UTC revision 1.11 by edhill, Tue Nov 11 20:38:26 2003 UTC
# Line 89  C       but this causes KAP to insert a Line 89  C       but this causes KAP to insert a
89        ENDIF        ENDIF
90        IF ( numberThreadsRunning .NE. nThreads ) THEN        IF ( numberThreadsRunning .NE. nThreads ) THEN
91  #ifdef HAVE_SYSTEM  #ifdef HAVE_SYSTEM
 #ifndef TARGET_T3E  
 #ifndef TARGET_CRAY_VECTOR  
92         CALL SYSTEM('sleep 1')         CALL SYSTEM('sleep 1')
93  #endif  #endif
 #endif  
 #endif  
94         GOTO 10         GOTO 10
95        ENDIF        ENDIF
96     11 CONTINUE     11 CONTINUE
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22