/[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.6.14.1 by dimitri, Mon Jan 20 03:05:54 2003 UTC revision 1.7 by jmc, Mon Dec 15 02:02:39 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
6  CStartOfInterface  CStartOfInterface
7        SUBROUTINE EEDIE        SUBROUTINE EEDIE
# Line 65  C--   ================================== Line 65  C--   ==================================
65  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
66        IF ( usingMPI ) THEN        IF ( usingMPI ) THEN
67  #endif  #endif
68    #ifdef COMPONENT_MODULE
69  #if !defined(COUPLED_UCLA) || defined(COUPLED_DEBUG)         IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC )
70    #endif
71         CALL MPI_FINALIZE  ( mpiRC )         CALL MPI_FINALIZE  ( mpiRC )
72         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
73          eeEndError = .TRUE.          eeEndError = .TRUE.
# Line 77  C--   ================================== Line 77  C--   ==================================
77       &       mpiRC       &       mpiRC
78          CALL PRINT_ERROR( msgBuf, 1 )          CALL PRINT_ERROR( msgBuf, 1 )
79         ENDIF         ENDIF
80    C
 #endif COUPLED_UCLA  
   
81  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
82        ENDIF        ENDIF
83  #endif  #endif
Legend:
Removed from v.1.6.14.1  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22