/[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.12 by edhill, Tue Nov 11 23:04:50 2003 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
 #define HAVE_SYSTEM  
5    
6  CBOP  CBOP
7  C     !ROUTINE: CHECK_THREADS  C     !ROUTINE: CHECK_THREADS
# Line 89  C       but this causes KAP to insert a Line 88  C       but this causes KAP to insert a
88        ENDIF        ENDIF
89        IF ( numberThreadsRunning .NE. nThreads ) THEN        IF ( numberThreadsRunning .NE. nThreads ) THEN
90  #ifdef HAVE_SYSTEM  #ifdef HAVE_SYSTEM
 #ifndef TARGET_T3E  
 #ifndef TARGET_CRAY_VECTOR  
91         CALL SYSTEM('sleep 1')         CALL SYSTEM('sleep 1')
92  #endif  #endif
 #endif  
 #endif  
93         GOTO 10         GOTO 10
94        ENDIF        ENDIF
95     11 CONTINUE     11 CONTINUE
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22