Changeset 608 for XIOS/branchs/xios-1.0/src/interface/c_attr/icfield_attr.cpp

Timestamp:

06/05/15 15:42:02 (9 years ago)

Author:

rlacroix

Message:

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

File:

• XIOS/branchs/xios-1.0/src/interface/c_attr/icfield_attr.cpp (modified) (1 diff)

XIOS/branchs/xios-1.0/src/interface/c_attr/icfield_attr.cpp

@@ -68 +68 @@
   
   
+  void cxios_set_field_compression_level(field_Ptr field_hdl, int compression_level)
+  {
+     CTimer::get("XIOS").resume();
+    field_hdl->compression_level.setValue(compression_level);
+    field_hdl->sendAttributToServer(field_hdl->compression_level);
+     CTimer::get("XIOS").suspend();
+  }
+  
+  void cxios_get_field_compression_level(field_Ptr field_hdl, int* compression_level)
+  {
+    *compression_level = field_hdl->compression_level.getInheritedValue();
+  }
+  
+  bool cxios_is_defined_field_compression_level(field_Ptr field_hdl )
+  {
+    CTimer::get("XIOS").resume();
+    bool isDefined = field_hdl->compression_level.hasInheritedValue();
+    CTimer::get("XIOS").suspend();
+    return isDefined;
+  }
+  
+  
+  
   void cxios_set_field_default_value(field_Ptr field_hdl, double default_value)
   {