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) |