Changeset 1665 for XIOS/dev/dev_trunk_omp/src/interface
- Timestamp:
- 05/20/19 13:14:51 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_trunk_omp/src/interface/c/icdata.cpp
r1646 r1665 67 67 int initialized; 68 68 MPI_Initialized(&initialized); 69 #ifdef _usingMPI 70 if (initialized) local_comm=MPI_Comm_f2c(*f_local_comm); 71 else local_comm=MPI_COMM_NULL; 72 #elif _usingEP 69 70 #ifdef _usingEP 73 71 ep_lib::fc_comm_map.clear(); 74 72 if (initialized) local_comm=EP_Comm_f2c((f_local_comm)); 75 73 else local_comm=MPI_COMM_NULL; 74 #else 75 if (initialized) local_comm=MPI_Comm_f2c(*f_local_comm); 76 else local_comm=MPI_COMM_NULL; 76 77 #endif 77 78 … … 79 80 80 81 CXios::initClientSide(str, local_comm, return_comm); 81 #ifdef _usingMPI 82 83 #ifdef _usingEP 84 *f_return_comm=*static_cast<MPI_Fint*>(EP_Comm_c2f(return_comm)); 85 #else 82 86 *f_return_comm=MPI_Comm_c2f(return_comm); 83 #elif _usingEP84 *f_return_comm=*static_cast<MPI_Fint*>(EP_Comm_c2f(return_comm));85 87 #endif 86 88 CTimer::get("XIOS init").suspend(); … … 98 100 CTimer::get("XIOS").resume(); 99 101 CTimer::get("XIOS init context").resume(); 100 #ifdef _usingMPI 102 103 #ifdef _usingEP 104 comm = EP_Comm_f2c(f_comm); 105 #else 101 106 comm=MPI_Comm_f2c(*f_comm); 102 #elif _usingEP103 comm = EP_Comm_f2c(f_comm);104 107 #endif 105 108 CClient::registerContext(str, comm);
Note: See TracChangeset
for help on using the changeset viewer.