Changeset 432 for XIOS/trunk/src/interface/c_attr/iccontext_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/iccontext_attr.cpp (modified) (5 diffs)

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

@@ -35 +35 @@
   }
   
+  bool cxios_is_defined_context_calendar_type(context_Ptr context_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !context_hdl->calendar_type.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_context_output_dir(context_Ptr context_hdl, const char * output_dir, int output_dir_size)
@@ -53 +61 @@
      CTimer::get("XIOS").suspend();
   }
+  
+  bool cxios_is_defined_context_output_dir(context_Ptr context_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !context_hdl->output_dir.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
   
   
@@ -73 +89 @@
   }
   
+  bool cxios_is_defined_context_start_date(context_Ptr context_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !context_hdl->start_date.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
   
   void cxios_set_context_time_origin(context_Ptr context_hdl, const char * time_origin, int time_origin_size)
@@ -91 +115 @@
      CTimer::get("XIOS").suspend();
   }
+  
+  bool cxios_is_defined_context_time_origin(context_Ptr context_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !context_hdl->time_origin.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
   
   
@@ -111 +143 @@
   }
   
+  bool cxios_is_defined_context_timestep(context_Ptr context_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return !context_hdl->timestep.isEmpty();
+     CTimer::get("XIOS").suspend();
+  }
+  
+