Changeset 891 for XIOS/trunk/src/interface/c_attr/icfield_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/icfield_attr.cpp (modified) (1 diff)

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

@@ -509 +509 @@
 
 
+  void cxios_set_field_scalar_ref(field_Ptr field_hdl, const char * scalar_ref, int scalar_ref_size)
+  {
+    std::string scalar_ref_str;
+    if (!cstr2string(scalar_ref, scalar_ref_size, scalar_ref_str)) return;
+    CTimer::get("XIOS").resume();
+    field_hdl->scalar_ref.setValue(scalar_ref_str);
+    CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_field_scalar_ref(field_Ptr field_hdl, char * scalar_ref, int scalar_ref_size)
+  {
+    CTimer::get("XIOS").resume();
+    if (!string_copy(field_hdl->scalar_ref.getInheritedValue(), scalar_ref, scalar_ref_size))
+      ERROR("void cxios_get_field_scalar_ref(field_Ptr field_hdl, char * scalar_ref, int scalar_ref_size)", << "Input string is too short");
+    CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_field_scalar_ref(field_Ptr field_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = field_hdl->scalar_ref.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
+
+
   void cxios_set_field_scale_factor(field_Ptr field_hdl, double scale_factor)
   {