Changeset 5861 for CONFIG_DEVT/IPSLCM6.5_work_ENSEMBLES/modeles/XIOS/src/interface/c/oasis_cinterface.cpp

Timestamp:

06/24/21 11:14:28 (3 years ago)

Author:

ymipsl

Message:

• Adapt XIOS sources to manage ensemble runs, using new version of oasis

YM

File:

• CONFIG_DEVT/IPSLCM6.5_work_ENSEMBLES/modeles/XIOS/src/interface/c/oasis_cinterface.cpp (modified) (2 diffs)

CONFIG_DEVT/IPSLCM6.5_work_ENSEMBLES/modeles/XIOS/src/interface/c/oasis_cinterface.cpp

@@ -1 +1 @@
 #include "oasis_cinterface.hpp"
+#include <oasis_c.h>
 #include <string>
 #include "mpi.hpp"
+#include <cstring>
 
 namespace xios
@@ -44 +46 @@
     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()) ;
+  }
+
 }