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

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

@@ -65 +65 @@
      return isDefined;
   }
+
+
+  void cxios_set_interpolate_domain_renormalize(interpolate_domain_Ptr interpolate_domain_hdl, bool renormalize)
+  {
+    CTimer::get("XIOS").resume();
+    interpolate_domain_hdl->renormalize.setValue(renormalize);
+    CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_interpolate_domain_renormalize(interpolate_domain_Ptr interpolate_domain_hdl, bool* renormalize)
+  {
+    CTimer::get("XIOS").resume();
+    *renormalize = interpolate_domain_hdl->renormalize.getInheritedValue();
+    CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_interpolate_domain_renormalize(interpolate_domain_Ptr interpolate_domain_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = interpolate_domain_hdl->renormalize.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
 }