Index: /issm/trunk-jpl/src/c/main/issm_ocean.cpp
===================================================================
--- /issm/trunk-jpl/src/c/main/issm_ocean.cpp	(revision 22388)
+++ /issm/trunk-jpl/src/c/main/issm_ocean.cpp	(revision 22389)
@@ -10,5 +10,4 @@
 	/*diverse:*/
 	int    icecommsize;
-	int    rankzeros[2];
 	int    my_rank,my_local_rank,my_size,my_local_size;
 	ISSM_MPI_Comm worldcomm;
@@ -31,8 +30,4 @@
 	icecommsize=(int) strtol(argv[2], (char **)NULL, 10);
 
-	/*Buil array of who is rank 0 of their own group:*/
-	rankzeros[0]=0; 
-	rankzeros[1]=icecommsize; 
-
 	printf("Ice: My global rank: %i My world size: %i \n",my_rank,my_size);
 
@@ -45,5 +40,5 @@
 	printf("Ice: My global rank: %i My local rank: %i My world size: %i My local size: %i\n",my_rank,my_local_rank,my_size,my_local_size);
 
-	ISSM_MPI_Intercomm_create( modelcomm, 0, worldcomm, rankzeros[1], 0, &tomitgcmcomm); 
+	ISSM_MPI_Intercomm_create( modelcomm, 0, worldcomm, my_local_size, 0, &tomitgcmcomm); 
 
 	/*Initialize femmodel from arguments provided command line: */
@@ -66,7 +61,9 @@
 	delete femmodel;
 
+	printf("-------------- file: issm_ocean.cpp line: %i\n",__LINE__); 
 	/*Finalize environment:*/
 	EnvironmentFinalize();
 
+	printf("-------------- file: issm_ocean.cpp line: %i\n",__LINE__); 
 	/*Finalize exception trapping: */
 	ExceptionTrapEnd();