/[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.8 by ce107, Thu Dec 22 00:56:49 2005 UTC revision 1.9 by jmc, Wed Apr 22 23:06:01 2009 UTC
# Line 6  C $Name$ Line 6  C $Name$
6  # include "f_hpm.h"  # include "f_hpm.h"
7  #endif  #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 31  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 54  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(*,*) msgBuf         L = ILNBLNK(msgBuf)
62           WRITE(*,*) msgBuf(1:L)
63         WRITE(*,*)         WRITE(*,*)
64       & 'Possibly you have different setenv PARALLEL and nThreads?'       & 'Possibly you have different setenv PARALLEL and nThreads?'
65         eeEndError = .TRUE.         eeEndError = .TRUE.
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22