/[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.3 by cnh, Wed Oct 28 03:11:33 1998 UTC revision 1.8 by cnh, Sun Feb 4 14:38:42 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    
# Line 24  C     | and allow a programmer to modify Line 25  C     | and allow a programmer to modify
25  C     | barrier code to allow threads to be scheduled more       |  C     | barrier code to allow threads to be scheduled more       |
26  C     | appropriately.                                           |  C     | appropriately.                                           |
27  C     \==========================================================/  C     \==========================================================/
28          IMPLICIT NONE
29    
30  C     === Global data ===  C     === Global data ===
31  #include "SIZE.h"  #include "SIZE.h"
# Line 59  C Line 61  C
61        IF ( nChecks .GT. 10 ) THEN        IF ( nChecks .GT. 10 ) THEN
62         thError(myThid) = .TRUE.         thError(myThid) = .TRUE.
63         eeBootError     = .TRUE.         eeBootError     = .TRUE.
64         WRITE(msgBuffer,'(A,I,A,I,A)')         WRITE(msgBuffer,'(A,I5,A,I5,A)')
65       &  'S/R INI_CHECK_THREADS: Only ',numberThreadsRunning,       &  'S/R INI_CHECK_THREADS: Only ',numberThreadsRunning,
66       &  ' thread(s), ',nThreads,' are needed for this configuration!'       &  ' thread(s), ',nThreads,' are needed for this configuration!'
67          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 75  C       but this causes KAP to insert a Line 77  C       but this causes KAP to insert a
77         GOTO 11         GOTO 11
78        ENDIF        ENDIF
79        IF ( numberThreadsRunning .NE. nThreads ) THEN        IF ( numberThreadsRunning .NE. nThreads ) THEN
80    #ifdef HAVE_SYSTEM
81    #ifndef TARGET_T3E
82    #ifndef TARGET_CRAY_VECTOR
83         CALL SYSTEM('sleep 1')         CALL SYSTEM('sleep 1')
84    #endif
85    #endif
86    #endif
87         GOTO 10         GOTO 10
88        ENDIF        ENDIF
89     11 CONTINUE     11 CONTINUE
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22