/[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.3 by cnh, Wed Oct 28 03:11:34 1998 UTC revision 1.4 by adcroft, Tue May 18 17:39:21 1999 UTC
# Line 13  C     | Note: This routine can also be c Line 13  C     | Note: This routine can also be c
13  C     | directives set so that no multi-processing is initialised|  C     | directives set so that no multi-processing is initialised|
14  C     | This is OK and should work fine.                         |  C     | This is OK and should work fine.                         |
15  C     \==========================================================/  C     \==========================================================/
16          IMPLICIT NONE
17    
18  C     == Global variables ==  C     == Global variables ==
19  #include "SIZE.h"  #include "SIZE.h"
# Line 45  C     bug or you may need a different pa Line 46  C     bug or you may need a different pa
46         IF ( threadIsComplete(I) ) nThreadsDone = nThreadsDone+1         IF ( threadIsComplete(I) ) nThreadsDone = nThreadsDone+1
47        ENDDO        ENDDO
48        IF ( nThreadsDone .LT. nThreads ) THEN        IF ( nThreadsDone .LT. nThreads ) THEN
49         WRITE(msgBuf,'(A,I,A,I,A)')         WRITE(msgBuf,'(A,I5,A,I5,A)')
50       & 'S/R EEDIE: Only ',nThreadsDone,       & 'S/R EEDIE: Only ',nThreadsDone,
51       & ' threads have completed, ',nThreads,       & ' threads have completed, ',nThreads,
52       & ' are expected for this configuration!'       & ' are expected for this configuration!'
# Line 67  C--   ================================== Line 68  C--   ==================================
68         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
69          eeEndError = .TRUE.          eeEndError = .TRUE.
70          fatalError = .TRUE.          fatalError = .TRUE.
71          WRITE(msgBuf,'(A,I)')          WRITE(msgBuf,'(A,I5)')
72       &       'S/R FIN_PROCS: MPI_FINALIZE return code',       &       'S/R FIN_PROCS: MPI_FINALIZE return code',
73       &       mpiRC       &       mpiRC
74          CALL PRINT_ERROR( msgBuf, 1 )          CALL PRINT_ERROR( msgBuf, 1 )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22