Changeset 1520 for XIOS/dev/branch_openmp/src/transformation/domain_algorithm_interpolate.cpp

Timestamp:

06/04/18 19:25:08 (6 years ago)

Author:

yushan

Message:

save dev. TO DO : test with xios

File:

• XIOS/dev/branch_openmp/src/transformation/domain_algorithm_interpolate.cpp (modified) (1 diff)

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

@@ -406 +406 @@
   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, mykey, &poleComme);
-  if (!poleComme.is_null())
+  //int mykey;
+  //ep_lib::MPI_Comm_rank(client->intraComm, &mykey);
+
+  ep_lib::MPI_Comm poleComme = MPI_COMM_NULL;
+  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())
+  if (poleComme!=MPI_COMM_NULL)
   {
     int nbClientPole;