source: XIOS/dev/branch_yushan/src/interface/c/oasis_cinterface.cpp @ 1068

Last change on this file since 1068 was 1068, checked in by yushan, 7 years ago

minor modification for using intelmpi

  • 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.2 KB
Line 
1#include "oasis_cinterface.hpp"
2#include <string>
3//#include "mpi_std.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    #ifdef _usingEP
29    comm=EP_Comm_f2c(f_comm.mpi_fint) ;
30    #else
31    comm=MPI_Comm_f2c(f_comm) ;
32    #endif
33  }
34 
35  void oasis_get_intracomm(MPI_Comm& comm_client_server,const std::string& server_id)
36  {
37    MPI_Fint f_comm ;
38   
39    fxios_oasis_get_intracomm(&f_comm,server_id.data(),server_id.size()) ;
40    #ifdef _usingEP
41    comm_client_server=EP_Comm_f2c(f_comm.mpi_fint) ;
42    #else
43    comm_client_server=MPI_Comm_f2c(f_comm) ;
44    #endif
45  }
46 
47  void oasis_get_intercomm(MPI_Comm& comm_client_server,const std::string& server_id)
48  {
49    MPI_Fint f_comm ;
50   
51    fxios_oasis_get_intercomm(&f_comm,server_id.data(),server_id.size()) ;
52    #ifdef _usingEP
53    comm_client_server=EP_Comm_f2c(f_comm.mpi_fint) ;
54    #else
55    comm_client_server=MPI_Comm_f2c(f_comm) ;
56    #endif
57  }
58}
Note: See TracBrowser for help on using the repository browser.