Changeset 300 for XMLIO_V2/dev/common/src/fortran/oasis_cinterface.cpp

Timestamp:

02/13/12 19:35:25 (12 years ago)

Author:

ymipsl

Message:

nouvelle version de developpement de xios

• nouvelle interface fortran
• recodage complet de la couche de communication
• et bien d'autres choses...

YM

File:

• XMLIO_V2/dev/common/src/fortran/oasis_cinterface.cpp (modified) (2 diffs)

XMLIO_V2/dev/common/src/fortran/oasis_cinterface.cpp

@@ -16 +16 @@
   }
   
-
+  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)
   {
@@ -24 +31 @@
     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) ;
+  }
 }