Changeset 891 for XIOS/trunk/src/interface/c_attr/icinterpolate_axis_attr.cpp

Timestamp:

07/05/16 15:59:23 (8 years ago)

Author:

mhnguyen

Message:

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation

File:

• XIOS/trunk/src/interface/c_attr/icinterpolate_axis_attr.cpp (modified) (1 diff)

XIOS/trunk/src/interface/c_attr/icinterpolate_axis_attr.cpp

@@ -17 +17 @@
 {
   typedef xios::CInterpolateAxis* interpolate_axis_Ptr;
+
+  void cxios_set_interpolate_axis_coordinate(interpolate_axis_Ptr interpolate_axis_hdl, const char * coordinate, int coordinate_size)
+  {
+    std::string coordinate_str;
+    if (!cstr2string(coordinate, coordinate_size, coordinate_str)) return;
+    CTimer::get("XIOS").resume();
+    interpolate_axis_hdl->coordinate.setValue(coordinate_str);
+    CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_interpolate_axis_coordinate(interpolate_axis_Ptr interpolate_axis_hdl, char * coordinate, int coordinate_size)
+  {
+    CTimer::get("XIOS").resume();
+    if (!string_copy(interpolate_axis_hdl->coordinate.getInheritedValue(), coordinate, coordinate_size))
+      ERROR("void cxios_get_interpolate_axis_coordinate(interpolate_axis_Ptr interpolate_axis_hdl, char * coordinate, int coordinate_size)", << "Input string is too short");
+    CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_interpolate_axis_coordinate(interpolate_axis_Ptr interpolate_axis_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = interpolate_axis_hdl->coordinate.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
+
 
   void cxios_set_interpolate_axis_order(interpolate_axis_Ptr interpolate_axis_hdl, int order)