Changeset 1460 for XIOS/dev/branch_openmp/src/interface/c/icdata.cpp

Timestamp:

03/22/18 10:43:20 (6 years ago)

Author:

yushan

Message:

branch_openmp merged with XIOS_DEV_CMIP6@1459

File:

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

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

@@ -1 +1 @@
 /* ************************************************************************** *
- *      Copyright  IPSL/LSCE, xios, Avril 2010 - Octobre 2011         *
+ *      Copyright © IPSL/LSCE, xios, Avril 2010 - Octobre 2011         *
  * ************************************************************************** */
 
@@ -25 +25 @@
 
 #include "timer.hpp"
+#include "array_new.hpp"
+
 
 extern "C"
 {
-// /////////////////////////////// Dfinitions ////////////////////////////// //
-
-   // ----------------------- Redfinition de types ----------------------------
+// /////////////////////////////// Définitions ////////////////////////////// //
+
+   // ----------------------- Redéfinition de types ----------------------------
 
    typedef enum { NETCDF4 = 0 } XFileType;
@@ -36 +38 @@
    typedef xios::CContext* XContextPtr;
 
-   // -------------------- Traitement des donnes ------------------------------
+   // -------------------- Traitement des données ------------------------------
 
    // This function is not exported to the public Fortran interface,
@@ -55 +57 @@
       ep_lib::MPI_Comm local_comm;
       ep_lib::MPI_Comm return_comm;
-      
 
       if (!cstr2string(client_id, len_client_id, str)) return;
@@ -379 +380 @@
 
 
-   // ---------------------- Ecriture des donnes ------------------------------
+   // ---------------------- Ecriture des données ------------------------------
 
    void cxios_write_data_k80(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize)
@@ -712 +713 @@
     }
 
-   // ---------------------- Lecture des donnes ------------------------------
+   // ---------------------- Lecture des données ------------------------------
 
    void cxios_read_data_k80(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize)