/[MITgcm]/MITgcm_contrib/MPMice/beaufort/code/eeboot_minimal.F
ViewVC logotype

Diff of /MITgcm_contrib/MPMice/beaufort/code/eeboot_minimal.F

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

revision 1.4 by dimitri, Thu Oct 3 18:37:48 2013 UTC revision 1.5 by dimitri, Sat Oct 4 03:24:19 2014 UTC
# Line 228  C--    Get my process number Line 228  C--    Get my process number
228         mpiPidIo = myProcId         mpiPidIo = myProcId
229         pidIO    = mpiPidIo         pidIO    = mpiPidIo
230         IF ( mpiPidIo .EQ. myProcId ) THEN         IF ( mpiPidIo .EQ. myProcId ) THEN
231          WRITE(fNam,'(A,A)') 'STDERR.', myProcessStr(1:4)  #ifdef SINGLE_DISK_IO
232          OPEN(errorMessageUnit,FILE=fNam,STATUS='unknown')          IF( myProcId .EQ. 0 ) THEN
233          WRITE(fNam,'(A,A)') 'STDOUT.', myProcessStr(1:4)  #endif
234          OPEN(standardMessageUnit,FILE=fNam,STATUS='unknown')           WRITE(fNam,'(A,A)') 'STDERR.', myProcessStr(1:4)
235             OPEN(errorMessageUnit,FILE=fNam,STATUS='unknown')
236             WRITE(fNam,'(A,A)') 'STDOUT.', myProcessStr(1:4)
237             OPEN(standardMessageUnit,FILE=fNam,STATUS='unknown')
238    #ifdef SINGLE_DISK_IO
239            ELSE
240             OPEN(errorMessageUnit,FILE='/dev/null',STATUS='unknown')
241             standardMessageUnit=errorMessageUnit
242            ENDIF
243            IF( myProcId .EQ. 0 ) THEN
244              WRITE(msgBuf,'(2A)') '** WARNING ** EEBOOT_MINIMAL: ',
245         &     'defined SINGLE_DISK_IO will result in losing'
246              CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
247         &                        SQUEEZE_RIGHT, myThid )
248              WRITE(msgBuf,'(2A)') '** WARNING ** EEBOOT_MINIMAL: ',
249         &     'any message (error/warning) from any proc <> 0'
250              CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
251         &                        SQUEEZE_RIGHT, myThid )
252            ENDIF
253    #endif
254         ENDIF         ENDIF
255    
256  #if defined(ALLOW_NEST_PARENT) || defined(ALLOW_NEST_CHILD)  #if defined(ALLOW_NEST_PARENT) || defined(ALLOW_NEST_CHILD)
# Line 265  C--    Get number of MPI processes Line 284  C--    Get number of MPI processes
284  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
285        ENDIF        ENDIF
286    
 C--    Can not have more processes than compile time MAX_NO_PROCS  
        IF ( numberOfProcs .GT. MAX_NO_PROCS ) THEN  
         eeBootError = .TRUE.  
         WRITE(msgBuf,'(A,2I6)')  
      &    'EEBOOT_MINIMAL: Nb. of procs exceeds MAX_NO_PROCS',  
      &    numberOfProcs, MAX_NO_PROCS  
         CALL PRINT_ERROR( msgBuf, myThid )  
         WRITE(msgBuf,'(2A)')  
      &    ' Needs to increase MAX_NO_PROCS',  
      &    ' in file "EEPARAMS.h" and to re-compile'  
         CALL PRINT_ERROR( msgBuf, myThid )  
         GOTO 999  
        ENDIF  
287  C--    Under MPI only allow same number of processes as proc grid size.  C--    Under MPI only allow same number of processes as proc grid size.
288  C      Strictly we are allowed more procs but knowing there  C      Strictly we are allowed more procs but knowing there
289  C      is an exact match makes things easier.  C      is an exact match makes things easier.
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22