/[MITgcm]/MITgcm_contrib/llc_hires/llc_1080/code-async/eedie.F
ViewVC logotype

Diff of /MITgcm_contrib/llc_hires/llc_1080/code-async/eedie.F

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

revision 1.1 by dimitri, Sun Sep 29 22:43:00 2013 UTC revision 1.2 by dimitri, Thu Mar 6 02:45:05 2014 UTC
# Line 77  C--   end if/else eebootError Line 77  C--   end if/else eebootError
77        CALL F_HPMTERMINATE(myProcId)        CALL F_HPMTERMINATE(myProcId)
78  #endif  #endif
79    
80    C--   Flush IO-unit before MPI termination
81          CALL MDS_FLUSH( errorMessageUnit, 1 )
82    c#ifdef ALLOW_USE_MPI
83          CALL MDS_FLUSH( standardMessageUnit, 1 )
84    c#endif /* ALLOW_USE_MPI */
85    
86  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
87  C- Note: since MPI_INIT is always called, better to also always terminate MPI  C- Note: since MPI_INIT is always called, better to also always terminate MPI
88  C        (even if usingMPI=F) --> comment out test on usingMPI  C        (even if usingMPI=F) --> comment out test on usingMPI
# Line 97  C!     CALL MPI_BARRIER( MPI_COMM_WORLD, Line 103  C!     CALL MPI_BARRIER( MPI_COMM_WORLD,
103  #ifdef ALLOW_OASIS  #ifdef ALLOW_OASIS
104         IF ( useOASIS ) CALL OASIS_FINALIZE         IF ( useOASIS ) CALL OASIS_FINALIZE
105  #endif  #endif
        PRINT *, ' EEDIE BEFORE FINALIZE'  
106         CALL MPI_FINALIZE  ( mpiRC )         CALL MPI_FINALIZE  ( mpiRC )
107         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
108          eeEndError = .TRUE.          eeEndError = .TRUE.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22