/[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.11 by jmc, Wed Mar 28 20:22:39 2012 UTC revision 1.13 by jmc, Thu Oct 11 19:15:18 2012 UTC
# Line 73  C--   end if/else eebootError Line 73  C--   end if/else eebootError
73  #ifdef USE_LIBHPM  #ifdef USE_LIBHPM
74        CALL F_HPMTERMINATE(myProcId)        CALL F_HPMTERMINATE(myProcId)
75  #endif  #endif
76    
77    C--   Flush IO-unit before MPI termination
78          CALL MDS_FLUSH( errorMessageUnit, 1 )
79    c#ifdef ALLOW_USE_MPI
80          CALL MDS_FLUSH( standardMessageUnit, 1 )
81    c#endif /* ALLOW_USE_MPI */
82    
83  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
84  C--  C- Note: since MPI_INIT is always called, better to also always terminate MPI
85    C        (even if usingMPI=F) --> comment out test on usingMPI
86    c     IF ( usingMPI ) THEN
87    
88  C--   MPI style multiple-process termination  C--   MPI style multiple-process termination
89  C--   ======================================  C--   ======================================
 #ifndef ALWAYS_USE_MPI  
       IF ( usingMPI ) THEN  
 #endif  
90  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
91         IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC )         IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC )
92  #endif  #endif
# Line 95  C--   ================================== Line 102  C--   ==================================
102       &       mpiRC       &       mpiRC
103          CALL PRINT_ERROR( msgBuf, 1 )          CALL PRINT_ERROR( msgBuf, 1 )
104         ENDIF         ENDIF
105  C  
106  #ifndef ALWAYS_USE_MPI  c     ENDIF
       ENDIF  
 #endif  
107  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
108    
109        RETURN        RETURN
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22