Changeset 22391

Timestamp:

02/05/18 10:45:28 (7 years ago)

Author:

seroussi

Message:

CHG: trying to exchange information

File:

• issm/trunk-jpl/src/c/main/issm_ocean.cpp (modified) (2 diffs)

issm/trunk-jpl/src/c/main/issm_ocean.cpp

@@ -15 +15 @@
         ISSM_MPI_Comm frommitgcm;
         ISSM_MPI_Comm tomitgcmcomm;
+        ISSM_MPI_Status status
 
         /*Initialize exception trapping: */
@@ -41 +42 @@
 
         ISSM_MPI_Intercomm_create( modelcomm, 0, worldcomm, my_local_size, 0, &tomitgcmcomm); 
+
+        /*send an integer:*/
+        int dummy1,dummy2;
+        dummy1=3; dummy2=0;
+        if(my_local_rank==0){
+                MPI_Send(&dummy1,1,MPI_INT,0,1,tomitgcmcomm);
+                MPI_Recv(&dummy2,1,MPI_INT,0,1,tomitgcmcomm,&status);
+        }
+        MPI_Bcast(&dummy2,1,MPI_INT,0,modelcomm);
+        printf("Ice: dummy received: %i\n",dummy2);
 
         /*Initialize femmodel from arguments provided command line: */