Changeset 22392

Timestamp:

02/05/18 10:51:07 (7 years ago)

Author:

dmenemen

Message:

adding test exchange

File:

• issm/trunk-jpl/test/MITgcm/code/eeboot_minimal.F (modified) (2 diffs)

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

@@ -71 +71 @@
       integer my_local_rank,my_local_size
       integer toissmcomm
+      integer  dummy1(1),dummy2(1)
+      integer, dimension(mpi_status_size) :: status
 #endif /* ALLOW_CPL_ISSM */
 #if defined(ALLOW_NEST_PARENT) || defined(ALLOW_NEST_CHILD)
@@ -201 +203 @@
       print*,'Oc My global rank',mpiMyWid,'MyLocal rank: ',my_local_rank
       print*,'Oc My world size:',numprocsworld,'My local size: ',
-     & my_local_size
+     &     my_local_size
+
+
+c     receive and send an integer:
+      dummy1(1)=4; dummy2(1)=2;
+         
+      if (my_local_rank .eq. 0) then
+          call MPI_Send(dummy2,1,MPI_INT,0,1,toissmcomm,mpiRC)
+          call MPI_Recv(dummy1,1,MPI_INT,0,1,toissmcomm,status,mpiRC)
+      end if
+      
+      call MPI_Bcast(dummy1,1,MPI_INT,0,MPI_COMM_MODEL,mpiRC)
+      print*, 'Ocean : dummy received:',dummy1
+
 
 #endif /* ALLOW_CPL_ISSM */