Index: /issm/trunk-jpl/test/MITgcm/code/cpl_issm.F
===================================================================
--- /issm/trunk-jpl/test/MITgcm/code/cpl_issm.F	(revision 22711)
+++ /issm/trunk-jpl/test/MITgcm/code/cpl_issm.F	(revision 22712)
@@ -47,4 +47,5 @@
       INTEGER mpistatus(MPI_STATUS_SIZE)
       INTEGER i, j, bi, bj, buffsize
+      COMMON /CPL_ISSM_TIME/ CouplingTime
       _R8 CouplingTime, IceModelTime
       _R8 xfer_array(Nx,Ny)
@@ -59,7 +60,11 @@
             call MPI_Recv(CouplingTime,1,MPI_DOUBLE,0,10001000,
      &           toissmcomm,mpistatus,mpiRC)
-            print*, 'Ocean received CouplingTime: ', CouplingTime
             _END_MASTER( myThid )
          ENDIF
+         _BEGIN_MASTER( myThid )
+         CALL MPI_BCAST(CouplingTime,1,MPI_DOUBLE,0,
+     &        MPI_COMM_MODEL,mpiRC)
+         _END_MASTER( myThid )
+         print*, 'Ocean received CouplingTime: ', CouplingTime
 
 C   I2. MITgcm sends grid size (NX and NY)
@@ -124,5 +129,4 @@
       IF( MOD(myTime,CouplingTime) .LT. deltaT/2. ) THEN
 
-
 C   C1. ISSM sends ice model time IceTimeTag
          IF( myProcId .EQ. 0 ) THEN
@@ -184,5 +188,4 @@
             call MPI_Recv(xfer_array,buffsize,MPI_DOUBLE_PRECISION,
      &           0,10001008,toissmcomm,mpistatus,mpiRC)
-            print*, 'Ocean received icebase',xfer_array
             _END_MASTER( myThid )
          ENDIF