Ignore:
Timestamp:
02/03/14 14:16:20 (8 years ago)
Author:
ymipsl
Message:

Enhancement : user defined global and field attribute can be output in the netcdfcf file.
A variable child element inclosed into a file element will be output as a global file attribute.
A variable child element inclosed into a field element will be output as a field attribute.

+ variable fortran interface added

YM

Location:
XIOS/trunk/src/interface/c_attr
Files:
2 added
2 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/c_attr/icfield_attr.cpp

    r464 r472  
    8888   
    8989   
     90  void cxios_set_field_detect_missing_value(field_Ptr field_hdl, bool detect_missing_value) 
     91  { 
     92     CTimer::get("XIOS").resume(); 
     93    field_hdl->detect_missing_value.setValue(detect_missing_value); 
     94    field_hdl->sendAttributToServer(field_hdl->detect_missing_value); 
     95     CTimer::get("XIOS").suspend(); 
     96  } 
     97   
     98  void cxios_get_field_detect_missing_value(field_Ptr field_hdl, bool* detect_missing_value) 
     99  { 
     100    *detect_missing_value = field_hdl->detect_missing_value.getInheritedValue(); 
     101  } 
     102   
     103  bool cxios_is_defined_field_detect_missing_value(field_Ptr field_hdl ) 
     104  { 
     105     CTimer::get("XIOS").resume(); 
     106    return field_hdl->detect_missing_value.hasInheritedValue(); 
     107     CTimer::get("XIOS").suspend(); 
     108  } 
     109   
     110   
     111   
    90112  void cxios_set_field_domain_ref(field_Ptr field_hdl, const char * domain_ref, int domain_ref_size) 
    91113  { 
  • XIOS/trunk/src/interface/c_attr/icfieldgroup_attr.cpp

    r464 r472  
    8888   
    8989   
     90  void cxios_set_fieldgroup_detect_missing_value(fieldgroup_Ptr fieldgroup_hdl, bool detect_missing_value) 
     91  { 
     92     CTimer::get("XIOS").resume(); 
     93    fieldgroup_hdl->detect_missing_value.setValue(detect_missing_value); 
     94    fieldgroup_hdl->sendAttributToServer(fieldgroup_hdl->detect_missing_value); 
     95     CTimer::get("XIOS").suspend(); 
     96  } 
     97   
     98  void cxios_get_fieldgroup_detect_missing_value(fieldgroup_Ptr fieldgroup_hdl, bool* detect_missing_value) 
     99  { 
     100    *detect_missing_value = fieldgroup_hdl->detect_missing_value.getInheritedValue(); 
     101  } 
     102   
     103  bool cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_Ptr fieldgroup_hdl ) 
     104  { 
     105     CTimer::get("XIOS").resume(); 
     106    return fieldgroup_hdl->detect_missing_value.hasInheritedValue(); 
     107     CTimer::get("XIOS").suspend(); 
     108  } 
     109   
     110   
     111   
    90112  void cxios_set_fieldgroup_domain_ref(fieldgroup_Ptr fieldgroup_hdl, const char * domain_ref, int domain_ref_size) 
    91113  { 
Note: See TracChangeset for help on using the changeset viewer.