Changeset 432 for XIOS/trunk/src/interface/c_attr/icgridgroup_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/icgridgroup_attr.cpp (modified) (6 diffs)

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

@@ -35 +35 @@
   }
   
+  bool cxios_is_defined_gridgroup_axis_ref(gridgroup_Ptr gridgroup_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !gridgroup_hdl->axis_ref.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_gridgroup_description(gridgroup_Ptr gridgroup_hdl, const char * description, int description_size)
@@ -53 +61 @@
      CTimer::get("XIOS").suspend();
   }
+  
+  bool cxios_is_defined_gridgroup_description(gridgroup_Ptr gridgroup_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !gridgroup_hdl->description.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
   
   
@@ -73 +89 @@
   }
   
+  bool cxios_is_defined_gridgroup_domain_ref(gridgroup_Ptr gridgroup_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !gridgroup_hdl->domain_ref.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_gridgroup_group_ref(gridgroup_Ptr gridgroup_hdl, const char * group_ref, int group_ref_size)
@@ -92 +116 @@
   }
   
+  bool cxios_is_defined_gridgroup_group_ref(gridgroup_Ptr gridgroup_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !gridgroup_hdl->group_ref.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_gridgroup_mask(gridgroup_Ptr gridgroup_hdl, bool* mask, int extent1, int extent2, int extent3)
@@ -109 +141 @@
      CTimer::get("XIOS").suspend();
   }
+  
+  bool cxios_is_defined_gridgroup_mask(gridgroup_Ptr gridgroup_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !gridgroup_hdl->mask.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
   
   
@@ -129 +169 @@
   }
   
+  bool cxios_is_defined_gridgroup_name(gridgroup_Ptr gridgroup_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !gridgroup_hdl->name.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+