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

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

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

revision 1.10 by adcroft, Mon May 24 15:15:11 1999 UTC revision 1.11 by adcroft, Mon May 24 15:19:53 1999 UTC
# Line 141  C      Could be periodic in X and/or Y - Line 141  C      Could be periodic in X and/or Y -
141       O  mpiComm, mpiRC )       O  mpiComm, mpiRC )
142         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
143          eeBootError = .TRUE.          eeBootError = .TRUE.
144          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
145       &        'S/R INI_PROCS: MPI_CART_CREATE return code',       &        'S/R INI_PROCS: MPI_CART_CREATE return code',
146       &        mpiRC       &        mpiRC
147          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 152  C--    Get my location on the grid Line 152  C--    Get my location on the grid
152         CALL MPI_CART_COORDS( mpiComm, mpiMyId, 2, mpiGridSpec, mpiRC )         CALL MPI_CART_COORDS( mpiComm, mpiMyId, 2, mpiGridSpec, mpiRC )
153         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
154          eeBootError = .TRUE.          eeBootError = .TRUE.
155          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
156       &        'S/R INI_PROCS: MPI_CART_COORDS return code',       &        'S/R INI_PROCS: MPI_CART_COORDS return code',
157       &        mpiRC       &        mpiRC
158          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 176  C--    Get MPI id for neighboring procs. Line 176  C--    Get MPI id for neighboring procs.
176         CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidW , mpiRC )         CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidW , mpiRC )
177         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
178          eeBootError = .TRUE.          eeBootError = .TRUE.
179          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
180       &        'S/R INI_PROCS: MPI_CART_RANK (pidW) return code',       &        'S/R INI_PROCS: MPI_CART_RANK (pidW) return code',
181       &        mpiRC       &        mpiRC
182          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 191  C--    Get MPI id for neighboring procs. Line 191  C--    Get MPI id for neighboring procs.
191         CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidE , mpiRC )         CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidE , mpiRC )
192         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
193          eeBootError = .TRUE.          eeBootError = .TRUE.
194          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
195       &        'S/R INI_PROCS: MPI_CART_RANK (pidE) return code',       &        'S/R INI_PROCS: MPI_CART_RANK (pidE) return code',
196       &        mpiRC       &        mpiRC
197          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 206  C--    Get MPI id for neighboring procs. Line 206  C--    Get MPI id for neighboring procs.
206         CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidS , mpiRC )         CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidS , mpiRC )
207         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
208          eeBootError = .TRUE.          eeBootError = .TRUE.
209          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
210       &        'S/R INI_PROCS: MPI_CART_RANK (pidS) return code',       &        'S/R INI_PROCS: MPI_CART_RANK (pidS) return code',
211       &        mpiRC       &        mpiRC
212          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 221  C--    Get MPI id for neighboring procs. Line 221  C--    Get MPI id for neighboring procs.
221         CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidN , mpiRC )         CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidN , mpiRC )
222         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
223          eeBootError = .TRUE.          eeBootError = .TRUE.
224          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
225       &        'S/R INI_PROCS: MPI_CART_RANK (pidN) return code',       &        'S/R INI_PROCS: MPI_CART_RANK (pidN) return code',
226       &        mpiRC       &        mpiRC
227          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 233  C--    Print summary of processor mappin Line 233  C--    Print summary of processor mappin
233         CALL MPI_GET_PROCESSOR_NAME( mpiProcNam, mpilProcNam, mpiRC )         CALL MPI_GET_PROCESSOR_NAME( mpiProcNam, mpilProcNam, mpiRC )
234         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
235          eeBootError = .TRUE.          eeBootError = .TRUE.
236          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
237       &        'S/R INI_PROCS: MPI_GET_PROCESSOR_NAME return code',       &        'S/R INI_PROCS: MPI_GET_PROCESSOR_NAME return code',
238       &        mpiRC       &        mpiRC
239          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 296  C      xFace (y=constant) for XY arrays Line 296  C      xFace (y=constant) for XY arrays
296       &                       mpiTypeXFaceBlock_xy_r4, mpiRC)       &                       mpiTypeXFaceBlock_xy_r4, mpiRC)
297         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
298          eeBootError = .TRUE.          eeBootError = .TRUE.
299          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
300       &   'S/R INI_PROCS: MPI_TYPE_VECTOR (mpiTypeXFaceBlock_xy_r4)',       &   'S/R INI_PROCS: MPI_TYPE_VECTOR (mpiTypeXFaceBlock_xy_r4)',
301       &        mpiRC       &        mpiRC
302          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 304  C      xFace (y=constant) for XY arrays Line 304  C      xFace (y=constant) for XY arrays
304         CALL MPI_TYPE_COMMIT( mpiTypeXFaceBlock_xy_r4, mpiRC)         CALL MPI_TYPE_COMMIT( mpiTypeXFaceBlock_xy_r4, mpiRC)
305         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
306          eeBootError = .TRUE.          eeBootError = .TRUE.
307          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
308       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeXFaceBlock_xy_r4)',       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeXFaceBlock_xy_r4)',
309       &        mpiRC       &        mpiRC
310          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 315  C      xFace (y=constant) for XY arrays Line 315  C      xFace (y=constant) for XY arrays
315       &                       mpiTypeXFaceBlock_xy_r8, mpiRC)       &                       mpiTypeXFaceBlock_xy_r8, mpiRC)
316         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
317          eeBootError = .TRUE.          eeBootError = .TRUE.
318          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
319       &   'S/R INI_PROCS: MPI_TYPE_VECTOR (mpiTypeXFaceBlock_xy_r8)',       &   'S/R INI_PROCS: MPI_TYPE_VECTOR (mpiTypeXFaceBlock_xy_r8)',
320       &        mpiRC       &        mpiRC
321          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 323  C      xFace (y=constant) for XY arrays Line 323  C      xFace (y=constant) for XY arrays
323         CALL MPI_TYPE_COMMIT( mpiTypeXFaceBlock_xy_r8, mpiRC)         CALL MPI_TYPE_COMMIT( mpiTypeXFaceBlock_xy_r8, mpiRC)
324         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
325          eeBootError = .TRUE.          eeBootError = .TRUE.
326          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
327       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeXFaceBlock_xy_r8)',       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeXFaceBlock_xy_r8)',
328       &        mpiRC       &        mpiRC
329          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 340  C      xFace (y=constant) for XYZ arrays Line 340  C      xFace (y=constant) for XYZ arrays
340       &                       mpiTypeXFaceBlock_xyz_r4, mpiRC)       &                       mpiTypeXFaceBlock_xyz_r4, mpiRC)
341         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
342          eeBootError = .TRUE.          eeBootError = .TRUE.
343          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
344       &   'S/R INI_PROCS: MPI_TYPE_HVECTOR (mpiTypeXFaceBlock_xyz_r4)',       &   'S/R INI_PROCS: MPI_TYPE_HVECTOR (mpiTypeXFaceBlock_xyz_r4)',
345       &        mpiRC       &        mpiRC
346          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 348  C      xFace (y=constant) for XYZ arrays Line 348  C      xFace (y=constant) for XYZ arrays
348         CALL MPI_TYPE_COMMIT( mpiTypeXFaceBlock_xyz_r4, mpiRC)         CALL MPI_TYPE_COMMIT( mpiTypeXFaceBlock_xyz_r4, mpiRC)
349         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
350          eeBootError = .TRUE.          eeBootError = .TRUE.
351          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
352       &   'S/R INI_PROCS: MPI_TYPE_COMMIT  (mpiTypeXFaceBlock_xyz_r4)',       &   'S/R INI_PROCS: MPI_TYPE_COMMIT  (mpiTypeXFaceBlock_xyz_r4)',
353       &        mpiRC       &        mpiRC
354          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 362  C      xFace (y=constant) for XYZ arrays Line 362  C      xFace (y=constant) for XYZ arrays
362       &                       mpiTypeXFaceBlock_xyz_r8, mpiRC)       &                       mpiTypeXFaceBlock_xyz_r8, mpiRC)
363         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
364          eeBootError = .TRUE.          eeBootError = .TRUE.
365          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
366       &   'S/R INI_PROCS: MPI_TYPE_HVECTOR (mpiTypeXFaceBlock_xyz_r8)',       &   'S/R INI_PROCS: MPI_TYPE_HVECTOR (mpiTypeXFaceBlock_xyz_r8)',
367       &        mpiRC       &        mpiRC
368          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 370  C      xFace (y=constant) for XYZ arrays Line 370  C      xFace (y=constant) for XYZ arrays
370         CALL MPI_TYPE_COMMIT( mpiTypeXFaceBlock_xyz_r8, mpiRC)         CALL MPI_TYPE_COMMIT( mpiTypeXFaceBlock_xyz_r8, mpiRC)
371         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
372          eeBootError = .TRUE.          eeBootError = .TRUE.
373          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
374       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeXFaceBlock_xyz_r8)',       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeXFaceBlock_xyz_r8)',
375       &        mpiRC       &        mpiRC
376          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 384  C      yFace (x=constant) for XY arrays Line 384  C      yFace (x=constant) for XY arrays
384       &                          mpiTypeYFaceBlock_xy_r4, mpiRC)       &                          mpiTypeYFaceBlock_xy_r4, mpiRC)
385         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
386          eeBootError = .TRUE.          eeBootError = .TRUE.
387          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
388       &   'S/R INI_PROCS: MPI_TYPE_CONTIGUOUS (mpiTypeYFaceBlock_xy_r4)',       &   'S/R INI_PROCS: MPI_TYPE_CONTIGUOUS (mpiTypeYFaceBlock_xy_r4)',
389       &        mpiRC       &        mpiRC
390          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 392  C      yFace (x=constant) for XY arrays Line 392  C      yFace (x=constant) for XY arrays
392         CALL MPI_TYPE_COMMIT( mpiTypeYFaceBlock_xy_r4, mpiRC)         CALL MPI_TYPE_COMMIT( mpiTypeYFaceBlock_xy_r4, mpiRC)
393         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
394          eeBootError = .TRUE.          eeBootError = .TRUE.
395          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
396       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeYFaceBlock_xy_r4)',       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeYFaceBlock_xy_r4)',
397       &        mpiRC       &        mpiRC
398          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 402  C      yFace (x=constant) for XY arrays Line 402  C      yFace (x=constant) for XY arrays
402       &                          mpiTypeYFaceBlock_xy_r8, mpiRC)       &                          mpiTypeYFaceBlock_xy_r8, mpiRC)
403         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
404          eeBootError = .TRUE.          eeBootError = .TRUE.
405          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
406       &   'S/R INI_PROCS: MPI_TYPE_CONTIGUOUS (mpiTypeYFaceBlock_xy_r8)',       &   'S/R INI_PROCS: MPI_TYPE_CONTIGUOUS (mpiTypeYFaceBlock_xy_r8)',
407       &        mpiRC       &        mpiRC
408          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 410  C      yFace (x=constant) for XY arrays Line 410  C      yFace (x=constant) for XY arrays
410         CALL MPI_TYPE_COMMIT( mpiTypeYFaceBlock_xy_r8, mpiRC)         CALL MPI_TYPE_COMMIT( mpiTypeYFaceBlock_xy_r8, mpiRC)
411         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
412          eeBootError = .TRUE.          eeBootError = .TRUE.
413          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
414       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeYFaceBlock_xy_r8)',       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeYFaceBlock_xy_r8)',
415       &        mpiRC       &        mpiRC
416          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 426  C      yFace (x=constant) for XYZ arrays Line 426  C      yFace (x=constant) for XYZ arrays
426       &                       mpiTypeYFaceBlock_xyz_r4, mpiRC)       &                       mpiTypeYFaceBlock_xyz_r4, mpiRC)
427         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
428          eeBootError = .TRUE.          eeBootError = .TRUE.
429          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
430       &   'S/R INI_PROCS: MPI_TYPE_HVECTOR (mpiTypeYFaceBlock_xyz_r4)',       &   'S/R INI_PROCS: MPI_TYPE_HVECTOR (mpiTypeYFaceBlock_xyz_r4)',
431       &        mpiRC       &        mpiRC
432          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 434  C      yFace (x=constant) for XYZ arrays Line 434  C      yFace (x=constant) for XYZ arrays
434         CALL MPI_TYPE_COMMIT( mpiTypeYFaceBlock_xyz_r4, mpiRC)         CALL MPI_TYPE_COMMIT( mpiTypeYFaceBlock_xyz_r4, mpiRC)
435         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
436          eeBootError = .TRUE.          eeBootError = .TRUE.
437          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
438       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeYFaceBlock_xyz_r4)',       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeYFaceBlock_xyz_r4)',
439       &        mpiRC       &        mpiRC
440          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 447  C      yFace (x=constant) for XYZ arrays Line 447  C      yFace (x=constant) for XYZ arrays
447       &                       mpiTypeYFaceBlock_xyz_r8, mpiRC)       &                       mpiTypeYFaceBlock_xyz_r8, mpiRC)
448         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
449          eeBootError = .TRUE.          eeBootError = .TRUE.
450          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
451       &   'S/R INI_PROCS: MPI_TYPE_HVECTOR (mpiTypeYFaceBlock_xyz_r8)',       &   'S/R INI_PROCS: MPI_TYPE_HVECTOR (mpiTypeYFaceBlock_xyz_r8)',
452       &        mpiRC       &        mpiRC
453          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
# Line 455  C      yFace (x=constant) for XYZ arrays Line 455  C      yFace (x=constant) for XYZ arrays
455         CALL MPI_TYPE_COMMIT( mpiTypeYFaceBlock_xyz_r8, mpiRC)         CALL MPI_TYPE_COMMIT( mpiTypeYFaceBlock_xyz_r8, mpiRC)
456         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
457          eeBootError = .TRUE.          eeBootError = .TRUE.
458          WRITE(msgBuffer,'(A,I)')          WRITE(msgBuffer,'(A,I5)')
459       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeYFaceBlock_xyz_r8)',       &   'S/R INI_PROCS: MPI_TYPE_COMMIT (mpiTypeYFaceBlock_xyz_r8)',
460       &        mpiRC       &        mpiRC
461          CALL PRINT_ERROR( msgBuffer , myThid)          CALL PRINT_ERROR( msgBuffer , myThid)
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22