Index: /issm/trunk-jpl/test/MITgcm/code/cpl_issm.F
===================================================================
--- /issm/trunk-jpl/test/MITgcm/code/cpl_issm.F	(revision 22639)
+++ /issm/trunk-jpl/test/MITgcm/code/cpl_issm.F	(revision 22640)
@@ -124,4 +124,12 @@
          print*,'Done Sending XC/YC arrays.'
 
+C     Receive icebase
+         IF( myProcId .EQ. 0 ) THEN
+            _BEGIN_MASTER( myThid )         
+            call MPI_Recv(xfer_array,buffsize,MPI_DOUBLE_PRECISION,
+     &           0,10001008,toissmcomm,mpistatus,mpiRC)
+            print*, 'Ocean received icebase',xfer_array
+            _END_MASTER( myThid )
+         ENDIF
       ENDIF