Index: /issm/trunk-jpl/src/c/main/issm_ocean.cpp
===================================================================
--- /issm/trunk-jpl/src/c/main/issm_ocean.cpp	(revision 22390)
+++ /issm/trunk-jpl/src/c/main/issm_ocean.cpp	(revision 22391)
@@ -15,4 +15,5 @@
 	ISSM_MPI_Comm frommitgcm;
 	ISSM_MPI_Comm tomitgcmcomm;
+	ISSM_MPI_Status status
 
 	/*Initialize exception trapping: */
@@ -41,4 +42,14 @@
 
 	ISSM_MPI_Intercomm_create( modelcomm, 0, worldcomm, my_local_size, 0, &tomitgcmcomm); 
+
+	/*send an integer:*/
+	int dummy1,dummy2;
+	dummy1=3; dummy2=0;
+	if(my_local_rank==0){
+		MPI_Send(&dummy1,1,MPI_INT,0,1,tomitgcmcomm);
+		MPI_Recv(&dummy2,1,MPI_INT,0,1,tomitgcmcomm,&status);
+	}
+	MPI_Bcast(&dummy2,1,MPI_INT,0,modelcomm);
+	printf("Ice: dummy received: %i\n",dummy2);
 
 	/*Initialize femmodel from arguments provided command line: */