Changeset 1941 for XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/c_attr/iccontext_attr.cpp

Timestamp:

09/24/20 12:16:22 (4 years ago)

Author:

ymipsl

Message:

XIOS coupling : Update fortran interface
YM

File:

• XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/c_attr/iccontext_attr.cpp (modified) (1 diff)

XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/c_attr/iccontext_attr.cpp

@@ -16 +16 @@
 {
   typedef xios::CContext* context_Ptr;
+
+  void cxios_set_context_attached_mode(context_Ptr context_hdl, bool attached_mode)
+  {
+    CTimer::get("XIOS").resume();
+    context_hdl->attached_mode.setValue(attached_mode);
+    CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_context_attached_mode(context_Ptr context_hdl, bool* attached_mode)
+  {
+    CTimer::get("XIOS").resume();
+    *attached_mode = context_hdl->attached_mode.getInheritedValue();
+    CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_context_attached_mode(context_Ptr context_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = context_hdl->attached_mode.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
+
 
   void cxios_set_context_output_dir(context_Ptr context_hdl, const char * output_dir, int output_dir_size)