24 |
C | barrier code to allow threads to be scheduled more | |
C | barrier code to allow threads to be scheduled more | |
25 |
C | appropriately. | |
C | appropriately. | |
26 |
C \==========================================================/ |
C \==========================================================/ |
27 |
|
IMPLICIT NONE |
28 |
|
|
29 |
C === Global data === |
C === Global data === |
30 |
#include "SIZE.h" |
#include "SIZE.h" |
60 |
IF ( nChecks .GT. 10 ) THEN |
IF ( nChecks .GT. 10 ) THEN |
61 |
thError(myThid) = .TRUE. |
thError(myThid) = .TRUE. |
62 |
eeBootError = .TRUE. |
eeBootError = .TRUE. |
63 |
WRITE(msgBuffer,'(A,I,A,I,A)') |
WRITE(msgBuffer,'(A,I5,A,I5,A)') |
64 |
& 'S/R INI_CHECK_THREADS: Only ',numberThreadsRunning, |
& 'S/R INI_CHECK_THREADS: Only ',numberThreadsRunning, |
65 |
& ' thread(s), ',nThreads,' are needed for this configuration!' |
& ' thread(s), ',nThreads,' are needed for this configuration!' |
66 |
CALL PRINT_ERROR( msgBuffer , myThid) |
CALL PRINT_ERROR( msgBuffer , myThid) |
76 |
GOTO 11 |
GOTO 11 |
77 |
ENDIF |
ENDIF |
78 |
IF ( numberThreadsRunning .NE. nThreads ) THEN |
IF ( numberThreadsRunning .NE. nThreads ) THEN |
79 |
|
#ifndef TARGET_T3E |
80 |
|
#ifndef TARGET_CRAY_VECTOR |
81 |
CALL SYSTEM('sleep 1') |
CALL SYSTEM('sleep 1') |
82 |
|
#endif |
83 |
|
#endif |
84 |
GOTO 10 |
GOTO 10 |
85 |
ENDIF |
ENDIF |
86 |
11 CONTINUE |
11 CONTINUE |