Changeset 1639 for XIOS/trunk/src/interface/c/icdata.cpp
- Timestamp:
- 01/22/19 16:43:32 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/c/icdata.cpp
r1638 r1639 60 60 { 61 61 std::string str; 62 ep_lib::MPI_Comm local_comm;63 ep_lib::MPI_Comm return_comm;62 MPI_Comm local_comm; 63 MPI_Comm return_comm; 64 64 65 65 if (!cstr2string(client_id, len_client_id, str)) return; 66 66 67 67 int initialized; 68 ep_lib::MPI_Initialized(&initialized); 69 #ifdef _usingMPI 68 MPI_Initialized(&initialized); 70 69 if (initialized) local_comm=MPI_Comm_f2c(*f_local_comm); 71 70 else local_comm=MPI_COMM_NULL; 72 #elif _usingEP73 if (initialized) local_comm=EP_Comm_f2c(f_local_comm);74 else local_comm=EP_COMM_NULL;75 #endif76 71 CXios::initClientSide(str, local_comm, return_comm); 77 #ifdef _usingMPI78 72 *f_return_comm=MPI_Comm_c2f(return_comm); 79 #elif _usingEP80 *f_return_comm=*static_cast<MPI_Fint* >(EP_Comm_c2f(return_comm));81 #endif82 73 CTimer::get("XIOS init").suspend(); 83 74 CTimer::get("XIOS").suspend(); … … 89 80 { 90 81 std::string str; 91 ep_lib::MPI_Comm comm;82 MPI_Comm comm; 92 83 93 84 if (!cstr2string(context_id, len_context_id, str)) return; 94 85 CTimer::get("XIOS").resume(); 95 86 CTimer::get("XIOS init context").resume(); 96 #ifdef _usingMPI97 87 comm=MPI_Comm_f2c(*f_comm); 98 #elif _usingEP99 comm=EP_Comm_f2c(f_comm);100 #endif101 88 CClient::registerContext(str, comm); 102 89 CTimer::get("XIOS init context").suspend();
Note: See TracChangeset
for help on using the changeset viewer.