/[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.12 by jmc, Sat Sep 1 22:43:55 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  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
78  C--  C- Note: since MPI_INIT is always called, better to also always terminate MPI
79    C        (even if usingMPI=F) --> comment out test on usingMPI
80    c     IF ( usingMPI ) THEN
81    
82  C--   MPI style multiple-process termination  C--   MPI style multiple-process termination
83  C--   ======================================  C--   ======================================
 #ifndef ALWAYS_USE_MPI  
       IF ( usingMPI ) THEN  
 #endif  
84  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
85         IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC )         IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC )
86  #endif  #endif
# Line 95  C--   ================================== Line 96  C--   ==================================
96       &       mpiRC       &       mpiRC
97          CALL PRINT_ERROR( msgBuf, 1 )          CALL PRINT_ERROR( msgBuf, 1 )
98         ENDIF         ENDIF
99  C  
100  #ifndef ALWAYS_USE_MPI  c     ENDIF
       ENDIF  
 #endif  
101  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
102    
103        RETURN        RETURN
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22