Changeset 1941 for XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/c_attr

Timestamp:

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

Author:

ymipsl

Message:

XIOS coupling : Update fortran interface
YM

Location:

XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/c_attr

Files:

• iccontext_attr.cpp (modified) (1 diff)
• icscalar_attr.cpp (modified) (1 diff)
• icscalargroup_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)

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

@@ -172 +172 @@
 
 
+  void cxios_set_scalar_mask(scalar_Ptr scalar_hdl, bool mask)
+  {
+    CTimer::get("XIOS").resume();
+    scalar_hdl->mask.setValue(mask);
+    CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_scalar_mask(scalar_Ptr scalar_hdl, bool* mask)
+  {
+    CTimer::get("XIOS").resume();
+    *mask = scalar_hdl->mask.getInheritedValue();
+    CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_scalar_mask(scalar_Ptr scalar_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = scalar_hdl->mask.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
+
+
   void cxios_set_scalar_name(scalar_Ptr scalar_hdl, const char * name, int name_size)
   {

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

@@ -198 +198 @@
 
 
+  void cxios_set_scalargroup_mask(scalargroup_Ptr scalargroup_hdl, bool mask)
+  {
+    CTimer::get("XIOS").resume();
+    scalargroup_hdl->mask.setValue(mask);
+    CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_scalargroup_mask(scalargroup_Ptr scalargroup_hdl, bool* mask)
+  {
+    CTimer::get("XIOS").resume();
+    *mask = scalargroup_hdl->mask.getInheritedValue();
+    CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_scalargroup_mask(scalargroup_Ptr scalargroup_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = scalargroup_hdl->mask.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
+
+
   void cxios_set_scalargroup_name(scalargroup_Ptr scalargroup_hdl, const char * name, int name_size)
   {