Changeset 22712

Timestamp:

04/25/18 23:05:26 (8 years ago)

Author:

dmenemen

Message:

saving in COMMON block and broadcasting CouplingTime

File:

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

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

@@ -47 +47 @@
       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 +60 @@
             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 +129 @@
       IF( MOD(myTime,CouplingTime) .LT. deltaT/2. ) THEN
 
-
 C   C1. ISSM sends ice model time IceTimeTag
          IF( myProcId .EQ. 0 ) THEN
@@ -184 +188 @@
             call MPI_Recv(xfer_array,buffsize,MPI_DOUBLE_PRECISION,
      &           0,10001008,toissmcomm,mpistatus,mpiRC)
-            print*, 'Ocean received icebase',xfer_array
             _END_MASTER( myThid )
          ENDIF