source: XIOS/trunk/src/interface/c/oasis_cinterface.cpp @ 475

Last change on this file since 475 was 475, checked in by aclsce, 7 years ago

Modified to use Oasis-MCT coupler in coupled mode.

  • Property svn:eol-style set to native
File size: 978 bytes
Line 
1#include "oasis_cinterface.hpp"
2#include <string>
3#include "mpi.hpp"
4
5namespace xios
6{ 
7 
8  void oasis_init(const std::string& server_id)
9  {
10    fxios_oasis_init(server_id.data(),server_id.size()) ;
11  }
12 
13  void oasis_finalize(void)
14  {
15    fxios_oasis_finalize() ;
16  }
17 
18  void oasis_enddef(void)
19  {
20    fxios_oasis_enddef() ;
21  }
22
23  void oasis_get_localcomm(MPI_Comm& comm)
24  {
25    MPI_Fint f_comm ;
26   
27    fxios_oasis_get_localcomm(&f_comm) ;
28    comm=MPI_Comm_f2c(f_comm) ;
29  }
30 
31  void oasis_get_intracomm(MPI_Comm& comm_client_server,const std::string& server_id)
32  {
33    MPI_Fint f_comm ;
34   
35    fxios_oasis_get_intracomm(&f_comm,server_id.data(),server_id.size()) ;
36    comm_client_server=MPI_Comm_f2c(f_comm) ;
37  }
38 
39  void oasis_get_intercomm(MPI_Comm& comm_client_server,const std::string& server_id)
40  {
41    MPI_Fint f_comm ;
42   
43    fxios_oasis_get_intercomm(&f_comm,server_id.data(),server_id.size()) ;
44    comm_client_server=MPI_Comm_f2c(f_comm) ;
45  }
46}
Note: See TracBrowser for help on using the repository browser.