Changeset 1730 for XIOS/dev/dev_trunk_omp/extern/src_ep_dev

Timestamp:

10/03/19 16:56:23 (5 years ago)

Author:

yushan

Message:

GENERIC_TESTCASE : add arch files for Jean-Zay

File:

• XIOS/dev/dev_trunk_omp/extern/src_ep_dev/ep_fortran.cpp (modified) (2 diffs)

XIOS/dev/dev_trunk_omp/extern/src_ep_dev/ep_fortran.cpp

@@ -30 +30 @@
       {
         ep_lib::fc_comm_map.insert(std::make_pair( std::make_pair( *static_cast< MPI_Fint*>(fint), omp_get_thread_num()) , comm));
-        // printf("EP_Comm_c2f : MAP %p insert: %d, %d, %p\n", &(ep_lib::fc_comm_map), *static_cast< MPI_Fint*>(fint), omp_get_thread_num(), comm->ep_comm_ptr);
+        printf("EP_Comm_c2f : MAP %p insert: %d, %d, %p\n", &(ep_lib::fc_comm_map), *static_cast< MPI_Fint*>(fint), omp_get_thread_num(), comm->ep_comm_ptr);
       }
     }
@@ -53 +53 @@
       ep_lib::MPI_Comm comm_ptr;
       comm_ptr = it->second;
-      // printf("EP_Comm_f2c : MAP %p find: %d, %d, %p\n", &(ep_lib::fc_comm_map), it->first.first, it->first.second, comm_ptr->ep_comm_ptr);
+      printf("EP_Comm_f2c : MAP %p find: %d, %d, %p\n", &(ep_lib::fc_comm_map), it->first.first, it->first.second, comm_ptr->ep_comm_ptr);
       return  comm_ptr;
     }