Changeset 432 for XIOS/trunk/src/interface/c_attr/icaxis_attr.cpp

Timestamp:

06/03/13 11:21:19 (11 years ago)

Author:

ymipsl

Message:

Enhancement : Add fortran interface to know if an attribute is set or not
ex : CALL xios_is_defined_field_attr("field_A",enabled=ok)

YM

File:

• XIOS/trunk/src/interface/c_attr/icaxis_attr.cpp (modified) (10 diffs)

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

@@ -35 +35 @@
   }
   
+  bool cxios_is_defined_axis_long_name(axis_Ptr axis_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !axis_hdl->long_name.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_axis_name(axis_Ptr axis_hdl, const char * name, int name_size)
@@ -54 +62 @@
   }
   
+  bool cxios_is_defined_axis_name(axis_Ptr axis_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !axis_hdl->name.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_axis_positive(axis_Ptr axis_hdl, const char * positive, int positive_size)
@@ -73 +89 @@
   }
   
+  bool cxios_is_defined_axis_positive(axis_Ptr axis_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !axis_hdl->positive.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_axis_size(axis_Ptr axis_hdl, int size)
@@ -87 +111 @@
   }
   
+  bool cxios_is_defined_axis_size(axis_Ptr axis_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !axis_hdl->size.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_axis_standard_name(axis_Ptr axis_hdl, const char * standard_name, int standard_name_size)
@@ -106 +138 @@
   }
   
+  bool cxios_is_defined_axis_standard_name(axis_Ptr axis_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !axis_hdl->standard_name.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_axis_unit(axis_Ptr axis_hdl, const char * unit, int unit_size)
@@ -124 +164 @@
      CTimer::get("XIOS").suspend();
   }
+  
+  bool cxios_is_defined_axis_unit(axis_Ptr axis_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !axis_hdl->unit.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
   
   
@@ -143 +191 @@
   }
   
+  bool cxios_is_defined_axis_value(axis_Ptr axis_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !axis_hdl->value.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_axis_zoom_begin(axis_Ptr axis_hdl, int zoom_begin)
@@ -157 +213 @@
   }
   
+  bool cxios_is_defined_axis_zoom_begin(axis_Ptr axis_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !axis_hdl->zoom_begin.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_axis_zoom_end(axis_Ptr axis_hdl, int zoom_end)
@@ -171 +235 @@
   }
   
+  bool cxios_is_defined_axis_zoom_end(axis_Ptr axis_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !axis_hdl->zoom_end.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_axis_zoom_size(axis_Ptr axis_hdl, int zoom_size)
@@ -185 +257 @@
   }
   
+  bool cxios_is_defined_axis_zoom_size(axis_Ptr axis_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !axis_hdl->zoom_size.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+