Ignore:
Timestamp:
06/03/13 11:21:19 (9 years ago)
Author:
ymipsl
Message:

Enhancement : Add fortran interface to know if an attribute is set or not
ex : CALL xios_is_defined_field_attr("field_A",enabled=ok)

YM

File:
1 edited

Legend:

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

    r369 r432  
    3535  } 
    3636   
     37  bool cxios_is_defined_context_calendar_type(context_Ptr context_hdl ) 
     38  { 
     39     CTimer::get("XIOS").resume(); 
     40    return !context_hdl->calendar_type.isEmpty(); 
     41     CTimer::get("XIOS").suspend(); 
     42  } 
     43   
     44   
    3745   
    3846  void cxios_set_context_output_dir(context_Ptr context_hdl, const char * output_dir, int output_dir_size) 
     
    5361     CTimer::get("XIOS").suspend(); 
    5462  } 
     63   
     64  bool cxios_is_defined_context_output_dir(context_Ptr context_hdl ) 
     65  { 
     66     CTimer::get("XIOS").resume(); 
     67    return !context_hdl->output_dir.isEmpty(); 
     68     CTimer::get("XIOS").suspend(); 
     69  } 
     70   
    5571   
    5672   
     
    7389  } 
    7490   
     91  bool cxios_is_defined_context_start_date(context_Ptr context_hdl ) 
     92  { 
     93     CTimer::get("XIOS").resume(); 
     94    return !context_hdl->start_date.isEmpty(); 
     95     CTimer::get("XIOS").suspend(); 
     96  } 
     97   
     98   
    7599   
    76100  void cxios_set_context_time_origin(context_Ptr context_hdl, const char * time_origin, int time_origin_size) 
     
    91115     CTimer::get("XIOS").suspend(); 
    92116  } 
     117   
     118  bool cxios_is_defined_context_time_origin(context_Ptr context_hdl ) 
     119  { 
     120     CTimer::get("XIOS").resume(); 
     121    return !context_hdl->time_origin.isEmpty(); 
     122     CTimer::get("XIOS").suspend(); 
     123  } 
     124   
    93125   
    94126   
     
    111143  } 
    112144   
     145  bool cxios_is_defined_context_timestep(context_Ptr context_hdl ) 
     146  { 
     147     CTimer::get("XIOS").resume(); 
     148    return !context_hdl->timestep.isEmpty(); 
     149     CTimer::get("XIOS").suspend(); 
     150  } 
     151   
     152   
    113153   
    114154   
Note: See TracChangeset for help on using the changeset viewer.