--- MITgcm/eesupp/src/ini_procs.F	1998/10/28 03:11:35	1.7
+++ MITgcm/eesupp/src/ini_procs.F	1999/03/22 17:37:43	1.8
@@ -136,7 +136,7 @@
 #endif /* CAN_PREVENT_Y_PERIODICITY */
 
        CALL MPI_CART_CREATE(
-     I  MPI_COMM_WORLD,2,mpiGridSpec,mpiPeriodicity,_mpiTRUE_,
+     I  MPI_COMM_MODEL,2,mpiGridSpec,mpiPeriodicity,_mpiTRUE_,
      O  mpiComm, mpiRC )
        IF ( mpiRC .NE. MPI_SUCCESS ) THEN
         eeBootError = .TRUE.
@@ -458,7 +458,7 @@
        mpiTagN    = 4
 
 C
-       CALL MPI_Barrier(MPI_COMM_WORLD,mpiRC)
+       CALL MPI_Barrier(MPI_COMM_MODEL,mpiRC)
 
 
 C
@@ -472,4 +472,4 @@
       RETURN
       END
 
-C $Id: ini_procs.F,v 1.7 1998/10/28 03:11:35 cnh Exp $
+C $Id: ini_procs.F,v 1.8 1999/03/22 17:37:43 adcroft Exp $