Index: /issm/trunk-jpl/test/MITgcm/code/eeboot_minimal.F
===================================================================
--- /issm/trunk-jpl/test/MITgcm/code/eeboot_minimal.F	(revision 22391)
+++ /issm/trunk-jpl/test/MITgcm/code/eeboot_minimal.F	(revision 22392)
@@ -71,4 +71,6 @@
       integer my_local_rank,my_local_size
       integer toissmcomm
+      integer  dummy1(1),dummy2(1)
+      integer, dimension(mpi_status_size) :: status
 #endif /* ALLOW_CPL_ISSM */
 #if defined(ALLOW_NEST_PARENT) || defined(ALLOW_NEST_CHILD)
@@ -201,5 +203,18 @@
       print*,'Oc My global rank',mpiMyWid,'MyLocal rank: ',my_local_rank
       print*,'Oc My world size:',numprocsworld,'My local size: ',
-     & my_local_size
+     &     my_local_size
+
+
+c     receive and send an integer:
+      dummy1(1)=4; dummy2(1)=2;
+         
+      if (my_local_rank .eq. 0) then
+          call MPI_Send(dummy2,1,MPI_INT,0,1,toissmcomm,mpiRC)
+          call MPI_Recv(dummy1,1,MPI_INT,0,1,toissmcomm,status,mpiRC)
+      end if
+      
+      call MPI_Bcast(dummy1,1,MPI_INT,0,MPI_COMM_MODEL,mpiRC)
+      print*, 'Ocean : dummy received:',dummy1
+
 
 #endif /* ALLOW_CPL_ISSM */