Changeset 699 for XIOS/trunk/src/interface/c_attr/icfilegroup_attr.cpp

Timestamp:

09/22/15 10:09:53 (9 years ago)

Author:

rlacroix

Message:

Add the Fortran interface for the new "time_counter" file attribute.

It had been forgotten in r692.

File:

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

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

@@ -455 +455 @@
 
 
+  void cxios_set_filegroup_time_counter(filegroup_Ptr filegroup_hdl, const char * time_counter, int time_counter_size)
+  {
+    std::string time_counter_str;
+    if (!cstr2string(time_counter, time_counter_size, time_counter_str)) return;
+    CTimer::get("XIOS").resume();
+    filegroup_hdl->time_counter.fromString(time_counter_str);
+    CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_filegroup_time_counter(filegroup_Ptr filegroup_hdl, char * time_counter, int time_counter_size)
+  {
+    CTimer::get("XIOS").resume();
+    if (!string_copy(filegroup_hdl->time_counter.getInheritedStringValue(), time_counter, time_counter_size))
+      ERROR("void cxios_get_filegroup_time_counter(filegroup_Ptr filegroup_hdl, char * time_counter, int time_counter_size)", << "Input string is too short");
+    CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_filegroup_time_counter(filegroup_Ptr filegroup_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = filegroup_hdl->time_counter.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
+
+
   void cxios_set_filegroup_type(filegroup_Ptr filegroup_hdl, const char * type, int type_size)
   {