Changeset 1067 for XIOS/dev/branch_yushan/src/interface/c

Timestamp:

03/08/17 16:55:00 (7 years ago)

Author:

yushan

Message:

server mode OK tested with test_complete

File:

• XIOS/dev/branch_yushan/src/interface/c/icdata.cpp (modified) (6 diffs)

XIOS/dev/branch_yushan/src/interface/c/icdata.cpp

@@ -1 +1 @@
 /* ************************************************************************** *
- *      Copyright © IPSL/LSCE, xios, Avril 2010 - Octobre 2011         *
+ *      Copyright  IPSL/LSCE, xios, Avril 2010 - Octobre 2011         *
  * ************************************************************************** */
 
@@ -29 +29 @@
 extern "C"
 {
-// /////////////////////////////// Définitions ////////////////////////////// //
-
-   // ----------------------- Redéfinition de types ----------------------------
+// /////////////////////////////// Dfinitions ////////////////////////////// //
+
+   // ----------------------- Redfinition de types ----------------------------
 
    typedef enum { NETCDF4 = 0 } XFileType;
@@ -37 +37 @@
    typedef xios::CContext* XContextPtr;
 
-   // -------------------- Traitement des données ------------------------------
+   // -------------------- Traitement des donnes ------------------------------
 
    // This function is not exported to the public Fortran interface,
@@ -88 +88 @@
      CTimer::get("XIOS init context").resume();
      comm = ep_lib::EP_Comm_f2c(static_cast< int >(*f_comm));
+
+     //ep_lib::MPI_Comm ctx_comm;
+     //ep_lib::MPI_Comm_dup(comm, &ctx_comm);
     
-     CClient::registerContext(str, comm);
+     CClient::registerContext(str,comm);
      
-     //printf("icdata.cpp: client register context OK\n");
+     printf("icdata.cpp: client register context %s : %p\n", context_id, &comm);
      
      CTimer::get("XIOS init context").suspend();
@@ -384 +387 @@
 
 
-   // ---------------------- Ecriture des données ------------------------------
+   // ---------------------- Ecriture des donnes ------------------------------
 
    void cxios_write_data_k80(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize)
@@ -719 +722 @@
     }
 
-   // ---------------------- Lecture des données ------------------------------
+   // ---------------------- Lecture des donnes ------------------------------
 
    void cxios_read_data_k80(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize)