Changeset 22640 for issm/trunk-jpl/test/MITgcm/code/cpl_issm.F

Timestamp:

03/27/18 22:46:33 (7 years ago)

Author:

dmenemen

Message:

receiving ice base

File:

• issm/trunk-jpl/test/MITgcm/code/cpl_issm.F (modified) (1 diff)

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

@@ -124 +124 @@
          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