/[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.9 by jmc, Wed Apr 22 23:06:01 2009 UTC revision 1.10 by mlosch, Sat Sep 25 23:09:54 2010 UTC
# Line 79  C--   ================================== Line 79  C--   ==================================
79  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
80         IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC )         IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC )
81  #endif  #endif
82    #ifdef ALLOW_OASIS
83           IF ( useOASIS ) CALL OASIS_FINALIZE
84    #endif
85         CALL MPI_FINALIZE  ( mpiRC )         CALL MPI_FINALIZE  ( mpiRC )
86         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
87          eeEndError = .TRUE.          eeEndError = .TRUE.
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22