Changeset 1338 for XIOS/dev/branch_openmp/src/transformation

Timestamp:

11/21/17 10:47:57 (6 years ago)

Author:

yushan

Message:

dev_omp

File:

• XIOS/dev/branch_openmp/src/transformation/domain_algorithm_interpolate.cpp (modified) (2 diffs)

XIOS/dev/branch_openmp/src/transformation/domain_algorithm_interpolate.cpp

@@ -405 +405 @@
   CContext* context = CContext::getCurrent();
   CContextClient* client=context->client;
+  int mykey;
+  ep_lib::MPI_Comm_rank(client->intraComm, &mykey);
 
   ep_lib::MPI_Comm poleComme;
-  ep_lib::MPI_Comm_split(client->intraComm, interMapValuePole.empty() ? 0 : 1, 0, &poleComme);
+  //ep_lib::MPI_Comm_split(client->intraComm, interMapValuePole.empty() ? 0 : 1, 0, &poleComme);
+  ep_lib::MPI_Comm_split(client->intraComm, interMapValuePole.empty() ? 0 : 1, mykey, &poleComme);
   if (!poleComme.is_null())
   {
@@ -423 +426 @@
     std::vector<int> displ(nbClientPole,0);
     ep_lib::MPI_Allgather(&nbWeight,1,MPI_INT,&recvCount[0],1,MPI_INT,poleComme) ;
-
     displ[0]=0;
     for(int n=1;n<nbClientPole;++n) displ[n]=displ[n-1]+recvCount[n-1] ;