Changeset 22629

Timestamp:

03/26/18 11:10:20 (7 years ago)

Author:

dmenemen

Message:

 

File:

• issm/trunk-jpl/test/MITgcm/code/cpl_issm.F (modified) (5 diffs)

issm/trunk-jpl/test/MITgcm/code/cpl_issm.F

@@ -47 +47 @@
       COMMON /CPL_MPI_ID/
      &     mpiMyWid, toissmcomm
-      INTEGER mpiMyWid, toissmcomm
+      INTEGER mpiMyWid, toissmcomm, mpiRC
       integer mpistatus(MPI_STATUS_SIZE)
       real*8 CouplingTime, IceModelTime
@@ -59 +59 @@
          _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 +82 @@
             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 +99 @@
             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 +107 @@
 
       ENDIF
-       
+
+      print*,'Done Sending XC/YC arrays.'
+
 #endif /* ALLOW_CPL_MPMICE */