Index: /issm/trunk-jpl/test/MITgcm/code/eeboot_minimal.F
===================================================================
--- /issm/trunk-jpl/test/MITgcm/code/eeboot_minimal.F	(revision 22389)
+++ /issm/trunk-jpl/test/MITgcm/code/eeboot_minimal.F	(revision 22390)
@@ -69,5 +69,4 @@
      &     mpiMyWid
       integer :: mpiMyWid, numprocsworld
-      integer icecommsize,rankzeros(2)
       integer my_local_rank,my_local_size
       integer toissmcomm
@@ -187,12 +186,4 @@
        call MPI_COMM_SIZE(MPI_COMM_WORLD, numprocsworld, mpiRC)
 
-c     ocean  comm size: 4 (normally should be recovered from list of
-c     arguments after mpirun:) */
-      icecommsize=2
-
-c     Build array of who is rank 0 of their own group:*/
-      rankzeros(1)=0 
-      rankzeros(2)=icecommsize 
-
 c     Split world into sub-communicators for each and every model:*/
       call MPI_COMM_SPLIT(MPI_COMM_WORLD,1,MPIMYWID,
@@ -202,6 +193,6 @@
       print*,'Oc My world size:',numprocsworld
 
-cdm      call MPI_INTERCOMM_CREATE(MPI_COMM_MODEL,0,MPI_COMM_WORLD,
-cdm     &                          rankzeros(1),0,toissmcomm,mpiRC)
+      call MPI_INTERCOMM_CREATE(MPI_COMM_MODEL,0,MPI_COMM_WORLD,
+     &                          0,0,toissmcomm,mpiRC)
       
       call MPI_COMM_RANK(MPI_COMM_MODEL, my_local_rank, mpiRC)