Changeset 1506 for XIOS/dev/branch_openmp/extern/ep_dev/main.cpp

Timestamp:

05/29/18 13:12:21 (6 years ago)

Author:

yushan

Message:

mpi_comm_split respect the norme of MPI: ranking according to the key argument. Key can be the same. In such case, the original ranking is used.

File:

• XIOS/dev/branch_openmp/extern/ep_dev/main.cpp (modified) (2 diffs)

XIOS/dev/branch_openmp/extern/ep_dev/main.cpp

@@ -686 +686 @@
     MPI_Comm_size(comm, &size);
 
-    //int color = rank%2;
-    int tab_color[16]={2,2,2,3,0,1,1,3,2,1,3,0,0,2,0,0};
-    int tab_key[16]={3,11,10,5,6,8,15,7,2,1,9,13,4,14,12,0};
+    //int tab_color[16]={2,2,2,3,0,1,1,3,2,1,3,0,0,2,0,0};     // OK
+    //int tab_key[16]={3,11,10,5,6,8,15,7,2,1,9,13,4,14,12,0}; // OK 
+    
+
+    int tab_color[16]={2,2,1,1,1,1,0,1,1,1,0,1,1,1,2,0};
+    //int tab_key[16]={3,11,12,4,6,15,10,5,2,8,14,7,13,9,1,0};
+    int tab_key[16]={3,11,7,7,6,15,10,5,2,8,14,7,13,9,1,0};
+    
     int color = tab_color[rank];
     int key = tab_key[rank];
@@ -700 +705 @@
     MPI_Comm_rank(split_comm, &split_rank);
     
-    printf("rank = %d, color = %d, key = %d, split_rank = %d\n", rank, color, key, split_rank);
+    printf("rank = %d, color = %d, key = %d, split_rank = %d, local_rank=%d\n", rank, color, key, split_rank, split_comm->ep_comm_ptr->size_rank_info[1].first);