/[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.7 by cnh, Wed Oct 28 03:11:35 1998 UTC revision 1.8 by adcroft, Mon Mar 22 17:37:43 1999 UTC
# Line 136  C      Could be periodic in X and/or Y - Line 136  C      Could be periodic in X and/or Y -
136  #endif /* CAN_PREVENT_Y_PERIODICITY */  #endif /* CAN_PREVENT_Y_PERIODICITY */
137    
138         CALL MPI_CART_CREATE(         CALL MPI_CART_CREATE(
139       I  MPI_COMM_WORLD,2,mpiGridSpec,mpiPeriodicity,_mpiTRUE_,       I  MPI_COMM_MODEL,2,mpiGridSpec,mpiPeriodicity,_mpiTRUE_,
140       O  mpiComm, mpiRC )       O  mpiComm, mpiRC )
141         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
142          eeBootError = .TRUE.          eeBootError = .TRUE.
# Line 458  C--    Assign MPI values used in generat Line 458  C--    Assign MPI values used in generat
458         mpiTagN    = 4         mpiTagN    = 4
459    
460  C  C
461         CALL MPI_Barrier(MPI_COMM_WORLD,mpiRC)         CALL MPI_Barrier(MPI_COMM_MODEL,mpiRC)
462    
463    
464  C  C
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22