source: CONFIG_DEVT/IPSLCM6.5_work_ENSEMBLES/modeles/XIOS/src/interface/c/oasis_cinterface.cpp @ 5861

#include "oasis_cinterface.hpp"
#include <oasis_c.h>
#include <string>
#include "mpi.hpp"
#include <cstring>

namespace xios
{ 
 
  void oasis_init(const std::string& server_id)
  {
    fxios_oasis_init(server_id.data(),server_id.size()) ;
  }
  
  void oasis_finalize(void)
  {
    fxios_oasis_finalize() ;
  }
  
  void oasis_enddef(void)
  {
    fxios_oasis_enddef() ;
  }

  void oasis_get_localcomm(MPI_Comm& comm)
  {
    MPI_Fint f_comm ;
    
    fxios_oasis_get_localcomm(&f_comm) ;
    comm=MPI_Comm_f2c(f_comm) ;
  }
 
  void oasis_get_intracomm(MPI_Comm& comm_client_server,const std::string& server_id)
  {
    MPI_Fint f_comm ;
    
    fxios_oasis_get_intracomm(&f_comm,server_id.data(),server_id.size()) ;
    comm_client_server=MPI_Comm_f2c(f_comm) ;
  }
 
  void oasis_get_intercomm(MPI_Comm& comm_client_server,const std::string& server_id)
  {
    MPI_Fint f_comm ;
    
    fxios_oasis_get_intercomm(&f_comm,server_id.data(),server_id.size()) ;
    comm_client_server=MPI_Comm_f2c(f_comm) ;
  }
  
  void oasis_get_multi_intracomm(MPI_Comm& comm_clients_server,const std::vector<std::string>& codesId, std::vector<int> &rootRanks)
  {
    int size = codesId.size() ;
    char** cdnam = new char*[size] ;
    for(int i=0;i<size;i++)
    {
      cdnam[i]=new char[codesId[i].length()+1] ;
      std::strcpy(cdnam[i], codesId[i].c_str());
    }
    rootRanks.resize(size) ;
    oasis_c_get_multi_intracomm(&comm_clients_server, size, cdnam, rootRanks.data()) ;
  }

}