/[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 by heimbach, Tue Apr 10 22:35:24 2001 UTC revision 1.6.14.1 by dimitri, Mon Jan 20 03:05:54 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_OPTIONS.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    
69    #if !defined(COUPLED_UCLA) || defined(COUPLED_DEBUG)
70    
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 74  C--   ================================== Line 77  C--   ==================================
77       &       mpiRC       &       mpiRC
78          CALL PRINT_ERROR( msgBuf, 1 )          CALL PRINT_ERROR( msgBuf, 1 )
79         ENDIF         ENDIF
80  C  
81    #endif COUPLED_UCLA
82    
83  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
84        ENDIF        ENDIF
85  #endif  #endif
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.14.1
  ViewVC Help
Powered by ViewVC 1.1.22