Changeset 1538 for XIOS/dev/branch_openmp/extern/ep_dev/ep_free.cpp
- Timestamp:
- 06/11/18 19:06:45 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/extern/ep_dev/ep_free.cpp
r1527 r1538 18 18 { 19 19 Debug("MPI_Comm_free with MPI\n"); 20 21 20 return ::MPI_Comm_free(to_mpi_comm_ptr((*comm)->mpi_comm)); 22 23 21 } 24 22 … … 30 28 31 29 ep_rank_loc = (*comm)->ep_comm_ptr->size_rank_info[1].first; 32 int ep_rank = (*comm)->ep_comm_ptr->size_rank_info[0].first;33 30 num_ep = (*comm)->ep_comm_ptr->size_rank_info[1].second; 34 31 35 MPI_Barrier (*comm);32 MPI_Barrier_local(*comm); 36 33 37 34 if(ep_rank_loc == 0)
Note: See TracChangeset
for help on using the changeset viewer.