/[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.6 by heimbach, Wed Jun 21 20:44:06 2000 UTC revision 1.9 by adcroft, Tue May 29 14:01:36 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    #define HAVE_SYSTEM
6    
7  CStartOfInterface  CStartOfInterface
8        SUBROUTINE CHECK_THREADS( myThid )        SUBROUTINE CHECK_THREADS( myThid )
# Line 76  C       but this causes KAP to insert a Line 78  C       but this causes KAP to insert a
78         GOTO 11         GOTO 11
79        ENDIF        ENDIF
80        IF ( numberThreadsRunning .NE. nThreads ) THEN        IF ( numberThreadsRunning .NE. nThreads ) THEN
81    #ifdef HAVE_SYSTEM
82  #ifndef TARGET_T3E  #ifndef TARGET_T3E
83  #ifndef TARGET_CRAY_VECTOR  #ifndef TARGET_CRAY_VECTOR
84         CALL SYSTEM('sleep 1')         CALL SYSTEM('sleep 1')
85  #endif  #endif
86  #endif  #endif
87    #endif
88         GOTO 10         GOTO 10
89        ENDIF        ENDIF
90     11 CONTINUE     11 CONTINUE
91  C    
 C  
92        RETURN        RETURN
93        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22