/[MITgcm]/MITgcm/eesupp/src/all_proc_die.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/all_proc_die.F

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

revision 1.4 by mlosch, Sat Sep 25 23:09:54 2010 UTC revision 1.5 by jmc, Tue Aug 30 21:50:29 2011 UTC
# Line 56  C--   Finishes Line 56  C--   Finishes
56  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
57        IF ( usingMPI ) THEN        IF ( usingMPI ) THEN
58  #endif  #endif
59          _BEGIN_MASTER(myThid)
60  C     better to avoid this call if multi-components set-up ; otherwise will  C     better to avoid this call if multi-components set-up ; otherwise will
61  C     hang here since procs of other comp. are not calling MPI_finalize now.  C     hang here since procs of other comp. are not calling MPI_finalize now.
62         IF ( .NOT.( useCoupler         IF ( .NOT.( useCoupler
# Line 64  C     hang here since procs of other com Line 65  C     hang here since procs of other com
65       &    ) THEN       &    ) THEN
66  #ifdef ALLOW_OASIS  #ifdef ALLOW_OASIS
67           IF ( useOASIS ) CALL OASIS_ABORT           IF ( useOASIS ) CALL OASIS_ABORT
68  #endif /* ALLOW_OASIS */          #endif /* ALLOW_OASIS */
69           CALL MPI_FINALIZE  ( mpiRC )           CALL MPI_FINALIZE  ( mpiRC )
70           IF ( mpiRC .NE. MPI_SUCCESS ) THEN           IF ( mpiRC .NE. MPI_SUCCESS ) THEN
71            WRITE(msgBuf,'(A,I5)')            WRITE(msgBuf,'(A,I5)')
# Line 72  C     hang here since procs of other com Line 73  C     hang here since procs of other com
73            CALL PRINT_ERROR( msgBuf, myThid )            CALL PRINT_ERROR( msgBuf, myThid )
74           ENDIF           ENDIF
75         ENDIF         ENDIF
76          _END_MASTER(myThid)
77  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
78        ENDIF        ENDIF
79  #endif  #endif
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22