source: XIOS/dev/branch_openmp/src/interface/c/oasis_cinterface.cpp @ 1642

Last change on this file since 1642 was 1642, checked in by yushan, 5 years ago

dev on ADA. add flag switch _usingEP/_usingMPI

  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
  • Property svn:eol-style set to native
File size: 1.0 KB
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(ep_lib::MPI_Comm& comm)
24  {
25    ep_lib::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(ep_lib::MPI_Comm& comm_client_server,const std::string& server_id)
32  {
33    ep_lib::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(ep_lib::MPI_Comm& comm_client_server,const std::string& server_id)
40  {
41    ep_lib::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.