/[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.7 by heimbach, Mon Jan 29 20:00:14 2001 UTC
# Line 76  C       but this causes KAP to insert a Line 76  C       but this causes KAP to insert a
76         GOTO 11         GOTO 11
77        ENDIF        ENDIF
78        IF ( numberThreadsRunning .NE. nThreads ) THEN        IF ( numberThreadsRunning .NE. nThreads ) THEN
79    #ifdef HAVE_SYSTEM
80  #ifndef TARGET_T3E  #ifndef TARGET_T3E
81  #ifndef TARGET_CRAY_VECTOR  #ifndef TARGET_CRAY_VECTOR
82         CALL SYSTEM('sleep 1')         CALL SYSTEM('sleep 1')
83  #endif  #endif
84  #endif  #endif
85    #endif
86         GOTO 10         GOTO 10
87        ENDIF        ENDIF
88     11 CONTINUE     11 CONTINUE
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22