/[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.4 by adcroft, Tue May 18 17:39:21 1999 UTC revision 1.7 by jmc, Mon Dec 15 02:02:39 2003 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 50  C     bug or you may need a different pa Line 51  C     bug or you may need a different pa
51       & 'S/R EEDIE: Only ',nThreadsDone,       & 'S/R EEDIE: Only ',nThreadsDone,
52       & ' threads have completed, ',nThreads,       & ' threads have completed, ',nThreads,
53       & ' are expected for this configuration!'       & ' are expected for this configuration!'
54         WRITE(0,*) msgBuf         WRITE(*,*) msgBuf
55         WRITE(0,*)         WRITE(*,*)
56       & 'Possibly you have different setenv PARALLEL and nThreads?'       & 'Possibly you have different setenv PARALLEL and nThreads?'
57         eeEndError = .TRUE.         eeEndError = .TRUE.
58         fatalError = .TRUE.         fatalError = .TRUE.
# Line 64  C--   ================================== Line 65  C--   ==================================
65  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
66        IF ( usingMPI ) THEN        IF ( usingMPI ) THEN
67  #endif  #endif
68    #ifdef COMPONENT_MODULE
69           IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC )
70    #endif
71         CALL MPI_FINALIZE  ( mpiRC )         CALL MPI_FINALIZE  ( mpiRC )
72         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
73          eeEndError = .TRUE.          eeEndError = .TRUE.
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22