Changeset 932 for XIOS/trunk/src/interface/c_attr/icgrid_attr.cpp

Timestamp:

09/21/16 14:35:03 (8 years ago)

Author:

mhnguyen

Message:

Adding Fortran interface for high-dimension grid (up to 7)

+) Add check mask for high-dimension grid
+) Add Fortran interface for send_field, recv_field

Test
+) On Curie
+) Work

File:

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

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

@@ -119 +119 @@
 
 
+  void cxios_set_grid_mask_4d(grid_Ptr grid_hdl, bool* mask_4d, int* extent)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<bool,4> tmp(mask_4d, shape(extent[0], extent[1], extent[2], extent[3]), neverDeleteData);
+    grid_hdl->mask_4d.reference(tmp.copy());
+     CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_grid_mask_4d(grid_Ptr grid_hdl, bool* mask_4d, int* extent)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<bool,4> tmp(mask_4d, shape(extent[0], extent[1], extent[2], extent[3]), neverDeleteData);
+    tmp=grid_hdl->mask_4d.getInheritedValue();
+     CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_grid_mask_4d(grid_Ptr grid_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = grid_hdl->mask_4d.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
+
+
+  void cxios_set_grid_mask_5d(grid_Ptr grid_hdl, bool* mask_5d, int* extent)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<bool,5> tmp(mask_5d, shape(extent[0], extent[1], extent[2], extent[3], extent[4]), neverDeleteData);
+    grid_hdl->mask_5d.reference(tmp.copy());
+     CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_grid_mask_5d(grid_Ptr grid_hdl, bool* mask_5d, int* extent)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<bool,5> tmp(mask_5d, shape(extent[0], extent[1], extent[2], extent[3], extent[4]), neverDeleteData);
+    tmp=grid_hdl->mask_5d.getInheritedValue();
+     CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_grid_mask_5d(grid_Ptr grid_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = grid_hdl->mask_5d.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
+
+
+  void cxios_set_grid_mask_6d(grid_Ptr grid_hdl, bool* mask_6d, int* extent)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<bool,6> tmp(mask_6d, shape(extent[0], extent[1], extent[2], extent[3], extent[4], extent[5]), neverDeleteData);
+    grid_hdl->mask_6d.reference(tmp.copy());
+     CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_grid_mask_6d(grid_Ptr grid_hdl, bool* mask_6d, int* extent)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<bool,6> tmp(mask_6d, shape(extent[0], extent[1], extent[2], extent[3], extent[4], extent[5]), neverDeleteData);
+    tmp=grid_hdl->mask_6d.getInheritedValue();
+     CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_grid_mask_6d(grid_Ptr grid_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = grid_hdl->mask_6d.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
+
+
+  void cxios_set_grid_mask_7d(grid_Ptr grid_hdl, bool* mask_7d, int* extent)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<bool,7> tmp(mask_7d, shape(extent[0], extent[1], extent[2], extent[3], extent[4], extent[5], extent[6]), neverDeleteData);
+    grid_hdl->mask_7d.reference(tmp.copy());
+     CTimer::get("XIOS").suspend();
+  }
+
+  void cxios_get_grid_mask_7d(grid_Ptr grid_hdl, bool* mask_7d, int* extent)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<bool,7> tmp(mask_7d, shape(extent[0], extent[1], extent[2], extent[3], extent[4], extent[5], extent[6]), neverDeleteData);
+    tmp=grid_hdl->mask_7d.getInheritedValue();
+     CTimer::get("XIOS").suspend();
+  }
+
+  bool cxios_is_defined_grid_mask_7d(grid_Ptr grid_hdl)
+  {
+     CTimer::get("XIOS").resume();
+     bool isDefined = grid_hdl->mask_7d.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+     return isDefined;
+  }
+
+
   void cxios_set_grid_name(grid_Ptr grid_hdl, const char * name, int name_size)
   {