Changeset 1540 for XIOS/dev/branch_openmp/extern/ep_dev/ep_merge.cpp

Timestamp:

06/12/18 14:21:57 (6 years ago)

Author:

yushan

Message:

add modif for workflow_cmip6

File:

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

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

@@ -31 +31 @@
 
     (*newintracomm)->ep_comm_ptr->size_rank_info[0].second = ep_size + remote_ep_size;
+    
+    ///////////////////////////////////
+    int int_high = high? 1 : 0;
+    int sum_high;
+    
+    MPI_Allreduce(&int_high, &sum_high, 1, MPI_INT, MPI_SUM, *newintracomm);
+
+    if(sum_high==0 || sum_high==ep_size+remote_ep_size)
+    {
+      printf("MPI_Intercomm_merge error: please define high with different value...\n");
+      MPI_Abort(inter_comm, 0);
+    }
+    
+    
+    
+    ///////////////////////////////////
+    
     (*newintracomm)->ep_comm_ptr->size_rank_info[0].first = new_ep_rank;
 
@@ -83 +100 @@
 
     delete[] my_triple_list;
+
   }