/[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.4 by adcroft, Tue May 18 17:39:21 1999 UTC revision 1.9 by jmc, Wed Apr 22 23:06:01 2009 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    #ifdef USE_LIBHPM
6    # include "f_hpm.h"
7    #endif
8    
9  CStartOfInterface  CBOP
10        SUBROUTINE EEDIE        SUBROUTINE EEDIE
11  C     /==========================================================\  C     *==========================================================*
12  C     | SUBROUTINE EEDIE                                         |  C     | SUBROUTINE EEDIE                                         |
13  C     | o Close execution "environment", particularly perform    |  C     | o Close execution "environment", particularly perform    |
14  C     |   steps to terminate parallel processing.                |  C     |   steps to terminate parallel processing.                |
15  C     |==========================================================|  C     *==========================================================*
16  C     | Note: This routine can also be compiled with CPP         |  C     | Note: This routine can also be compiled with CPP         |
17  C     | directives set so that no multi-processing is initialised|  C     | directives set so that no multi-processing is initialised|
18  C     | This is OK and should work fine.                         |  C     | This is OK and should work fine.                         |
19  C     \==========================================================/  C     *==========================================================*
20        IMPLICIT NONE        IMPLICIT NONE
21    
22  C     == Global variables ==  C     == Global variables ==
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25  #include "EESUPPORT.h"  #include "EESUPPORT.h"
26  CEndOfInterface  CEOP
27    
28    C     !FUNCTIONS
29          INTEGER  ILNBLNK
30          EXTERNAL ILNBLNK
31    
32  C     == Local variables ==  C     == Local variables ==
33  C     msgBuf       - I/O Buffer  C     msgBuf       - I/O Buffer
# Line 27  C     nThreadsDone - Used to count numbe Line 35  C     nThreadsDone - Used to count numbe
35  C     I            - Loop counter.  C     I            - Loop counter.
36        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
37        INTEGER nThreadsDone        INTEGER nThreadsDone
38        INTEGER I        INTEGER I, L
39  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
40  C     mpiRC            - Error code reporting variable used  C     mpiRC            - Error code reporting variable used
41  C                        with MPI.  C                        with MPI.
# Line 50  C     bug or you may need a different pa Line 58  C     bug or you may need a different pa
58       & 'S/R EEDIE: Only ',nThreadsDone,       & 'S/R EEDIE: Only ',nThreadsDone,
59       & ' threads have completed, ',nThreads,       & ' threads have completed, ',nThreads,
60       & ' are expected for this configuration!'       & ' are expected for this configuration!'
61         WRITE(0,*) msgBuf         L = ILNBLNK(msgBuf)
62         WRITE(0,*)         WRITE(*,*) msgBuf(1:L)
63           WRITE(*,*)
64       & 'Possibly you have different setenv PARALLEL and nThreads?'       & 'Possibly you have different setenv PARALLEL and nThreads?'
65         eeEndError = .TRUE.         eeEndError = .TRUE.
66         fatalError = .TRUE.         fatalError = .TRUE.
67        ENDIF        ENDIF
68    
69    #ifdef USE_LIBHPM
70          CALL F_HPMTERMINATE(myProcId)
71    #endif
72  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
73  C--  C--
74  C--   MPI style multiple-process termination  C--   MPI style multiple-process termination
# Line 64  C--   ================================== Line 76  C--   ==================================
76  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
77        IF ( usingMPI ) THEN        IF ( usingMPI ) THEN
78  #endif  #endif
79    #ifdef COMPONENT_MODULE
80           IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC )
81    #endif
82         CALL MPI_FINALIZE  ( mpiRC )         CALL MPI_FINALIZE  ( mpiRC )
83         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
84          eeEndError = .TRUE.          eeEndError = .TRUE.
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22