/[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.9 by heimbach, Fri Mar 7 05:13:49 2003 UTC revision 1.10 by heimbach, Mon May 12 19:45:17 2003 UTC
# Line 48  C     msgBuffer        :: Used to build Line 48  C     msgBuffer        :: Used to build
48        CHARACTER*(MAX_LEN_MBUF) msgBuffer        CHARACTER*(MAX_LEN_MBUF) msgBuffer
49        INTEGER mpiRC        INTEGER mpiRC
50        CHARACTER*13 fNam        CHARACTER*13 fNam
51          INTEGER nptmp
52  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
53  CEOP  CEOP
54    
# Line 145  C      Strictly we are allowed more proc Line 146  C      Strictly we are allowed more proc
146  C      is an exact match makes things easier.  C      is an exact match makes things easier.
147         IF ( numberOfProcs .NE. nPx*nPy ) THEN         IF ( numberOfProcs .NE. nPx*nPy ) THEN
148          eeBootError = .TRUE.          eeBootError = .TRUE.
149          WRITE(msgBuffer,'(A,2(X,I))')          nptmp = nPx*nPy
150            WRITE(msgBuffer,'(A,2I5)')
151       &  'S/R INI_PROCS: No. of processes not equal to nPx*nPy',       &  'S/R INI_PROCS: No. of processes not equal to nPx*nPy',
152       &  numberOfProcs, nPx*nPy       &  numberOfProcs, nptmp
153          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
154          GOTO 999          GOTO 999
155         ENDIF         ENDIF
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22