Index: /issm/trunk-jpl/test/MITgcm/code/cpl_issm.F
===================================================================
--- /issm/trunk-jpl/test/MITgcm/code/cpl_issm.F	(revision 22628)
+++ /issm/trunk-jpl/test/MITgcm/code/cpl_issm.F	(revision 22629)
@@ -47,5 +47,5 @@
       COMMON /CPL_MPI_ID/
      &     mpiMyWid, toissmcomm
-      INTEGER mpiMyWid, toissmcomm
+      INTEGER mpiMyWid, toissmcomm, mpiRC
       integer mpistatus(MPI_STATUS_SIZE)
       real*8 CouplingTime, IceModelTime
@@ -59,8 +59,8 @@
          _BEGIN_MASTER( myThid )
          call MPI_Recv(CouplingTime,1,MPI_DOUBLE,0,10001000,toissmcomm,
-     &        mpistatus)
+     &        mpistatus,mpiRC)
          print*, 'Ocean received CouplingTime: ', CouplingTime
          call MPI_Recv(IceModelTime,1,MPI_DOUBLE,0,10001001,toissmcomm,
-     &        mpistatus)
+     &        mpistatus,mpiRC)
          print*, 'Ocean received IceModelTime: ', IceModelTime
          call MPI_Send(myTime,1,MPI_DOUBLE,0,10001002,toissmcomm,
@@ -82,5 +82,5 @@
             ENDDO
          ENDDO
-         CALL GATHER_2D_R8( xfer_array, local, myThid )
+CDM         CALL GATHER_2D_R8( xfer_array, local, myThid )
          _BEGIN_MASTER( myThid )
          buffsize = Nx*Ny
@@ -99,5 +99,5 @@
             ENDDO
          ENDDO
-         CALL GATHER_2D_R8( xfer_array, local, myThid )
+CDM         CALL GATHER_2D_R8( xfer_array, local, myThid )
          _BEGIN_MASTER( myThid )
          buffsize = Nx*Ny
@@ -107,5 +107,7 @@
 
       ENDIF
-       
+
+      print*,'Done Sending XC/YC arrays.'
+
 #endif /* ALLOW_CPL_MPMICE */