/[MITgcm]/MITgcm/eesupp/src/eeboot_minimal.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/eeboot_minimal.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.13 by edhill, Sat Mar 27 03:51:51 2004 UTC revision 1.14 by jmc, Sun Nov 7 23:23:00 2004 UTC
# Line 49  C     msgBuffer        :: Used to build Line 49  C     msgBuffer        :: Used to build
49        CHARACTER*(MAX_LEN_MBUF) msgBuffer        CHARACTER*(MAX_LEN_MBUF) msgBuffer
50        INTEGER mpiRC        INTEGER mpiRC
51        INTEGER nptmp        INTEGER nptmp
52          INTEGER mpiMyWid
53  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
54  CEOP  CEOP
55    
# Line 84  C--    MPI has now been initialized but Line 85  C--    MPI has now been initialized but
85  C      ask for a communicator or pretend that we have:  C      ask for a communicator or pretend that we have:
86  C      Pretend that we have asked for a communicator  C      Pretend that we have asked for a communicator
87         MPI_COMM_MODEL = MPI_COMM_WORLD         MPI_COMM_MODEL = MPI_COMM_WORLD
88    
89  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
90    C--    Set the running directory
91           CALL MPI_COMM_RANK( MPI_COMM_WORLD, mpiMyWId, mpiRC )
92           CALL SETDIR( mpiMyWId )
93    
94  C- jmc: test:  C- jmc: test:
95  C      add a 1rst preliminary call EESET_PARAMS to set useCoupler  C      add a 1rst preliminary call EESET_PARAMS to set useCoupler
96  C      (needed to decide either to call CPL_INIT or not)  C      (needed to decide either to call CPL_INIT or not)
# Line 92  C      (needed to decide either to call Line 98  C      (needed to decide either to call
98         IF ( eeBootError ) GOTO 999         IF ( eeBootError ) GOTO 999
99  C- jmc: test end ; otherwise, uncomment next line:  C- jmc: test end ; otherwise, uncomment next line:
100  c      useCoupler = .TRUE.  c      useCoupler = .TRUE.
101    
102  C--    Ask coupler interface for a communicator  C--    Ask coupler interface for a communicator
103         IF ( useCoupler) CALL CPL_INIT         IF ( useCoupler) CALL CPL_INIT
104  #endif  #endif
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22