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

Last change on this file since 1328 was 1328, checked in by yushan, 6 years ago

dev_omp

  • 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: 1007 bytes
Line 
1#include "oasis_cinterface.hpp"
2#include <string>
3using namespace ep_lib;
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=EP_Comm_f2c(f_comm.mpi_fint) ;
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=EP_Comm_f2c(f_comm.mpi_fint) ;
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=EP_Comm_f2c(f_comm.mpi_fint) ;
45  }
46}
Note: See TracBrowser for help on using the repository browser.