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/icdomaingroup_attr.cpp

    r416 r432  
    3030  } 
    3131   
     32  bool cxios_is_defined_domaingroup_data_dim(domaingroup_Ptr domaingroup_hdl ) 
     33  { 
     34     CTimer::get("XIOS").resume(); 
     35    return !domaingroup_hdl->data_dim.isEmpty(); 
     36     CTimer::get("XIOS").suspend(); 
     37  } 
     38   
     39   
    3240   
    3341  void cxios_set_domaingroup_data_i_index(domaingroup_Ptr domaingroup_hdl, int* data_i_index, int extent1) 
    … …  
    4856  } 
    4957   
     58  bool cxios_is_defined_domaingroup_data_i_index(domaingroup_Ptr domaingroup_hdl ) 
     59  { 
     60     CTimer::get("XIOS").resume(); 
     61    return !domaingroup_hdl->data_i_index.isEmpty(); 
     62     CTimer::get("XIOS").suspend(); 
     63  } 
     64   
     65   
    5066   
    5167  void cxios_set_domaingroup_data_ibegin(domaingroup_Ptr domaingroup_hdl, int data_ibegin) 
    … …  
    6177    *data_ibegin = domaingroup_hdl->data_ibegin.getValue(); 
    6278  } 
     79   
     80  bool cxios_is_defined_domaingroup_data_ibegin(domaingroup_Ptr domaingroup_hdl ) 
     81  { 
     82     CTimer::get("XIOS").resume(); 
     83    return !domaingroup_hdl->data_ibegin.isEmpty(); 
     84     CTimer::get("XIOS").suspend(); 
     85  } 
     86   
    6387   
    6488   
    … …  
    80104  } 
    81105   
     106  bool cxios_is_defined_domaingroup_data_j_index(domaingroup_Ptr domaingroup_hdl ) 
     107  { 
     108     CTimer::get("XIOS").resume(); 
     109    return !domaingroup_hdl->data_j_index.isEmpty(); 
     110     CTimer::get("XIOS").suspend(); 
     111  } 
     112   
     113   
    82114   
    83115  void cxios_set_domaingroup_data_jbegin(domaingroup_Ptr domaingroup_hdl, int data_jbegin) 
    … …  
    94126  } 
    95127   
     128  bool cxios_is_defined_domaingroup_data_jbegin(domaingroup_Ptr domaingroup_hdl ) 
     129  { 
     130     CTimer::get("XIOS").resume(); 
     131    return !domaingroup_hdl->data_jbegin.isEmpty(); 
     132     CTimer::get("XIOS").suspend(); 
     133  } 
     134   
     135   
    96136   
    97137  void cxios_set_domaingroup_data_n_index(domaingroup_Ptr domaingroup_hdl, int data_n_index) 
    … …  
    108148  } 
    109149   
     150  bool cxios_is_defined_domaingroup_data_n_index(domaingroup_Ptr domaingroup_hdl ) 
     151  { 
     152     CTimer::get("XIOS").resume(); 
     153    return !domaingroup_hdl->data_n_index.isEmpty(); 
     154     CTimer::get("XIOS").suspend(); 
     155  } 
     156   
     157   
    110158   
    111159  void cxios_set_domaingroup_data_ni(domaingroup_Ptr domaingroup_hdl, int data_ni) 
    … …  
    122170  } 
    123171   
     172  bool cxios_is_defined_domaingroup_data_ni(domaingroup_Ptr domaingroup_hdl ) 
     173  { 
     174     CTimer::get("XIOS").resume(); 
     175    return !domaingroup_hdl->data_ni.isEmpty(); 
     176     CTimer::get("XIOS").suspend(); 
     177  } 
     178   
     179   
    124180   
    125181  void cxios_set_domaingroup_data_nj(domaingroup_Ptr domaingroup_hdl, int data_nj) 
    … …  
    136192  } 
    137193   
     194  bool cxios_is_defined_domaingroup_data_nj(domaingroup_Ptr domaingroup_hdl ) 
     195  { 
     196     CTimer::get("XIOS").resume(); 
     197    return !domaingroup_hdl->data_nj.isEmpty(); 
     198     CTimer::get("XIOS").suspend(); 
     199  } 
     200   
     201   
    138202   
    139203  void cxios_set_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl, const char * domain_group_ref, int domain_group_ref_size) 
    … …  
    155219  } 
    156220   
     221  bool cxios_is_defined_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl ) 
     222  { 
     223     CTimer::get("XIOS").resume(); 
     224    return !domaingroup_hdl->domain_group_ref.isEmpty(); 
     225     CTimer::get("XIOS").suspend(); 
     226  } 
     227   
     228   
    157229   
    158230  void cxios_set_domaingroup_group_ref(domaingroup_Ptr domaingroup_hdl, const char * group_ref, int group_ref_size) 
    … …  
    174246  } 
    175247   
     248  bool cxios_is_defined_domaingroup_group_ref(domaingroup_Ptr domaingroup_hdl ) 
     249  { 
     250     CTimer::get("XIOS").resume(); 
     251    return !domaingroup_hdl->group_ref.isEmpty(); 
     252     CTimer::get("XIOS").suspend(); 
     253  } 
     254   
     255   
    176256   
    177257  void cxios_set_domaingroup_ibegin(domaingroup_Ptr domaingroup_hdl, int ibegin) 
    … …  
    188268  } 
    189269   
     270  bool cxios_is_defined_domaingroup_ibegin(domaingroup_Ptr domaingroup_hdl ) 
     271  { 
     272     CTimer::get("XIOS").resume(); 
     273    return !domaingroup_hdl->ibegin.isEmpty(); 
     274     CTimer::get("XIOS").suspend(); 
     275  } 
     276   
     277   
    190278   
    191279  void cxios_set_domaingroup_iend(domaingroup_Ptr domaingroup_hdl, int iend) 
    … …  
    202290  } 
    203291   
     292  bool cxios_is_defined_domaingroup_iend(domaingroup_Ptr domaingroup_hdl ) 
     293  { 
     294     CTimer::get("XIOS").resume(); 
     295    return !domaingroup_hdl->iend.isEmpty(); 
     296     CTimer::get("XIOS").suspend(); 
     297  } 
     298   
     299   
    204300   
    205301  void cxios_set_domaingroup_jbegin(domaingroup_Ptr domaingroup_hdl, int jbegin) 
    … …  
    216312  } 
    217313   
     314  bool cxios_is_defined_domaingroup_jbegin(domaingroup_Ptr domaingroup_hdl ) 
     315  { 
     316     CTimer::get("XIOS").resume(); 
     317    return !domaingroup_hdl->jbegin.isEmpty(); 
     318     CTimer::get("XIOS").suspend(); 
     319  } 
     320   
     321   
    218322   
    219323  void cxios_set_domaingroup_jend(domaingroup_Ptr domaingroup_hdl, int jend) 
    … …  
    229333    *jend = domaingroup_hdl->jend.getValue(); 
    230334  } 
     335   
     336  bool cxios_is_defined_domaingroup_jend(domaingroup_Ptr domaingroup_hdl ) 
     337  { 
     338     CTimer::get("XIOS").resume(); 
     339    return !domaingroup_hdl->jend.isEmpty(); 
     340     CTimer::get("XIOS").suspend(); 
     341  } 
     342   
    231343   
    232344   
    … …  
    248360  } 
    249361   
     362  bool cxios_is_defined_domaingroup_latvalue(domaingroup_Ptr domaingroup_hdl ) 
     363  { 
     364     CTimer::get("XIOS").resume(); 
     365    return !domaingroup_hdl->latvalue.isEmpty(); 
     366     CTimer::get("XIOS").suspend(); 
     367  } 
     368   
     369   
    250370   
    251371  void cxios_set_domaingroup_long_name(domaingroup_Ptr domaingroup_hdl, const char * long_name, int long_name_size) 
    … …  
    266386     CTimer::get("XIOS").suspend(); 
    267387  } 
     388   
     389  bool cxios_is_defined_domaingroup_long_name(domaingroup_Ptr domaingroup_hdl ) 
     390  { 
     391     CTimer::get("XIOS").resume(); 
     392    return !domaingroup_hdl->long_name.isEmpty(); 
     393     CTimer::get("XIOS").suspend(); 
     394  } 
     395   
    268396   
    269397   
    … …  
    285413  } 
    286414   
     415  bool cxios_is_defined_domaingroup_lonvalue(domaingroup_Ptr domaingroup_hdl ) 
     416  { 
     417     CTimer::get("XIOS").resume(); 
     418    return !domaingroup_hdl->lonvalue.isEmpty(); 
     419     CTimer::get("XIOS").suspend(); 
     420  } 
     421   
     422   
    287423   
    288424  void cxios_set_domaingroup_mask(domaingroup_Ptr domaingroup_hdl, bool* mask, int extent1, int extent2) 
    … …  
    303439  } 
    304440   
     441  bool cxios_is_defined_domaingroup_mask(domaingroup_Ptr domaingroup_hdl ) 
     442  { 
     443     CTimer::get("XIOS").resume(); 
     444    return !domaingroup_hdl->mask.isEmpty(); 
     445     CTimer::get("XIOS").suspend(); 
     446  } 
     447   
     448   
    305449   
    306450  void cxios_set_domaingroup_name(domaingroup_Ptr domaingroup_hdl, const char * name, int name_size) 
    … …  
    322466  } 
    323467   
     468  bool cxios_is_defined_domaingroup_name(domaingroup_Ptr domaingroup_hdl ) 
     469  { 
     470     CTimer::get("XIOS").resume(); 
     471    return !domaingroup_hdl->name.isEmpty(); 
     472     CTimer::get("XIOS").suspend(); 
     473  } 
     474   
     475   
    324476   
    325477  void cxios_set_domaingroup_ni(domaingroup_Ptr domaingroup_hdl, int ni) 
    … …  
    336488  } 
    337489   
     490  bool cxios_is_defined_domaingroup_ni(domaingroup_Ptr domaingroup_hdl ) 
     491  { 
     492     CTimer::get("XIOS").resume(); 
     493    return !domaingroup_hdl->ni.isEmpty(); 
     494     CTimer::get("XIOS").suspend(); 
     495  } 
     496   
     497   
    338498   
    339499  void cxios_set_domaingroup_ni_glo(domaingroup_Ptr domaingroup_hdl, int ni_glo) 
    … …  
    350510  } 
    351511   
     512  bool cxios_is_defined_domaingroup_ni_glo(domaingroup_Ptr domaingroup_hdl ) 
     513  { 
     514     CTimer::get("XIOS").resume(); 
     515    return !domaingroup_hdl->ni_glo.isEmpty(); 
     516     CTimer::get("XIOS").suspend(); 
     517  } 
     518   
     519   
    352520   
    353521  void cxios_set_domaingroup_nj(domaingroup_Ptr domaingroup_hdl, int nj) 
    … …  
    364532  } 
    365533   
     534  bool cxios_is_defined_domaingroup_nj(domaingroup_Ptr domaingroup_hdl ) 
     535  { 
     536     CTimer::get("XIOS").resume(); 
     537    return !domaingroup_hdl->nj.isEmpty(); 
     538     CTimer::get("XIOS").suspend(); 
     539  } 
     540   
     541   
    366542   
    367543  void cxios_set_domaingroup_nj_glo(domaingroup_Ptr domaingroup_hdl, int nj_glo) 
    … …  
    378554  } 
    379555   
     556  bool cxios_is_defined_domaingroup_nj_glo(domaingroup_Ptr domaingroup_hdl ) 
     557  { 
     558     CTimer::get("XIOS").resume(); 
     559    return !domaingroup_hdl->nj_glo.isEmpty(); 
     560     CTimer::get("XIOS").suspend(); 
     561  } 
     562   
     563   
    380564   
    381565  void cxios_set_domaingroup_standard_name(domaingroup_Ptr domaingroup_hdl, const char * standard_name, int standard_name_size) 
    … …  
    397581  } 
    398582   
     583  bool cxios_is_defined_domaingroup_standard_name(domaingroup_Ptr domaingroup_hdl ) 
     584  { 
     585     CTimer::get("XIOS").resume(); 
     586    return !domaingroup_hdl->standard_name.isEmpty(); 
     587     CTimer::get("XIOS").suspend(); 
     588  } 
     589   
     590   
    399591   
    400592  void cxios_set_domaingroup_zoom_ibegin(domaingroup_Ptr domaingroup_hdl, int zoom_ibegin) 
    … …  
    411603  } 
    412604   
     605  bool cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_Ptr domaingroup_hdl ) 
     606  { 
     607     CTimer::get("XIOS").resume(); 
     608    return !domaingroup_hdl->zoom_ibegin.isEmpty(); 
     609     CTimer::get("XIOS").suspend(); 
     610  } 
     611   
     612   
    413613   
    414614  void cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_Ptr domaingroup_hdl, int zoom_ibegin_loc) 
    … …  
    425625  } 
    426626   
     627  bool cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_Ptr domaingroup_hdl ) 
     628  { 
     629     CTimer::get("XIOS").resume(); 
     630    return !domaingroup_hdl->zoom_ibegin_loc.isEmpty(); 
     631     CTimer::get("XIOS").suspend(); 
     632  } 
     633   
     634   
    427635   
    428636  void cxios_set_domaingroup_zoom_jbegin(domaingroup_Ptr domaingroup_hdl, int zoom_jbegin) 
    … …  
    439647  } 
    440648   
     649  bool cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_Ptr domaingroup_hdl ) 
     650  { 
     651     CTimer::get("XIOS").resume(); 
     652    return !domaingroup_hdl->zoom_jbegin.isEmpty(); 
     653     CTimer::get("XIOS").suspend(); 
     654  } 
     655   
     656   
    441657   
    442658  void cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_Ptr domaingroup_hdl, int zoom_jbegin_loc) 
    … …  
    453669  } 
    454670   
     671  bool cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_Ptr domaingroup_hdl ) 
     672  { 
     673     CTimer::get("XIOS").resume(); 
     674    return !domaingroup_hdl->zoom_jbegin_loc.isEmpty(); 
     675     CTimer::get("XIOS").suspend(); 
     676  } 
     677   
     678   
    455679   
    456680  void cxios_set_domaingroup_zoom_ni(domaingroup_Ptr domaingroup_hdl, int zoom_ni) 
    … …  
    467691  } 
    468692   
     693  bool cxios_is_defined_domaingroup_zoom_ni(domaingroup_Ptr domaingroup_hdl ) 
     694  { 
     695     CTimer::get("XIOS").resume(); 
     696    return !domaingroup_hdl->zoom_ni.isEmpty(); 
     697     CTimer::get("XIOS").suspend(); 
     698  } 
     699   
     700   
    469701   
    470702  void cxios_set_domaingroup_zoom_ni_loc(domaingroup_Ptr domaingroup_hdl, int zoom_ni_loc) 
    … …  
    481713  } 
    482714   
     715  bool cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_Ptr domaingroup_hdl ) 
     716  { 
     717     CTimer::get("XIOS").resume(); 
     718    return !domaingroup_hdl->zoom_ni_loc.isEmpty(); 
     719     CTimer::get("XIOS").suspend(); 
     720  } 
     721   
     722   
    483723   
    484724  void cxios_set_domaingroup_zoom_nj(domaingroup_Ptr domaingroup_hdl, int zoom_nj) 
    … …  
    495735  } 
    496736   
     737  bool cxios_is_defined_domaingroup_zoom_nj(domaingroup_Ptr domaingroup_hdl ) 
     738  { 
     739     CTimer::get("XIOS").resume(); 
     740    return !domaingroup_hdl->zoom_nj.isEmpty(); 
     741     CTimer::get("XIOS").suspend(); 
     742  } 
     743   
     744   
    497745   
    498746  void cxios_set_domaingroup_zoom_nj_loc(domaingroup_Ptr domaingroup_hdl, int zoom_nj_loc) 
    … …  
    509757  } 
    510758   
     759  bool cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_Ptr domaingroup_hdl ) 
     760  { 
     761     CTimer::get("XIOS").resume(); 
     762    return !domaingroup_hdl->zoom_nj_loc.isEmpty(); 
     763     CTimer::get("XIOS").suspend(); 
     764  } 
     765   
     766   
    511767   
    512768   
Note: See TracChangeset for help on using the changeset viewer.