Changeset 467 for XIOS/trunk/src/interface/c_attr

Timestamp:

01/29/14 11:49:29 (10 years ago)

Author:

ymipsl

Message:

Add functionnalities for reduced gaussian grid support.

YM

Location:

XIOS/trunk/src/interface/c_attr

Files:

• icdomain_attr.cpp (modified) (2 diffs)
• icdomaingroup_attr.cpp (modified) (2 diffs)

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

@@ -280 +280 @@
   
   
+  void cxios_set_domain_i_index(domain_Ptr domain_hdl, int* i_index, int extent1, int extent2)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<int,2> tmp(i_index,shape(extent1,extent2),neverDeleteData) ;
+    domain_hdl->i_index.reference(tmp.copy());
+    domain_hdl->sendAttributToServer(domain_hdl->i_index);
+     CTimer::get("XIOS").suspend();
+  }
+  
+  void cxios_get_domain_i_index(domain_Ptr domain_hdl, int* i_index, int extent1, int extent2)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<int,2> tmp(i_index,shape(extent1,extent2),neverDeleteData) ;
+    tmp=domain_hdl->i_index.getInheritedValue() ;
+     CTimer::get("XIOS").suspend();
+  }
+  
+  bool cxios_is_defined_domain_i_index(domain_Ptr domain_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return domain_hdl->i_index.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
+  
   void cxios_set_domain_ibegin(domain_Ptr domain_hdl, int ibegin)
   {
@@ -319 +345 @@
      CTimer::get("XIOS").resume();
     return domain_hdl->iend.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
+  
+  void cxios_set_domain_j_index(domain_Ptr domain_hdl, int* j_index, int extent1, int extent2)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<int,2> tmp(j_index,shape(extent1,extent2),neverDeleteData) ;
+    domain_hdl->j_index.reference(tmp.copy());
+    domain_hdl->sendAttributToServer(domain_hdl->j_index);
+     CTimer::get("XIOS").suspend();
+  }
+  
+  void cxios_get_domain_j_index(domain_Ptr domain_hdl, int* j_index, int extent1, int extent2)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<int,2> tmp(j_index,shape(extent1,extent2),neverDeleteData) ;
+    tmp=domain_hdl->j_index.getInheritedValue() ;
+     CTimer::get("XIOS").suspend();
+  }
+  
+  bool cxios_is_defined_domain_j_index(domain_Ptr domain_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return domain_hdl->j_index.hasInheritedValue();
      CTimer::get("XIOS").suspend();
   }

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

@@ -307 +307 @@
   
   
+  void cxios_set_domaingroup_i_index(domaingroup_Ptr domaingroup_hdl, int* i_index, int extent1, int extent2)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<int,2> tmp(i_index,shape(extent1,extent2),neverDeleteData) ;
+    domaingroup_hdl->i_index.reference(tmp.copy());
+    domaingroup_hdl->sendAttributToServer(domaingroup_hdl->i_index);
+     CTimer::get("XIOS").suspend();
+  }
+  
+  void cxios_get_domaingroup_i_index(domaingroup_Ptr domaingroup_hdl, int* i_index, int extent1, int extent2)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<int,2> tmp(i_index,shape(extent1,extent2),neverDeleteData) ;
+    tmp=domaingroup_hdl->i_index.getInheritedValue() ;
+     CTimer::get("XIOS").suspend();
+  }
+  
+  bool cxios_is_defined_domaingroup_i_index(domaingroup_Ptr domaingroup_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return domaingroup_hdl->i_index.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
+  
   void cxios_set_domaingroup_ibegin(domaingroup_Ptr domaingroup_hdl, int ibegin)
   {
@@ -346 +372 @@
      CTimer::get("XIOS").resume();
     return domaingroup_hdl->iend.hasInheritedValue();
+     CTimer::get("XIOS").suspend();
+  }
+  
+  
+  
+  void cxios_set_domaingroup_j_index(domaingroup_Ptr domaingroup_hdl, int* j_index, int extent1, int extent2)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<int,2> tmp(j_index,shape(extent1,extent2),neverDeleteData) ;
+    domaingroup_hdl->j_index.reference(tmp.copy());
+    domaingroup_hdl->sendAttributToServer(domaingroup_hdl->j_index);
+     CTimer::get("XIOS").suspend();
+  }
+  
+  void cxios_get_domaingroup_j_index(domaingroup_Ptr domaingroup_hdl, int* j_index, int extent1, int extent2)
+  {
+    CTimer::get("XIOS").resume();
+    CArray<int,2> tmp(j_index,shape(extent1,extent2),neverDeleteData) ;
+    tmp=domaingroup_hdl->j_index.getInheritedValue() ;
+     CTimer::get("XIOS").suspend();
+  }
+  
+  bool cxios_is_defined_domaingroup_j_index(domaingroup_Ptr domaingroup_hdl )
+  {
+     CTimer::get("XIOS").resume();
+    return domaingroup_hdl->j_index.hasInheritedValue();
      CTimer::get("XIOS").suspend();
   }