/[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.5 by cnh, Sun Feb 4 14:38:43 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 51  C     bug or you may need a different pa Line 51  C     bug or you may need a different pa
51       & 'S/R EEDIE: Only ',nThreadsDone,       & 'S/R EEDIE: Only ',nThreadsDone,
52       & ' threads have completed, ',nThreads,       & ' threads have completed, ',nThreads,
53       & ' are expected for this configuration!'       & ' are expected for this configuration!'
54         WRITE(0,*) msgBuf         WRITE(*,*) msgBuf
55         WRITE(0,*)         WRITE(*,*)
56       & 'Possibly you have different setenv PARALLEL and nThreads?'       & 'Possibly you have different setenv PARALLEL and nThreads?'
57         eeEndError = .TRUE.         eeEndError = .TRUE.
58         fatalError = .TRUE.         fatalError = .TRUE.
# 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.5  
changed lines
  Added in v.1.6.14.1
  ViewVC Help
Powered by ViewVC 1.1.22