Changeset 1511 for XIOS/dev/branch_openmp/extern/ep_dev/ep_intercomm.cpp

Timestamp:

05/30/18 20:08:15 (6 years ago)

Author:

yushan

Message:

save dev

File:

• XIOS/dev/branch_openmp/extern/ep_dev/ep_intercomm.cpp (modified) (3 diffs)

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

@@ -61 +61 @@
       if( leader_ranks[1] * leader_ranks[4] == 1)
       {
-        if(ep_rank == local_leader) Debug("calling MPI_Intercomm_create_unique_leader\n");
+        if(ep_rank == local_leader) printf("calling MPI_Intercomm_create_unique_leader\n");
         local_comm->ep_comm_ptr->comm_label = -99;
 
@@ -167 +167 @@
         local_comm->ep_comm_ptr->comm_label = tag;
 
-        if(ep_rank == local_leader) Debug("calling MPI_Intercomm_create_from_world\n");
+        if(ep_rank == local_leader) printf("calling MPI_Intercomm_create_from_world\n");
 
         return MPI_Intercomm_create_from_world(local_comm, new_local_leader, MPI_COMM_WORLD->mpi_comm, leader_in_world[1], new_tag_in_world, newintercomm);
@@ -174 +174 @@
     }
 
-    if(ep_rank == local_leader) Debug("calling MPI_Intercomm_create_kernel\n");
+    if(ep_rank == local_leader) printf("calling MPI_Intercomm_create_kernel\n");
 
     return MPI_Intercomm_create_kernel(local_comm, local_leader, peer_comm, remote_leader, tag, newintercomm);