Changeset 1745 for XIOS/dev/dev_trunk_omp/src/interface/c/oasis_cinterface.cpp

Timestamp:

10/17/19 10:22:09 (5 years ago)

Author:

yushan

Message:

Generic_testcase: build flag --omp to enable EP with intelmpi. --omp2 to enable EP with openmpi. tested on Irene with compiler=intel17, mpi=intelmpi&openmpi, with and without EP

File:

• XIOS/dev/dev_trunk_omp/src/interface/c/oasis_cinterface.cpp (modified) (2 diffs)

XIOS/dev/dev_trunk_omp/src/interface/c/oasis_cinterface.cpp

@@ -22 +22 @@
     fxios_oasis_enddef() ;
   }
-
+#ifdef _usingEP
   void oasis_get_localcomm(MPI_Comm& comm)
   {
@@ -46 +46 @@
     //comm_client_server=MPI_Comm_f2c(f_comm) ;
   }
+
+#else
+
+  void oasis_get_localcomm(MPI_Comm& comm)
+  {
+    MPI_Fint f_comm ;
+    
+    fxios_oasis_get_localcomm(&f_comm) ;
+    //comm=MPI_Comm_f2c(f_comm) ;
+  }
+ 
+  void oasis_get_intracomm(MPI_Comm& comm_client_server,const std::string& server_id)
+  {
+    MPI_Fint f_comm ;
+    
+    fxios_oasis_get_intracomm(&f_comm,server_id.data(),server_id.size()) ;
+    //comm_client_server=MPI_Comm_f2c(f_comm) ;
+  }
+ 
+  void oasis_get_intercomm(MPI_Comm& comm_client_server,const std::string& server_id)
+  {
+    MPI_Fint f_comm ;
+    
+    fxios_oasis_get_intercomm(&f_comm,server_id.data(),server_id.size()) ;
+    //comm_client_server=MPI_Comm_f2c(f_comm) ;
+  }
+
+
+
+#endif
 }