/[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.10 by heimbach, Mon May 12 19:45:17 2003 UTC revision 1.11 by jmc, Mon Dec 15 02:02:38 2003 UTC
# Line 79  C      forked within mpirun - now thats Line 79  C      forked within mpirun - now thats
79          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
80          GOTO 999          GOTO 999
81         ENDIF         ENDIF
82    
83  C--    MPI has now been initialized but now we need to either  C--    MPI has now been initialized but now we need to either
84  C      ask for a communicator or pretend that we have:  C      ask for a communicator or pretend that we have:
85  C      Pretend that we have asked for a communicator  C      Pretend that we have asked for a communicator
86         MPI_COMM_MODEL = MPI_COMM_WORLD         MPI_COMM_MODEL = MPI_COMM_WORLD
87  C      Ask coupler interface for a communicator  #ifdef COMPONENT_MODULE
88  c hook call MITCOMPONENT_init( 'MITgcmUV', MPI_COMM_MODEL )  C- jmc: test:
89    C      add a 1rst preliminary call EESET_PARAMS to set useCoupler
90    C      (needed to decide either to call CPL_INIT or not)
91           CALL EESET_PARMS
92           IF ( eeBootError ) GOTO 999
93    C- jmc: test end ; otherwise, uncomment next line:
94    c      useCoupler = .TRUE.
95    C--    Ask coupler interface for a communicator
96           IF ( useCoupler) CALL CPL_INIT
97    #endif
98    
99  C--    Get my process number  C--    Get my process number
100         CALL MPI_COMM_RANK( MPI_COMM_MODEL, mpiMyId, mpiRC )         CALL MPI_COMM_RANK( MPI_COMM_MODEL, mpiMyId, mpiRC )
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22