Ignore:
Timestamp:
06/03/13 11:21:19 (11 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/icdomain_attr.cpp

    r416 r432  
    3030  } 
    3131   
     32  bool cxios_is_defined_domain_data_dim(domain_Ptr domain_hdl ) 
     33  { 
     34     CTimer::get("XIOS").resume(); 
     35    return !domain_hdl->data_dim.isEmpty(); 
     36     CTimer::get("XIOS").suspend(); 
     37  } 
     38   
     39   
    3240   
    3341  void cxios_set_domain_data_i_index(domain_Ptr domain_hdl, int* data_i_index, int extent1) 
    … …  
    4856  } 
    4957   
     58  bool cxios_is_defined_domain_data_i_index(domain_Ptr domain_hdl ) 
     59  { 
     60     CTimer::get("XIOS").resume(); 
     61    return !domain_hdl->data_i_index.isEmpty(); 
     62     CTimer::get("XIOS").suspend(); 
     63  } 
     64   
     65   
    5066   
    5167  void cxios_set_domain_data_ibegin(domain_Ptr domain_hdl, int data_ibegin) 
    … …  
    6177    *data_ibegin = domain_hdl->data_ibegin.getValue(); 
    6278  } 
     79   
     80  bool cxios_is_defined_domain_data_ibegin(domain_Ptr domain_hdl ) 
     81  { 
     82     CTimer::get("XIOS").resume(); 
     83    return !domain_hdl->data_ibegin.isEmpty(); 
     84     CTimer::get("XIOS").suspend(); 
     85  } 
     86   
    6387   
    6488   
    … …  
    80104  } 
    81105   
     106  bool cxios_is_defined_domain_data_j_index(domain_Ptr domain_hdl ) 
     107  { 
     108     CTimer::get("XIOS").resume(); 
     109    return !domain_hdl->data_j_index.isEmpty(); 
     110     CTimer::get("XIOS").suspend(); 
     111  } 
     112   
     113   
    82114   
    83115  void cxios_set_domain_data_jbegin(domain_Ptr domain_hdl, int data_jbegin) 
    … …  
    94126  } 
    95127   
     128  bool cxios_is_defined_domain_data_jbegin(domain_Ptr domain_hdl ) 
     129  { 
     130     CTimer::get("XIOS").resume(); 
     131    return !domain_hdl->data_jbegin.isEmpty(); 
     132     CTimer::get("XIOS").suspend(); 
     133  } 
     134   
     135   
    96136   
    97137  void cxios_set_domain_data_n_index(domain_Ptr domain_hdl, int data_n_index) 
    … …  
    108148  } 
    109149   
     150  bool cxios_is_defined_domain_data_n_index(domain_Ptr domain_hdl ) 
     151  { 
     152     CTimer::get("XIOS").resume(); 
     153    return !domain_hdl->data_n_index.isEmpty(); 
     154     CTimer::get("XIOS").suspend(); 
     155  } 
     156   
     157   
    110158   
    111159  void cxios_set_domain_data_ni(domain_Ptr domain_hdl, int data_ni) 
    … …  
    122170  } 
    123171   
     172  bool cxios_is_defined_domain_data_ni(domain_Ptr domain_hdl ) 
     173  { 
     174     CTimer::get("XIOS").resume(); 
     175    return !domain_hdl->data_ni.isEmpty(); 
     176     CTimer::get("XIOS").suspend(); 
     177  } 
     178   
     179   
    124180   
    125181  void cxios_set_domain_data_nj(domain_Ptr domain_hdl, int data_nj) 
    … …  
    136192  } 
    137193   
     194  bool cxios_is_defined_domain_data_nj(domain_Ptr domain_hdl ) 
     195  { 
     196     CTimer::get("XIOS").resume(); 
     197    return !domain_hdl->data_nj.isEmpty(); 
     198     CTimer::get("XIOS").suspend(); 
     199  } 
     200   
     201   
    138202   
    139203  void cxios_set_domain_domain_group_ref(domain_Ptr domain_hdl, const char * domain_group_ref, int domain_group_ref_size) 
    … …  
    155219  } 
    156220   
     221  bool cxios_is_defined_domain_domain_group_ref(domain_Ptr domain_hdl ) 
     222  { 
     223     CTimer::get("XIOS").resume(); 
     224    return !domain_hdl->domain_group_ref.isEmpty(); 
     225     CTimer::get("XIOS").suspend(); 
     226  } 
     227   
     228   
    157229   
    158230  void cxios_set_domain_ibegin(domain_Ptr domain_hdl, int ibegin) 
    … …  
    169241  } 
    170242   
     243  bool cxios_is_defined_domain_ibegin(domain_Ptr domain_hdl ) 
     244  { 
     245     CTimer::get("XIOS").resume(); 
     246    return !domain_hdl->ibegin.isEmpty(); 
     247     CTimer::get("XIOS").suspend(); 
     248  } 
     249   
     250   
    171251   
    172252  void cxios_set_domain_iend(domain_Ptr domain_hdl, int iend) 
    … …  
    183263  } 
    184264   
     265  bool cxios_is_defined_domain_iend(domain_Ptr domain_hdl ) 
     266  { 
     267     CTimer::get("XIOS").resume(); 
     268    return !domain_hdl->iend.isEmpty(); 
     269     CTimer::get("XIOS").suspend(); 
     270  } 
     271   
     272   
    185273   
    186274  void cxios_set_domain_jbegin(domain_Ptr domain_hdl, int jbegin) 
    … …  
    197285  } 
    198286   
     287  bool cxios_is_defined_domain_jbegin(domain_Ptr domain_hdl ) 
     288  { 
     289     CTimer::get("XIOS").resume(); 
     290    return !domain_hdl->jbegin.isEmpty(); 
     291     CTimer::get("XIOS").suspend(); 
     292  } 
     293   
     294   
    199295   
    200296  void cxios_set_domain_jend(domain_Ptr domain_hdl, int jend) 
    … …  
    210306    *jend = domain_hdl->jend.getValue(); 
    211307  } 
     308   
     309  bool cxios_is_defined_domain_jend(domain_Ptr domain_hdl ) 
     310  { 
     311     CTimer::get("XIOS").resume(); 
     312    return !domain_hdl->jend.isEmpty(); 
     313     CTimer::get("XIOS").suspend(); 
     314  } 
     315   
    212316   
    213317   
    … …  
    229333  } 
    230334   
     335  bool cxios_is_defined_domain_latvalue(domain_Ptr domain_hdl ) 
     336  { 
     337     CTimer::get("XIOS").resume(); 
     338    return !domain_hdl->latvalue.isEmpty(); 
     339     CTimer::get("XIOS").suspend(); 
     340  } 
     341   
     342   
    231343   
    232344  void cxios_set_domain_long_name(domain_Ptr domain_hdl, const char * long_name, int long_name_size) 
    … …  
    247359     CTimer::get("XIOS").suspend(); 
    248360  } 
     361   
     362  bool cxios_is_defined_domain_long_name(domain_Ptr domain_hdl ) 
     363  { 
     364     CTimer::get("XIOS").resume(); 
     365    return !domain_hdl->long_name.isEmpty(); 
     366     CTimer::get("XIOS").suspend(); 
     367  } 
     368   
    249369   
    250370   
    … …  
    266386  } 
    267387   
     388  bool cxios_is_defined_domain_lonvalue(domain_Ptr domain_hdl ) 
     389  { 
     390     CTimer::get("XIOS").resume(); 
     391    return !domain_hdl->lonvalue.isEmpty(); 
     392     CTimer::get("XIOS").suspend(); 
     393  } 
     394   
     395   
    268396   
    269397  void cxios_set_domain_mask(domain_Ptr domain_hdl, bool* mask, int extent1, int extent2) 
    … …  
    284412  } 
    285413   
     414  bool cxios_is_defined_domain_mask(domain_Ptr domain_hdl ) 
     415  { 
     416     CTimer::get("XIOS").resume(); 
     417    return !domain_hdl->mask.isEmpty(); 
     418     CTimer::get("XIOS").suspend(); 
     419  } 
     420   
     421   
    286422   
    287423  void cxios_set_domain_name(domain_Ptr domain_hdl, const char * name, int name_size) 
    … …  
    303439  } 
    304440   
     441  bool cxios_is_defined_domain_name(domain_Ptr domain_hdl ) 
     442  { 
     443     CTimer::get("XIOS").resume(); 
     444    return !domain_hdl->name.isEmpty(); 
     445     CTimer::get("XIOS").suspend(); 
     446  } 
     447   
     448   
    305449   
    306450  void cxios_set_domain_ni(domain_Ptr domain_hdl, int ni) 
    … …  
    317461  } 
    318462   
     463  bool cxios_is_defined_domain_ni(domain_Ptr domain_hdl ) 
     464  { 
     465     CTimer::get("XIOS").resume(); 
     466    return !domain_hdl->ni.isEmpty(); 
     467     CTimer::get("XIOS").suspend(); 
     468  } 
     469   
     470   
    319471   
    320472  void cxios_set_domain_ni_glo(domain_Ptr domain_hdl, int ni_glo) 
    … …  
    331483  } 
    332484   
     485  bool cxios_is_defined_domain_ni_glo(domain_Ptr domain_hdl ) 
     486  { 
     487     CTimer::get("XIOS").resume(); 
     488    return !domain_hdl->ni_glo.isEmpty(); 
     489     CTimer::get("XIOS").suspend(); 
     490  } 
     491   
     492   
    333493   
    334494  void cxios_set_domain_nj(domain_Ptr domain_hdl, int nj) 
    … …  
    345505  } 
    346506   
     507  bool cxios_is_defined_domain_nj(domain_Ptr domain_hdl ) 
     508  { 
     509     CTimer::get("XIOS").resume(); 
     510    return !domain_hdl->nj.isEmpty(); 
     511     CTimer::get("XIOS").suspend(); 
     512  } 
     513   
     514   
    347515   
    348516  void cxios_set_domain_nj_glo(domain_Ptr domain_hdl, int nj_glo) 
    … …  
    359527  } 
    360528   
     529  bool cxios_is_defined_domain_nj_glo(domain_Ptr domain_hdl ) 
     530  { 
     531     CTimer::get("XIOS").resume(); 
     532    return !domain_hdl->nj_glo.isEmpty(); 
     533     CTimer::get("XIOS").suspend(); 
     534  } 
     535   
     536   
    361537   
    362538  void cxios_set_domain_standard_name(domain_Ptr domain_hdl, const char * standard_name, int standard_name_size) 
    … …  
    378554  } 
    379555   
     556  bool cxios_is_defined_domain_standard_name(domain_Ptr domain_hdl ) 
     557  { 
     558     CTimer::get("XIOS").resume(); 
     559    return !domain_hdl->standard_name.isEmpty(); 
     560     CTimer::get("XIOS").suspend(); 
     561  } 
     562   
     563   
    380564   
    381565  void cxios_set_domain_zoom_ibegin(domain_Ptr domain_hdl, int zoom_ibegin) 
    … …  
    392576  } 
    393577   
     578  bool cxios_is_defined_domain_zoom_ibegin(domain_Ptr domain_hdl ) 
     579  { 
     580     CTimer::get("XIOS").resume(); 
     581    return !domain_hdl->zoom_ibegin.isEmpty(); 
     582     CTimer::get("XIOS").suspend(); 
     583  } 
     584   
     585   
    394586   
    395587  void cxios_set_domain_zoom_ibegin_loc(domain_Ptr domain_hdl, int zoom_ibegin_loc) 
    … …  
    406598  } 
    407599   
     600  bool cxios_is_defined_domain_zoom_ibegin_loc(domain_Ptr domain_hdl ) 
     601  { 
     602     CTimer::get("XIOS").resume(); 
     603    return !domain_hdl->zoom_ibegin_loc.isEmpty(); 
     604     CTimer::get("XIOS").suspend(); 
     605  } 
     606   
     607   
    408608   
    409609  void cxios_set_domain_zoom_jbegin(domain_Ptr domain_hdl, int zoom_jbegin) 
    … …  
    420620  } 
    421621   
     622  bool cxios_is_defined_domain_zoom_jbegin(domain_Ptr domain_hdl ) 
     623  { 
     624     CTimer::get("XIOS").resume(); 
     625    return !domain_hdl->zoom_jbegin.isEmpty(); 
     626     CTimer::get("XIOS").suspend(); 
     627  } 
     628   
     629   
    422630   
    423631  void cxios_set_domain_zoom_jbegin_loc(domain_Ptr domain_hdl, int zoom_jbegin_loc) 
    … …  
    434642  } 
    435643   
     644  bool cxios_is_defined_domain_zoom_jbegin_loc(domain_Ptr domain_hdl ) 
     645  { 
     646     CTimer::get("XIOS").resume(); 
     647    return !domain_hdl->zoom_jbegin_loc.isEmpty(); 
     648     CTimer::get("XIOS").suspend(); 
     649  } 
     650   
     651   
    436652   
    437653  void cxios_set_domain_zoom_ni(domain_Ptr domain_hdl, int zoom_ni) 
    … …  
    448664  } 
    449665   
     666  bool cxios_is_defined_domain_zoom_ni(domain_Ptr domain_hdl ) 
     667  { 
     668     CTimer::get("XIOS").resume(); 
     669    return !domain_hdl->zoom_ni.isEmpty(); 
     670     CTimer::get("XIOS").suspend(); 
     671  } 
     672   
     673   
    450674   
    451675  void cxios_set_domain_zoom_ni_loc(domain_Ptr domain_hdl, int zoom_ni_loc) 
    … …  
    462686  } 
    463687   
     688  bool cxios_is_defined_domain_zoom_ni_loc(domain_Ptr domain_hdl ) 
     689  { 
     690     CTimer::get("XIOS").resume(); 
     691    return !domain_hdl->zoom_ni_loc.isEmpty(); 
     692     CTimer::get("XIOS").suspend(); 
     693  } 
     694   
     695   
    464696   
    465697  void cxios_set_domain_zoom_nj(domain_Ptr domain_hdl, int zoom_nj) 
    … …  
    476708  } 
    477709   
     710  bool cxios_is_defined_domain_zoom_nj(domain_Ptr domain_hdl ) 
     711  { 
     712     CTimer::get("XIOS").resume(); 
     713    return !domain_hdl->zoom_nj.isEmpty(); 
     714     CTimer::get("XIOS").suspend(); 
     715  } 
     716   
     717   
    478718   
    479719  void cxios_set_domain_zoom_nj_loc(domain_Ptr domain_hdl, int zoom_nj_loc) 
    … …  
    490730  } 
    491731   
     732  bool cxios_is_defined_domain_zoom_nj_loc(domain_Ptr domain_hdl ) 
     733  { 
     734     CTimer::get("XIOS").resume(); 
     735    return !domain_hdl->zoom_nj_loc.isEmpty(); 
     736     CTimer::get("XIOS").suspend(); 
     737  } 
     738   
     739   
    492740   
    493741   
Note: See TracChangeset for help on using the changeset viewer.