/[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.2 by jmc, Thu Jun 18 22:38:37 2009 UTC revision 1.3 by jmc, Tue Dec 29 19:43:00 2009 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    C     better to avoid this call if multi-components set-up ; otherwise will
60    C     hang here since procs of other comp. are not calling MPI_finalize now.
61           IF ( .NOT.( useCoupler
62         &        .OR. useNEST_PARENT
63         &        .OR. useNEST_CHILD )
64         &    ) THEN
65           CALL MPI_FINALIZE  ( mpiRC )           CALL MPI_FINALIZE  ( mpiRC )
66           IF ( mpiRC .NE. MPI_SUCCESS ) THEN           IF ( mpiRC .NE. MPI_SUCCESS ) THEN
67            WRITE(msgBuf,'(A,I5)')            WRITE(msgBuf,'(A,I5)')
68       &     'S/R FIN_PROCS: MPI_FINALIZE return code', mpiRC       &     'S/R FIN_PROCS: MPI_FINALIZE return code', mpiRC
69            CALL PRINT_ERROR( msgBuf, myThid )            CALL PRINT_ERROR( msgBuf, myThid )
70           ENDIF           ENDIF
71           ENDIF
72  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
73        ENDIF        ENDIF
74  #endif  #endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22