Changeset 1941 for XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/c_attr/icscalar_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/icscalar_attr.cpp (modified) (1 diff)

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)
   {