/[MITgcm]/MITgcm/eesupp/src/eedie.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/eedie.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by cnh, Thu Apr 23 20:37:30 1998 UTC revision 1.3 by cnh, Wed Oct 28 03:11:34 1998 UTC
# Line 37  C--   Check that all the threads have en Line 37  C--   Check that all the threads have en
37  C     No thread should reach this loop before all threads have set  C     No thread should reach this loop before all threads have set
38  C     threadIsComplete to TRUE. If they do then either there is a bug  C     threadIsComplete to TRUE. If they do then either there is a bug
39  C     in the code or the behaviour of the parallel compiler directives  C     in the code or the behaviour of the parallel compiler directives
40  C     are not right for this code. In the latter case different directives  C     are not right for this code. In the latter case different
41  C     may be available or the compiler itself may have a bug or you may  C     directives may be available or the compiler itself may have a
42  C     need a different parallel compiler for main.F  C     bug or you may need a different parallel compiler for main.F
43        nThreadsDone = 0        nThreadsDone = 0
44        DO I = 1, nThreads        DO I = 1, nThreads
45         IF ( threadIsComplete(I) ) nThreadsDone = nThreadsDone+1         IF ( threadIsComplete(I) ) nThreadsDone = nThreadsDone+1
# Line 47  C     need a different parallel compiler Line 47  C     need a different parallel compiler
47        IF ( nThreadsDone .LT. nThreads ) THEN        IF ( nThreadsDone .LT. nThreads ) THEN
48         WRITE(msgBuf,'(A,I,A,I,A)')         WRITE(msgBuf,'(A,I,A,I,A)')
49       & 'S/R EEDIE: Only ',nThreadsDone,       & 'S/R EEDIE: Only ',nThreadsDone,
50       & ' threads have completed, ',nThreads,' are expected for this configuration!'       & ' threads have completed, ',nThreads,
51         & ' are expected for this configuration!'
52         WRITE(0,*) msgBuf         WRITE(0,*) msgBuf
53         WRITE(0,*) 'Possibly you have different values of setenv PARALLEL and nThreads?'         WRITE(0,*)
54         & 'Possibly you have different setenv PARALLEL and nThreads?'
55         eeEndError = .TRUE.         eeEndError = .TRUE.
56         fatalError = .TRUE.         fatalError = .TRUE.
57        ENDIF        ENDIF
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22