Changeset 1515 for XIOS/dev/branch_openmp/extern/ep_dev/ep_barrier.cpp

Timestamp:

05/31/18 16:32:39 (3 years ago)

Author:

yushan

Message:

save dev

File:

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

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

@@ -42 +42 @@
   {
 
-    int ep_rank_loc = comm->ep_comm_ptr->size_rank_info[1].first;
+    int ep_rank;
+    MPI_Comm_rank(comm, &ep_rank);
+
+    int ep_rank_loc = comm->ep_rank_map->at(ep_rank).first;
 
     MPI_Barrier_local(comm);
@@ -48 +51 @@
     if(ep_rank_loc == 0)
     {
-      ::MPI_Comm mpi_comm = to_mpi_comm(comm->ep_comm_ptr->intercomm->mpi_inter_comm);
-      ::MPI_Barrier(mpi_comm);
+      //::MPI_Comm mpi_comm = to_mpi_comm(comm->ep_comm_ptr->intercomm->mpi_inter_comm);
+      ::MPI_Barrier(to_mpi_comm(comm->ep_comm_ptr->intercomm->mpi_inter_comm));
     }