Changeset 1052 for XIOS/trunk/src/interface/c_attr/icdomaingroup_attr.cpp

Timestamp:

02/07/17 12:00:27 (7 years ago)

Author:

ymipsl

Message:

Generate fortran interface for new attributes from previous commit.

YM

File:

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

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

@@ -773 +773 @@
 
 
+  void cxios_set_domaingroup_prec(domaingroup_Ptr domaingroup_hdl, int prec)
+  {
+    CTimer::get("XIOS").resume();
+    domaingroup_hdl->prec.setValue(prec);
+    CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_domaingroup_prec(domaingroup_Ptr domaingroup_hdl, int* prec)
+  {
+    CTimer::get("XIOS").resume();
+    *prec = domaingroup_hdl->prec.getInheritedValue();
+    CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_domaingroup_prec(domaingroup_Ptr domaingroup_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = domaingroup_hdl->prec.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
+
+
   void cxios_set_domaingroup_standard_name(domaingroup_Ptr domaingroup_hdl, const char * standard_name, int standard_name_size)
   {