/[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.3 by cnh, Thu Apr 23 20:56:54 1998 UTC revision 1.4 by cnh, Wed Oct 28 03:11:34 1998 UTC
# Line 47  C--   Default values set to single proce Line 47  C--   Default values set to single proce
47        myProcId      = 0        myProcId      = 0
48        pidIO         = myProcId        pidIO         = myProcId
49        myProcessStr  = '??????'        myProcessStr  = '??????'
50  C     Set a dummy value for myThid because we aren't multi-threading  C     Set a dummy value for myThid because we are not multi-threading
51  C     yet.  C     yet.
52        myThid        = 1        myThid        = 1
53  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
# Line 92  C--    Get my process number Line 92  C--    Get my process number
92    
93  C--    Synchronise all processes  C--    Synchronise all processes
94  C      Strictly this is superfluous, but by using it we can guarantee to  C      Strictly this is superfluous, but by using it we can guarantee to
95  C      find out about processes that didn't start up.  C      find out about processes that did not start up.
96         CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC )         CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC )
97         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
98          eeBootError = .TRUE.          eeBootError = .TRUE.
# Line 115  C--    Get number of MPI processes Line 115  C--    Get number of MPI processes
115         ENDIF         ENDIF
116         numberOfProcs = mpiNProcs         numberOfProcs = mpiNProcs
117    
118  C--    Can't have more processes than compile time MAX_NO_PROCS  C--    Can not have more processes than compile time MAX_NO_PROCS
119         IF ( numberOfProcs .GT. MAX_NO_PROCS ) THEN         IF ( numberOfProcs .GT. MAX_NO_PROCS ) THEN
120          eeBootError = .TRUE.          eeBootError = .TRUE.
121          WRITE(msgBuffer,'(A)')          WRITE(msgBuffer,'(A)')
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22