Changeset 2616


Ignore:
Timestamp:
03/19/24 14:23:16 (8 weeks ago)
Author:
jderouillat
Message:

Add XIOS3 fortran interfaces (resources management, chunking, compression)

Location:
XIOS3/trunk/src
Files:
15 added
28 edited

Legend:

Unmodified
Added
Removed

  • XIOS3/trunk/src/generate_fortran_interface.cpp

    r2507 r2616  
    335335  file.close(); 
    336336 
     337  file.open((path+"redistribute_domain_interface_attr.F90").c_str()); 
     338  redistributeDomain.generateFortran2003Interface(file); 
     339  file.close(); 
     340 
     341  file.open((path+"icredistribute_domain_attr.cpp").c_str()); 
     342  redistributeDomain.generateCInterface(file); 
     343  file.close(); 
     344   
    337345  file.open((path+"iredistribute_domain_attr.F90").c_str()); 
    338346  redistributeDomain.generateFortranInterface(file); 
    … …  
    444452  file.close(); 
    445453 
     454  file.open((path+"redistribute_axis_interface_attr.F90").c_str()); 
     455  redistributeAxis.generateFortran2003Interface(file); 
     456  file.close(); 
     457 
     458  file.open((path+"icredistribute_axis_attr.cpp").c_str()); 
     459  redistributeAxis.generateCInterface(file); 
     460  file.close(); 
     461 
    446462  file.open((path+"iredistribute_axis_attr.F90").c_str()); 
    447463  redistributeAxis.generateFortranInterface(file); 
    … …  
    501517  file.close(); 
    502518 
     519  file.open((path+"redistribute_scalar_interface_attr.F90").c_str()); 
     520  redistributeScalar.generateFortran2003Interface(file); 
     521  file.close(); 
     522 
     523  file.open((path+"icredistribute_scalar_attr.cpp").c_str()); 
     524  redistributeScalar.generateCInterface(file); 
     525  file.close(); 
     526 
    503527  file.open((path+"iredistribute_scalar_attr.F90").c_str()); 
    504528  redistributeScalar.generateFortranInterface(file); 

  • XIOS3/trunk/src/interface/c_attr/icaxis_attr.cpp

    r1626 r2616  
    143143 
    144144 
     145  void cxios_set_axis_chunking_weight(axis_Ptr axis_hdl, double chunking_weight) 
     146  { 
     147    CTimer::get("XIOS").resume(); 
     148    axis_hdl->chunking_weight.setValue(chunking_weight); 
     149    CTimer::get("XIOS").suspend(); 
     150  } 
     151 
     152  void cxios_get_axis_chunking_weight(axis_Ptr axis_hdl, double* chunking_weight) 
     153  { 
     154    CTimer::get("XIOS").resume(); 
     155    *chunking_weight = axis_hdl->chunking_weight.getInheritedValue(); 
     156    CTimer::get("XIOS").suspend(); 
     157  } 
     158 
     159  bool cxios_is_defined_axis_chunking_weight(axis_Ptr axis_hdl) 
     160  { 
     161     CTimer::get("XIOS").resume(); 
     162     bool isDefined = axis_hdl->chunking_weight.hasInheritedValue(); 
     163     CTimer::get("XIOS").suspend(); 
     164     return isDefined; 
     165  } 
     166 
     167 
    145168  void cxios_set_axis_comment(axis_Ptr axis_hdl, const char * comment, int comment_size) 
    146169  { 

  • XIOS3/trunk/src/interface/c_attr/icaxisgroup_attr.cpp

    r1626 r2616  
    143143 
    144144 
     145  void cxios_set_axisgroup_chunking_weight(axisgroup_Ptr axisgroup_hdl, double chunking_weight) 
     146  { 
     147    CTimer::get("XIOS").resume(); 
     148    axisgroup_hdl->chunking_weight.setValue(chunking_weight); 
     149    CTimer::get("XIOS").suspend(); 
     150  } 
     151 
     152  void cxios_get_axisgroup_chunking_weight(axisgroup_Ptr axisgroup_hdl, double* chunking_weight) 
     153  { 
     154    CTimer::get("XIOS").resume(); 
     155    *chunking_weight = axisgroup_hdl->chunking_weight.getInheritedValue(); 
     156    CTimer::get("XIOS").suspend(); 
     157  } 
     158 
     159  bool cxios_is_defined_axisgroup_chunking_weight(axisgroup_Ptr axisgroup_hdl) 
     160  { 
     161     CTimer::get("XIOS").resume(); 
     162     bool isDefined = axisgroup_hdl->chunking_weight.hasInheritedValue(); 
     163     CTimer::get("XIOS").suspend(); 
     164     return isDefined; 
     165  } 
     166 
     167 
    145168  void cxios_set_axisgroup_comment(axisgroup_Ptr axisgroup_hdl, const char * comment, int comment_size) 
    146169  { 

  • XIOS3/trunk/src/interface/c_attr/iccontext_attr.cpp

    r1941 r2616  
    4040 
    4141 
     42  void cxios_set_context_default_gatherer(context_Ptr context_hdl, const char * default_gatherer, int default_gatherer_size) 
     43  { 
     44    std::string default_gatherer_str; 
     45    if (!cstr2string(default_gatherer, default_gatherer_size, default_gatherer_str)) return; 
     46    CTimer::get("XIOS").resume(); 
     47    context_hdl->default_gatherer.setValue(default_gatherer_str); 
     48    CTimer::get("XIOS").suspend(); 
     49  } 
     50 
     51  void cxios_get_context_default_gatherer(context_Ptr context_hdl, char * default_gatherer, int default_gatherer_size) 
     52  { 
     53    CTimer::get("XIOS").resume(); 
     54    if (!string_copy(context_hdl->default_gatherer.getInheritedValue(), default_gatherer, default_gatherer_size)) 
     55      ERROR("void cxios_get_context_default_gatherer(context_Ptr context_hdl, char * default_gatherer, int default_gatherer_size)", << "Input string is too short"); 
     56    CTimer::get("XIOS").suspend(); 
     57  } 
     58 
     59  bool cxios_is_defined_context_default_gatherer(context_Ptr context_hdl) 
     60  { 
     61     CTimer::get("XIOS").resume(); 
     62     bool isDefined = context_hdl->default_gatherer.hasInheritedValue(); 
     63     CTimer::get("XIOS").suspend(); 
     64     return isDefined; 
     65  } 
     66 
     67 
     68  void cxios_set_context_default_pool(context_Ptr context_hdl, const char * default_pool, int default_pool_size) 
     69  { 
     70    std::string default_pool_str; 
     71    if (!cstr2string(default_pool, default_pool_size, default_pool_str)) return; 
     72    CTimer::get("XIOS").resume(); 
     73    context_hdl->default_pool.setValue(default_pool_str); 
     74    CTimer::get("XIOS").suspend(); 
     75  } 
     76 
     77  void cxios_get_context_default_pool(context_Ptr context_hdl, char * default_pool, int default_pool_size) 
     78  { 
     79    CTimer::get("XIOS").resume(); 
     80    if (!string_copy(context_hdl->default_pool.getInheritedValue(), default_pool, default_pool_size)) 
     81      ERROR("void cxios_get_context_default_pool(context_Ptr context_hdl, char * default_pool, int default_pool_size)", << "Input string is too short"); 
     82    CTimer::get("XIOS").suspend(); 
     83  } 
     84 
     85  bool cxios_is_defined_context_default_pool(context_Ptr context_hdl) 
     86  { 
     87     CTimer::get("XIOS").resume(); 
     88     bool isDefined = context_hdl->default_pool.hasInheritedValue(); 
     89     CTimer::get("XIOS").suspend(); 
     90     return isDefined; 
     91  } 
     92 
     93 
     94  void cxios_set_context_default_pool_gatherer(context_Ptr context_hdl, const char * default_pool_gatherer, int default_pool_gatherer_size) 
     95  { 
     96    std::string default_pool_gatherer_str; 
     97    if (!cstr2string(default_pool_gatherer, default_pool_gatherer_size, default_pool_gatherer_str)) return; 
     98    CTimer::get("XIOS").resume(); 
     99    context_hdl->default_pool_gatherer.setValue(default_pool_gatherer_str); 
     100    CTimer::get("XIOS").suspend(); 
     101  } 
     102 
     103  void cxios_get_context_default_pool_gatherer(context_Ptr context_hdl, char * default_pool_gatherer, int default_pool_gatherer_size) 
     104  { 
     105    CTimer::get("XIOS").resume(); 
     106    if (!string_copy(context_hdl->default_pool_gatherer.getInheritedValue(), default_pool_gatherer, default_pool_gatherer_size)) 
     107      ERROR("void cxios_get_context_default_pool_gatherer(context_Ptr context_hdl, char * default_pool_gatherer, int default_pool_gatherer_size)", << "Input string is too short"); 
     108    CTimer::get("XIOS").suspend(); 
     109  } 
     110 
     111  bool cxios_is_defined_context_default_pool_gatherer(context_Ptr context_hdl) 
     112  { 
     113     CTimer::get("XIOS").resume(); 
     114     bool isDefined = context_hdl->default_pool_gatherer.hasInheritedValue(); 
     115     CTimer::get("XIOS").suspend(); 
     116     return isDefined; 
     117  } 
     118 
     119 
     120  void cxios_set_context_default_pool_reader(context_Ptr context_hdl, const char * default_pool_reader, int default_pool_reader_size) 
     121  { 
     122    std::string default_pool_reader_str; 
     123    if (!cstr2string(default_pool_reader, default_pool_reader_size, default_pool_reader_str)) return; 
     124    CTimer::get("XIOS").resume(); 
     125    context_hdl->default_pool_reader.setValue(default_pool_reader_str); 
     126    CTimer::get("XIOS").suspend(); 
     127  } 
     128 
     129  void cxios_get_context_default_pool_reader(context_Ptr context_hdl, char * default_pool_reader, int default_pool_reader_size) 
     130  { 
     131    CTimer::get("XIOS").resume(); 
     132    if (!string_copy(context_hdl->default_pool_reader.getInheritedValue(), default_pool_reader, default_pool_reader_size)) 
     133      ERROR("void cxios_get_context_default_pool_reader(context_Ptr context_hdl, char * default_pool_reader, int default_pool_reader_size)", << "Input string is too short"); 
     134    CTimer::get("XIOS").suspend(); 
     135  } 
     136 
     137  bool cxios_is_defined_context_default_pool_reader(context_Ptr context_hdl) 
     138  { 
     139     CTimer::get("XIOS").resume(); 
     140     bool isDefined = context_hdl->default_pool_reader.hasInheritedValue(); 
     141     CTimer::get("XIOS").suspend(); 
     142     return isDefined; 
     143  } 
     144 
     145 
     146  void cxios_set_context_default_pool_writer(context_Ptr context_hdl, const char * default_pool_writer, int default_pool_writer_size) 
     147  { 
     148    std::string default_pool_writer_str; 
     149    if (!cstr2string(default_pool_writer, default_pool_writer_size, default_pool_writer_str)) return; 
     150    CTimer::get("XIOS").resume(); 
     151    context_hdl->default_pool_writer.setValue(default_pool_writer_str); 
     152    CTimer::get("XIOS").suspend(); 
     153  } 
     154 
     155  void cxios_get_context_default_pool_writer(context_Ptr context_hdl, char * default_pool_writer, int default_pool_writer_size) 
     156  { 
     157    CTimer::get("XIOS").resume(); 
     158    if (!string_copy(context_hdl->default_pool_writer.getInheritedValue(), default_pool_writer, default_pool_writer_size)) 
     159      ERROR("void cxios_get_context_default_pool_writer(context_Ptr context_hdl, char * default_pool_writer, int default_pool_writer_size)", << "Input string is too short"); 
     160    CTimer::get("XIOS").suspend(); 
     161  } 
     162 
     163  bool cxios_is_defined_context_default_pool_writer(context_Ptr context_hdl) 
     164  { 
     165     CTimer::get("XIOS").resume(); 
     166     bool isDefined = context_hdl->default_pool_writer.hasInheritedValue(); 
     167     CTimer::get("XIOS").suspend(); 
     168     return isDefined; 
     169  } 
     170 
     171 
     172  void cxios_set_context_default_reader(context_Ptr context_hdl, const char * default_reader, int default_reader_size) 
     173  { 
     174    std::string default_reader_str; 
     175    if (!cstr2string(default_reader, default_reader_size, default_reader_str)) return; 
     176    CTimer::get("XIOS").resume(); 
     177    context_hdl->default_reader.setValue(default_reader_str); 
     178    CTimer::get("XIOS").suspend(); 
     179  } 
     180 
     181  void cxios_get_context_default_reader(context_Ptr context_hdl, char * default_reader, int default_reader_size) 
     182  { 
     183    CTimer::get("XIOS").resume(); 
     184    if (!string_copy(context_hdl->default_reader.getInheritedValue(), default_reader, default_reader_size)) 
     185      ERROR("void cxios_get_context_default_reader(context_Ptr context_hdl, char * default_reader, int default_reader_size)", << "Input string is too short"); 
     186    CTimer::get("XIOS").suspend(); 
     187  } 
     188 
     189  bool cxios_is_defined_context_default_reader(context_Ptr context_hdl) 
     190  { 
     191     CTimer::get("XIOS").resume(); 
     192     bool isDefined = context_hdl->default_reader.hasInheritedValue(); 
     193     CTimer::get("XIOS").suspend(); 
     194     return isDefined; 
     195  } 
     196 
     197 
     198  void cxios_set_context_default_using_server2(context_Ptr context_hdl, bool default_using_server2) 
     199  { 
     200    CTimer::get("XIOS").resume(); 
     201    context_hdl->default_using_server2.setValue(default_using_server2); 
     202    CTimer::get("XIOS").suspend(); 
     203  } 
     204 
     205  void cxios_get_context_default_using_server2(context_Ptr context_hdl, bool* default_using_server2) 
     206  { 
     207    CTimer::get("XIOS").resume(); 
     208    *default_using_server2 = context_hdl->default_using_server2.getInheritedValue(); 
     209    CTimer::get("XIOS").suspend(); 
     210  } 
     211 
     212  bool cxios_is_defined_context_default_using_server2(context_Ptr context_hdl) 
     213  { 
     214     CTimer::get("XIOS").resume(); 
     215     bool isDefined = context_hdl->default_using_server2.hasInheritedValue(); 
     216     CTimer::get("XIOS").suspend(); 
     217     return isDefined; 
     218  } 
     219 
     220 
     221  void cxios_set_context_default_writer(context_Ptr context_hdl, const char * default_writer, int default_writer_size) 
     222  { 
     223    std::string default_writer_str; 
     224    if (!cstr2string(default_writer, default_writer_size, default_writer_str)) return; 
     225    CTimer::get("XIOS").resume(); 
     226    context_hdl->default_writer.setValue(default_writer_str); 
     227    CTimer::get("XIOS").suspend(); 
     228  } 
     229 
     230  void cxios_get_context_default_writer(context_Ptr context_hdl, char * default_writer, int default_writer_size) 
     231  { 
     232    CTimer::get("XIOS").resume(); 
     233    if (!string_copy(context_hdl->default_writer.getInheritedValue(), default_writer, default_writer_size)) 
     234      ERROR("void cxios_get_context_default_writer(context_Ptr context_hdl, char * default_writer, int default_writer_size)", << "Input string is too short"); 
     235    CTimer::get("XIOS").suspend(); 
     236  } 
     237 
     238  bool cxios_is_defined_context_default_writer(context_Ptr context_hdl) 
     239  { 
     240     CTimer::get("XIOS").resume(); 
     241     bool isDefined = context_hdl->default_writer.hasInheritedValue(); 
     242     CTimer::get("XIOS").suspend(); 
     243     return isDefined; 
     244  } 
     245 
     246 
    42247  void cxios_set_context_output_dir(context_Ptr context_hdl, const char * output_dir, int output_dir_size) 
    43248  { 

  • XIOS3/trunk/src/interface/c_attr/icdomain_attr.cpp

    r1626 r2616  
    4242 
    4343 
     44  void cxios_set_domain_area_1d(domain_Ptr domain_hdl, double* area_1d, int* extent) 
     45  { 
     46    CTimer::get("XIOS").resume(); 
     47    CArray<double,1> tmp(area_1d, shape(extent[0]), neverDeleteData); 
     48    domain_hdl->area_1d.reference(tmp.copy()); 
     49     CTimer::get("XIOS").suspend(); 
     50  } 
     51 
     52  void cxios_get_domain_area_1d(domain_Ptr domain_hdl, double* area_1d, int* extent) 
     53  { 
     54    CTimer::get("XIOS").resume(); 
     55    CArray<double,1> tmp(area_1d, shape(extent[0]), neverDeleteData); 
     56    tmp=domain_hdl->area_1d.getInheritedValue(); 
     57     CTimer::get("XIOS").suspend(); 
     58  } 
     59 
     60  bool cxios_is_defined_domain_area_1d(domain_Ptr domain_hdl) 
     61  { 
     62     CTimer::get("XIOS").resume(); 
     63     bool isDefined = domain_hdl->area_1d.hasInheritedValue(); 
     64     CTimer::get("XIOS").suspend(); 
     65     return isDefined; 
     66  } 
     67 
     68 
     69  void cxios_set_domain_area_2d(domain_Ptr domain_hdl, double* area_2d, int* extent) 
     70  { 
     71    CTimer::get("XIOS").resume(); 
     72    CArray<double,2> tmp(area_2d, shape(extent[0], extent[1]), neverDeleteData); 
     73    domain_hdl->area_2d.reference(tmp.copy()); 
     74     CTimer::get("XIOS").suspend(); 
     75  } 
     76 
     77  void cxios_get_domain_area_2d(domain_Ptr domain_hdl, double* area_2d, int* extent) 
     78  { 
     79    CTimer::get("XIOS").resume(); 
     80    CArray<double,2> tmp(area_2d, shape(extent[0], extent[1]), neverDeleteData); 
     81    tmp=domain_hdl->area_2d.getInheritedValue(); 
     82     CTimer::get("XIOS").suspend(); 
     83  } 
     84 
     85  bool cxios_is_defined_domain_area_2d(domain_Ptr domain_hdl) 
     86  { 
     87     CTimer::get("XIOS").resume(); 
     88     bool isDefined = domain_hdl->area_2d.hasInheritedValue(); 
     89     CTimer::get("XIOS").suspend(); 
     90     return isDefined; 
     91  } 
     92 
     93 
    4494  void cxios_set_domain_bounds_lat_1d(domain_Ptr domain_hdl, double* bounds_lat_1d, int* extent) 
    4595  { 
    … …  
    194244 
    195245 
     246  void cxios_set_domain_chunking_weight_i(domain_Ptr domain_hdl, double chunking_weight_i) 
     247  { 
     248    CTimer::get("XIOS").resume(); 
     249    domain_hdl->chunking_weight_i.setValue(chunking_weight_i); 
     250    CTimer::get("XIOS").suspend(); 
     251  } 
     252 
     253  void cxios_get_domain_chunking_weight_i(domain_Ptr domain_hdl, double* chunking_weight_i) 
     254  { 
     255    CTimer::get("XIOS").resume(); 
     256    *chunking_weight_i = domain_hdl->chunking_weight_i.getInheritedValue(); 
     257    CTimer::get("XIOS").suspend(); 
     258  } 
     259 
     260  bool cxios_is_defined_domain_chunking_weight_i(domain_Ptr domain_hdl) 
     261  { 
     262     CTimer::get("XIOS").resume(); 
     263     bool isDefined = domain_hdl->chunking_weight_i.hasInheritedValue(); 
     264     CTimer::get("XIOS").suspend(); 
     265     return isDefined; 
     266  } 
     267 
     268 
     269  void cxios_set_domain_chunking_weight_j(domain_Ptr domain_hdl, double chunking_weight_j) 
     270  { 
     271    CTimer::get("XIOS").resume(); 
     272    domain_hdl->chunking_weight_j.setValue(chunking_weight_j); 
     273    CTimer::get("XIOS").suspend(); 
     274  } 
     275 
     276  void cxios_get_domain_chunking_weight_j(domain_Ptr domain_hdl, double* chunking_weight_j) 
     277  { 
     278    CTimer::get("XIOS").resume(); 
     279    *chunking_weight_j = domain_hdl->chunking_weight_j.getInheritedValue(); 
     280    CTimer::get("XIOS").suspend(); 
     281  } 
     282 
     283  bool cxios_is_defined_domain_chunking_weight_j(domain_Ptr domain_hdl) 
     284  { 
     285     CTimer::get("XIOS").resume(); 
     286     bool isDefined = domain_hdl->chunking_weight_j.hasInheritedValue(); 
     287     CTimer::get("XIOS").suspend(); 
     288     return isDefined; 
     289  } 
     290 
     291 
    196292  void cxios_set_domain_comment(domain_Ptr domain_hdl, const char * comment, int comment_size) 
    197293  { 
    … …  
    9281024 
    9291025 
     1026  void cxios_set_domain_nvertex_name(domain_Ptr domain_hdl, const char * nvertex_name, int nvertex_name_size) 
     1027  { 
     1028    std::string nvertex_name_str; 
     1029    if (!cstr2string(nvertex_name, nvertex_name_size, nvertex_name_str)) return; 
     1030    CTimer::get("XIOS").resume(); 
     1031    domain_hdl->nvertex_name.setValue(nvertex_name_str); 
     1032    CTimer::get("XIOS").suspend(); 
     1033  } 
     1034 
     1035  void cxios_get_domain_nvertex_name(domain_Ptr domain_hdl, char * nvertex_name, int nvertex_name_size) 
     1036  { 
     1037    CTimer::get("XIOS").resume(); 
     1038    if (!string_copy(domain_hdl->nvertex_name.getInheritedValue(), nvertex_name, nvertex_name_size)) 
     1039      ERROR("void cxios_get_domain_nvertex_name(domain_Ptr domain_hdl, char * nvertex_name, int nvertex_name_size)", << "Input string is too short"); 
     1040    CTimer::get("XIOS").suspend(); 
     1041  } 
     1042 
     1043  bool cxios_is_defined_domain_nvertex_name(domain_Ptr domain_hdl) 
     1044  { 
     1045     CTimer::get("XIOS").resume(); 
     1046     bool isDefined = domain_hdl->nvertex_name.hasInheritedValue(); 
     1047     CTimer::get("XIOS").suspend(); 
     1048     return isDefined; 
     1049  } 
     1050 
     1051 
    9301052  void cxios_set_domain_prec(domain_Ptr domain_hdl, int prec) 
    9311053  { 

  • XIOS3/trunk/src/interface/c_attr/icdomaingroup_attr.cpp

    r1626 r2616  
    4242 
    4343 
     44  void cxios_set_domaingroup_area_1d(domaingroup_Ptr domaingroup_hdl, double* area_1d, int* extent) 
     45  { 
     46    CTimer::get("XIOS").resume(); 
     47    CArray<double,1> tmp(area_1d, shape(extent[0]), neverDeleteData); 
     48    domaingroup_hdl->area_1d.reference(tmp.copy()); 
     49     CTimer::get("XIOS").suspend(); 
     50  } 
     51 
     52  void cxios_get_domaingroup_area_1d(domaingroup_Ptr domaingroup_hdl, double* area_1d, int* extent) 
     53  { 
     54    CTimer::get("XIOS").resume(); 
     55    CArray<double,1> tmp(area_1d, shape(extent[0]), neverDeleteData); 
     56    tmp=domaingroup_hdl->area_1d.getInheritedValue(); 
     57     CTimer::get("XIOS").suspend(); 
     58  } 
     59 
     60  bool cxios_is_defined_domaingroup_area_1d(domaingroup_Ptr domaingroup_hdl) 
     61  { 
     62     CTimer::get("XIOS").resume(); 
     63     bool isDefined = domaingroup_hdl->area_1d.hasInheritedValue(); 
     64     CTimer::get("XIOS").suspend(); 
     65     return isDefined; 
     66  } 
     67 
     68 
     69  void cxios_set_domaingroup_area_2d(domaingroup_Ptr domaingroup_hdl, double* area_2d, int* extent) 
     70  { 
     71    CTimer::get("XIOS").resume(); 
     72    CArray<double,2> tmp(area_2d, shape(extent[0], extent[1]), neverDeleteData); 
     73    domaingroup_hdl->area_2d.reference(tmp.copy()); 
     74     CTimer::get("XIOS").suspend(); 
     75  } 
     76 
     77  void cxios_get_domaingroup_area_2d(domaingroup_Ptr domaingroup_hdl, double* area_2d, int* extent) 
     78  { 
     79    CTimer::get("XIOS").resume(); 
     80    CArray<double,2> tmp(area_2d, shape(extent[0], extent[1]), neverDeleteData); 
     81    tmp=domaingroup_hdl->area_2d.getInheritedValue(); 
     82     CTimer::get("XIOS").suspend(); 
     83  } 
     84 
     85  bool cxios_is_defined_domaingroup_area_2d(domaingroup_Ptr domaingroup_hdl) 
     86  { 
     87     CTimer::get("XIOS").resume(); 
     88     bool isDefined = domaingroup_hdl->area_2d.hasInheritedValue(); 
     89     CTimer::get("XIOS").suspend(); 
     90     return isDefined; 
     91  } 
     92 
     93 
    4494  void cxios_set_domaingroup_bounds_lat_1d(domaingroup_Ptr domaingroup_hdl, double* bounds_lat_1d, int* extent) 
    4595  { 
    … …  
    194244 
    195245 
     246  void cxios_set_domaingroup_chunking_weight_i(domaingroup_Ptr domaingroup_hdl, double chunking_weight_i) 
     247  { 
     248    CTimer::get("XIOS").resume(); 
     249    domaingroup_hdl->chunking_weight_i.setValue(chunking_weight_i); 
     250    CTimer::get("XIOS").suspend(); 
     251  } 
     252 
     253  void cxios_get_domaingroup_chunking_weight_i(domaingroup_Ptr domaingroup_hdl, double* chunking_weight_i) 
     254  { 
     255    CTimer::get("XIOS").resume(); 
     256    *chunking_weight_i = domaingroup_hdl->chunking_weight_i.getInheritedValue(); 
     257    CTimer::get("XIOS").suspend(); 
     258  } 
     259 
     260  bool cxios_is_defined_domaingroup_chunking_weight_i(domaingroup_Ptr domaingroup_hdl) 
     261  { 
     262     CTimer::get("XIOS").resume(); 
     263     bool isDefined = domaingroup_hdl->chunking_weight_i.hasInheritedValue(); 
     264     CTimer::get("XIOS").suspend(); 
     265     return isDefined; 
     266  } 
     267 
     268 
     269  void cxios_set_domaingroup_chunking_weight_j(domaingroup_Ptr domaingroup_hdl, double chunking_weight_j) 
     270  { 
     271    CTimer::get("XIOS").resume(); 
     272    domaingroup_hdl->chunking_weight_j.setValue(chunking_weight_j); 
     273    CTimer::get("XIOS").suspend(); 
     274  } 
     275 
     276  void cxios_get_domaingroup_chunking_weight_j(domaingroup_Ptr domaingroup_hdl, double* chunking_weight_j) 
     277  { 
     278    CTimer::get("XIOS").resume(); 
     279    *chunking_weight_j = domaingroup_hdl->chunking_weight_j.getInheritedValue(); 
     280    CTimer::get("XIOS").suspend(); 
     281  } 
     282 
     283  bool cxios_is_defined_domaingroup_chunking_weight_j(domaingroup_Ptr domaingroup_hdl) 
     284  { 
     285     CTimer::get("XIOS").resume(); 
     286     bool isDefined = domaingroup_hdl->chunking_weight_j.hasInheritedValue(); 
     287     CTimer::get("XIOS").suspend(); 
     288     return isDefined; 
     289  } 
     290 
     291 
    196292  void cxios_set_domaingroup_comment(domaingroup_Ptr domaingroup_hdl, const char * comment, int comment_size) 
    197293  { 
    … …  
    9541050 
    9551051 
     1052  void cxios_set_domaingroup_nvertex_name(domaingroup_Ptr domaingroup_hdl, const char * nvertex_name, int nvertex_name_size) 
     1053  { 
     1054    std::string nvertex_name_str; 
     1055    if (!cstr2string(nvertex_name, nvertex_name_size, nvertex_name_str)) return; 
     1056    CTimer::get("XIOS").resume(); 
     1057    domaingroup_hdl->nvertex_name.setValue(nvertex_name_str); 
     1058    CTimer::get("XIOS").suspend(); 
     1059  } 
     1060 
     1061  void cxios_get_domaingroup_nvertex_name(domaingroup_Ptr domaingroup_hdl, char * nvertex_name, int nvertex_name_size) 
     1062  { 
     1063    CTimer::get("XIOS").resume(); 
     1064    if (!string_copy(domaingroup_hdl->nvertex_name.getInheritedValue(), nvertex_name, nvertex_name_size)) 
     1065      ERROR("void cxios_get_domaingroup_nvertex_name(domaingroup_Ptr domaingroup_hdl, char * nvertex_name, int nvertex_name_size)", << "Input string is too short"); 
     1066    CTimer::get("XIOS").suspend(); 
     1067  } 
     1068 
     1069  bool cxios_is_defined_domaingroup_nvertex_name(domaingroup_Ptr domaingroup_hdl) 
     1070  { 
     1071     CTimer::get("XIOS").resume(); 
     1072     bool isDefined = domaingroup_hdl->nvertex_name.hasInheritedValue(); 
     1073     CTimer::get("XIOS").suspend(); 
     1074     return isDefined; 
     1075  } 
     1076 
     1077 
    9561078  void cxios_set_domaingroup_prec(domaingroup_Ptr domaingroup_hdl, int prec) 
    9571079  { 

  • XIOS3/trunk/src/interface/c_attr/icfield_attr.cpp

    r2338 r2616  
    164164 
    165165 
     166  void cxios_set_field_chunking_blocksize_target(field_Ptr field_hdl, double chunking_blocksize_target) 
     167  { 
     168    CTimer::get("XIOS").resume(); 
     169    field_hdl->chunking_blocksize_target.setValue(chunking_blocksize_target); 
     170    CTimer::get("XIOS").suspend(); 
     171  } 
     172 
     173  void cxios_get_field_chunking_blocksize_target(field_Ptr field_hdl, double* chunking_blocksize_target) 
     174  { 
     175    CTimer::get("XIOS").resume(); 
     176    *chunking_blocksize_target = field_hdl->chunking_blocksize_target.getInheritedValue(); 
     177    CTimer::get("XIOS").suspend(); 
     178  } 
     179 
     180  bool cxios_is_defined_field_chunking_blocksize_target(field_Ptr field_hdl) 
     181  { 
     182     CTimer::get("XIOS").resume(); 
     183     bool isDefined = field_hdl->chunking_blocksize_target.hasInheritedValue(); 
     184     CTimer::get("XIOS").suspend(); 
     185     return isDefined; 
     186  } 
     187 
     188 
    166189  void cxios_set_field_comment(field_Ptr field_hdl, const char * comment, int comment_size) 
    167190  { 
    … …  
    208231     CTimer::get("XIOS").resume(); 
    209232     bool isDefined = field_hdl->compression_level.hasInheritedValue(); 
     233     CTimer::get("XIOS").suspend(); 
     234     return isDefined; 
     235  } 
     236 
     237 
     238  void cxios_set_field_compression_params(field_Ptr field_hdl, double* compression_params, int* extent) 
     239  { 
     240    CTimer::get("XIOS").resume(); 
     241    CArray<double,1> tmp(compression_params, shape(extent[0]), neverDeleteData); 
     242    field_hdl->compression_params.reference(tmp.copy()); 
     243     CTimer::get("XIOS").suspend(); 
     244  } 
     245 
     246  void cxios_get_field_compression_params(field_Ptr field_hdl, double* compression_params, int* extent) 
     247  { 
     248    CTimer::get("XIOS").resume(); 
     249    CArray<double,1> tmp(compression_params, shape(extent[0]), neverDeleteData); 
     250    tmp=field_hdl->compression_params.getInheritedValue(); 
     251     CTimer::get("XIOS").suspend(); 
     252  } 
     253 
     254  bool cxios_is_defined_field_compression_params(field_Ptr field_hdl) 
     255  { 
     256     CTimer::get("XIOS").resume(); 
     257     bool isDefined = field_hdl->compression_params.hasInheritedValue(); 
     258     CTimer::get("XIOS").suspend(); 
     259     return isDefined; 
     260  } 
     261 
     262 
     263  void cxios_set_field_compression_type(field_Ptr field_hdl, const char * compression_type, int compression_type_size) 
     264  { 
     265    std::string compression_type_str; 
     266    if (!cstr2string(compression_type, compression_type_size, compression_type_str)) return; 
     267    CTimer::get("XIOS").resume(); 
     268    field_hdl->compression_type.setValue(compression_type_str); 
     269    CTimer::get("XIOS").suspend(); 
     270  } 
     271 
     272  void cxios_get_field_compression_type(field_Ptr field_hdl, char * compression_type, int compression_type_size) 
     273  { 
     274    CTimer::get("XIOS").resume(); 
     275    if (!string_copy(field_hdl->compression_type.getInheritedValue(), compression_type, compression_type_size)) 
     276      ERROR("void cxios_get_field_compression_type(field_Ptr field_hdl, char * compression_type, int compression_type_size)", << "Input string is too short"); 
     277    CTimer::get("XIOS").suspend(); 
     278  } 
     279 
     280  bool cxios_is_defined_field_compression_type(field_Ptr field_hdl) 
     281  { 
     282     CTimer::get("XIOS").resume(); 
     283     bool isDefined = field_hdl->compression_type.hasInheritedValue(); 
     284     CTimer::get("XIOS").suspend(); 
     285     return isDefined; 
     286  } 
     287 
     288 
     289  void cxios_set_field_conversion_by_NetCDF(field_Ptr field_hdl, bool conversion_by_NetCDF) 
     290  { 
     291    CTimer::get("XIOS").resume(); 
     292    field_hdl->conversion_by_NetCDF.setValue(conversion_by_NetCDF); 
     293    CTimer::get("XIOS").suspend(); 
     294  } 
     295 
     296  void cxios_get_field_conversion_by_NetCDF(field_Ptr field_hdl, bool* conversion_by_NetCDF) 
     297  { 
     298    CTimer::get("XIOS").resume(); 
     299    *conversion_by_NetCDF = field_hdl->conversion_by_NetCDF.getInheritedValue(); 
     300    CTimer::get("XIOS").suspend(); 
     301  } 
     302 
     303  bool cxios_is_defined_field_conversion_by_NetCDF(field_Ptr field_hdl) 
     304  { 
     305     CTimer::get("XIOS").resume(); 
     306     bool isDefined = field_hdl->conversion_by_NetCDF.hasInheritedValue(); 
    210307     CTimer::get("XIOS").suspend(); 
    211308     return isDefined; 

  • XIOS3/trunk/src/interface/c_attr/icfieldgroup_attr.cpp

    r2338 r2616  
    164164 
    165165 
     166  void cxios_set_fieldgroup_chunking_blocksize_target(fieldgroup_Ptr fieldgroup_hdl, double chunking_blocksize_target) 
     167  { 
     168    CTimer::get("XIOS").resume(); 
     169    fieldgroup_hdl->chunking_blocksize_target.setValue(chunking_blocksize_target); 
     170    CTimer::get("XIOS").suspend(); 
     171  } 
     172 
     173  void cxios_get_fieldgroup_chunking_blocksize_target(fieldgroup_Ptr fieldgroup_hdl, double* chunking_blocksize_target) 
     174  { 
     175    CTimer::get("XIOS").resume(); 
     176    *chunking_blocksize_target = fieldgroup_hdl->chunking_blocksize_target.getInheritedValue(); 
     177    CTimer::get("XIOS").suspend(); 
     178  } 
     179 
     180  bool cxios_is_defined_fieldgroup_chunking_blocksize_target(fieldgroup_Ptr fieldgroup_hdl) 
     181  { 
     182     CTimer::get("XIOS").resume(); 
     183     bool isDefined = fieldgroup_hdl->chunking_blocksize_target.hasInheritedValue(); 
     184     CTimer::get("XIOS").suspend(); 
     185     return isDefined; 
     186  } 
     187 
     188 
    166189  void cxios_set_fieldgroup_comment(fieldgroup_Ptr fieldgroup_hdl, const char * comment, int comment_size) 
    167190  { 
    … …  
    208231     CTimer::get("XIOS").resume(); 
    209232     bool isDefined = fieldgroup_hdl->compression_level.hasInheritedValue(); 
     233     CTimer::get("XIOS").suspend(); 
     234     return isDefined; 
     235  } 
     236 
     237 
     238  void cxios_set_fieldgroup_compression_params(fieldgroup_Ptr fieldgroup_hdl, double* compression_params, int* extent) 
     239  { 
     240    CTimer::get("XIOS").resume(); 
     241    CArray<double,1> tmp(compression_params, shape(extent[0]), neverDeleteData); 
     242    fieldgroup_hdl->compression_params.reference(tmp.copy()); 
     243     CTimer::get("XIOS").suspend(); 
     244  } 
     245 
     246  void cxios_get_fieldgroup_compression_params(fieldgroup_Ptr fieldgroup_hdl, double* compression_params, int* extent) 
     247  { 
     248    CTimer::get("XIOS").resume(); 
     249    CArray<double,1> tmp(compression_params, shape(extent[0]), neverDeleteData); 
     250    tmp=fieldgroup_hdl->compression_params.getInheritedValue(); 
     251     CTimer::get("XIOS").suspend(); 
     252  } 
     253 
     254  bool cxios_is_defined_fieldgroup_compression_params(fieldgroup_Ptr fieldgroup_hdl) 
     255  { 
     256     CTimer::get("XIOS").resume(); 
     257     bool isDefined = fieldgroup_hdl->compression_params.hasInheritedValue(); 
     258     CTimer::get("XIOS").suspend(); 
     259     return isDefined; 
     260  } 
     261 
     262 
     263  void cxios_set_fieldgroup_compression_type(fieldgroup_Ptr fieldgroup_hdl, const char * compression_type, int compression_type_size) 
     264  { 
     265    std::string compression_type_str; 
     266    if (!cstr2string(compression_type, compression_type_size, compression_type_str)) return; 
     267    CTimer::get("XIOS").resume(); 
     268    fieldgroup_hdl->compression_type.setValue(compression_type_str); 
     269    CTimer::get("XIOS").suspend(); 
     270  } 
     271 
     272  void cxios_get_fieldgroup_compression_type(fieldgroup_Ptr fieldgroup_hdl, char * compression_type, int compression_type_size) 
     273  { 
     274    CTimer::get("XIOS").resume(); 
     275    if (!string_copy(fieldgroup_hdl->compression_type.getInheritedValue(), compression_type, compression_type_size)) 
     276      ERROR("void cxios_get_fieldgroup_compression_type(fieldgroup_Ptr fieldgroup_hdl, char * compression_type, int compression_type_size)", << "Input string is too short"); 
     277    CTimer::get("XIOS").suspend(); 
     278  } 
     279 
     280  bool cxios_is_defined_fieldgroup_compression_type(fieldgroup_Ptr fieldgroup_hdl) 
     281  { 
     282     CTimer::get("XIOS").resume(); 
     283     bool isDefined = fieldgroup_hdl->compression_type.hasInheritedValue(); 
     284     CTimer::get("XIOS").suspend(); 
     285     return isDefined; 
     286  } 
     287 
     288 
     289  void cxios_set_fieldgroup_conversion_by_NetCDF(fieldgroup_Ptr fieldgroup_hdl, bool conversion_by_NetCDF) 
     290  { 
     291    CTimer::get("XIOS").resume(); 
     292    fieldgroup_hdl->conversion_by_NetCDF.setValue(conversion_by_NetCDF); 
     293    CTimer::get("XIOS").suspend(); 
     294  } 
     295 
     296  void cxios_get_fieldgroup_conversion_by_NetCDF(fieldgroup_Ptr fieldgroup_hdl, bool* conversion_by_NetCDF) 
     297  { 
     298    CTimer::get("XIOS").resume(); 
     299    *conversion_by_NetCDF = fieldgroup_hdl->conversion_by_NetCDF.getInheritedValue(); 
     300    CTimer::get("XIOS").suspend(); 
     301  } 
     302 
     303  bool cxios_is_defined_fieldgroup_conversion_by_NetCDF(fieldgroup_Ptr fieldgroup_hdl) 
     304  { 
     305     CTimer::get("XIOS").resume(); 
     306     bool isDefined = fieldgroup_hdl->conversion_by_NetCDF.hasInheritedValue(); 
    210307     CTimer::get("XIOS").suspend(); 
    211308     return isDefined; 

  • XIOS3/trunk/src/interface/c_attr/icfile_attr.cpp

    r1626 r2616  
    239239 
    240240 
     241  void cxios_set_file_gatherer(file_Ptr file_hdl, const char * gatherer, int gatherer_size) 
     242  { 
     243    std::string gatherer_str; 
     244    if (!cstr2string(gatherer, gatherer_size, gatherer_str)) return; 
     245    CTimer::get("XIOS").resume(); 
     246    file_hdl->gatherer.setValue(gatherer_str); 
     247    CTimer::get("XIOS").suspend(); 
     248  } 
     249 
     250  void cxios_get_file_gatherer(file_Ptr file_hdl, char * gatherer, int gatherer_size) 
     251  { 
     252    CTimer::get("XIOS").resume(); 
     253    if (!string_copy(file_hdl->gatherer.getInheritedValue(), gatherer, gatherer_size)) 
     254      ERROR("void cxios_get_file_gatherer(file_Ptr file_hdl, char * gatherer, int gatherer_size)", << "Input string is too short"); 
     255    CTimer::get("XIOS").suspend(); 
     256  } 
     257 
     258  bool cxios_is_defined_file_gatherer(file_Ptr file_hdl) 
     259  { 
     260     CTimer::get("XIOS").resume(); 
     261     bool isDefined = file_hdl->gatherer.hasInheritedValue(); 
     262     CTimer::get("XIOS").suspend(); 
     263     return isDefined; 
     264  } 
     265 
     266 
    241267  void cxios_set_file_min_digits(file_Ptr file_hdl, int min_digits) 
    242268  { 
    … …  
    427453 
    428454 
     455  void cxios_set_file_pool_gatherer(file_Ptr file_hdl, const char * pool_gatherer, int pool_gatherer_size) 
     456  { 
     457    std::string pool_gatherer_str; 
     458    if (!cstr2string(pool_gatherer, pool_gatherer_size, pool_gatherer_str)) return; 
     459    CTimer::get("XIOS").resume(); 
     460    file_hdl->pool_gatherer.setValue(pool_gatherer_str); 
     461    CTimer::get("XIOS").suspend(); 
     462  } 
     463 
     464  void cxios_get_file_pool_gatherer(file_Ptr file_hdl, char * pool_gatherer, int pool_gatherer_size) 
     465  { 
     466    CTimer::get("XIOS").resume(); 
     467    if (!string_copy(file_hdl->pool_gatherer.getInheritedValue(), pool_gatherer, pool_gatherer_size)) 
     468      ERROR("void cxios_get_file_pool_gatherer(file_Ptr file_hdl, char * pool_gatherer, int pool_gatherer_size)", << "Input string is too short"); 
     469    CTimer::get("XIOS").suspend(); 
     470  } 
     471 
     472  bool cxios_is_defined_file_pool_gatherer(file_Ptr file_hdl) 
     473  { 
     474     CTimer::get("XIOS").resume(); 
     475     bool isDefined = file_hdl->pool_gatherer.hasInheritedValue(); 
     476     CTimer::get("XIOS").suspend(); 
     477     return isDefined; 
     478  } 
     479 
     480 
     481  void cxios_set_file_pool_reader(file_Ptr file_hdl, const char * pool_reader, int pool_reader_size) 
     482  { 
     483    std::string pool_reader_str; 
     484    if (!cstr2string(pool_reader, pool_reader_size, pool_reader_str)) return; 
     485    CTimer::get("XIOS").resume(); 
     486    file_hdl->pool_reader.setValue(pool_reader_str); 
     487    CTimer::get("XIOS").suspend(); 
     488  } 
     489 
     490  void cxios_get_file_pool_reader(file_Ptr file_hdl, char * pool_reader, int pool_reader_size) 
     491  { 
     492    CTimer::get("XIOS").resume(); 
     493    if (!string_copy(file_hdl->pool_reader.getInheritedValue(), pool_reader, pool_reader_size)) 
     494      ERROR("void cxios_get_file_pool_reader(file_Ptr file_hdl, char * pool_reader, int pool_reader_size)", << "Input string is too short"); 
     495    CTimer::get("XIOS").suspend(); 
     496  } 
     497 
     498  bool cxios_is_defined_file_pool_reader(file_Ptr file_hdl) 
     499  { 
     500     CTimer::get("XIOS").resume(); 
     501     bool isDefined = file_hdl->pool_reader.hasInheritedValue(); 
     502     CTimer::get("XIOS").suspend(); 
     503     return isDefined; 
     504  } 
     505 
     506 
     507  void cxios_set_file_pool_writer(file_Ptr file_hdl, const char * pool_writer, int pool_writer_size) 
     508  { 
     509    std::string pool_writer_str; 
     510    if (!cstr2string(pool_writer, pool_writer_size, pool_writer_str)) return; 
     511    CTimer::get("XIOS").resume(); 
     512    file_hdl->pool_writer.setValue(pool_writer_str); 
     513    CTimer::get("XIOS").suspend(); 
     514  } 
     515 
     516  void cxios_get_file_pool_writer(file_Ptr file_hdl, char * pool_writer, int pool_writer_size) 
     517  { 
     518    CTimer::get("XIOS").resume(); 
     519    if (!string_copy(file_hdl->pool_writer.getInheritedValue(), pool_writer, pool_writer_size)) 
     520      ERROR("void cxios_get_file_pool_writer(file_Ptr file_hdl, char * pool_writer, int pool_writer_size)", << "Input string is too short"); 
     521    CTimer::get("XIOS").suspend(); 
     522  } 
     523 
     524  bool cxios_is_defined_file_pool_writer(file_Ptr file_hdl) 
     525  { 
     526     CTimer::get("XIOS").resume(); 
     527     bool isDefined = file_hdl->pool_writer.hasInheritedValue(); 
     528     CTimer::get("XIOS").suspend(); 
     529     return isDefined; 
     530  } 
     531 
     532 
    429533  void cxios_set_file_read_metadata_par(file_Ptr file_hdl, bool read_metadata_par) 
    430534  { 
    … …  
    445549     CTimer::get("XIOS").resume(); 
    446550     bool isDefined = file_hdl->read_metadata_par.hasInheritedValue(); 
     551     CTimer::get("XIOS").suspend(); 
     552     return isDefined; 
     553  } 
     554 
     555 
     556  void cxios_set_file_reader(file_Ptr file_hdl, const char * reader, int reader_size) 
     557  { 
     558    std::string reader_str; 
     559    if (!cstr2string(reader, reader_size, reader_str)) return; 
     560    CTimer::get("XIOS").resume(); 
     561    file_hdl->reader.setValue(reader_str); 
     562    CTimer::get("XIOS").suspend(); 
     563  } 
     564 
     565  void cxios_get_file_reader(file_Ptr file_hdl, char * reader, int reader_size) 
     566  { 
     567    CTimer::get("XIOS").resume(); 
     568    if (!string_copy(file_hdl->reader.getInheritedValue(), reader, reader_size)) 
     569      ERROR("void cxios_get_file_reader(file_Ptr file_hdl, char * reader, int reader_size)", << "Input string is too short"); 
     570    CTimer::get("XIOS").suspend(); 
     571  } 
     572 
     573  bool cxios_is_defined_file_reader(file_Ptr file_hdl) 
     574  { 
     575     CTimer::get("XIOS").resume(); 
     576     bool isDefined = file_hdl->reader.hasInheritedValue(); 
    447577     CTimer::get("XIOS").suspend(); 
    448578     return isDefined; 
    … …  
    8851015 
    8861016 
     1017  void cxios_set_file_using_server2(file_Ptr file_hdl, bool using_server2) 
     1018  { 
     1019    CTimer::get("XIOS").resume(); 
     1020    file_hdl->using_server2.setValue(using_server2); 
     1021    CTimer::get("XIOS").suspend(); 
     1022  } 
     1023 
     1024  void cxios_get_file_using_server2(file_Ptr file_hdl, bool* using_server2) 
     1025  { 
     1026    CTimer::get("XIOS").resume(); 
     1027    *using_server2 = file_hdl->using_server2.getInheritedValue(); 
     1028    CTimer::get("XIOS").suspend(); 
     1029  } 
     1030 
     1031  bool cxios_is_defined_file_using_server2(file_Ptr file_hdl) 
     1032  { 
     1033     CTimer::get("XIOS").resume(); 
     1034     bool isDefined = file_hdl->using_server2.hasInheritedValue(); 
     1035     CTimer::get("XIOS").suspend(); 
     1036     return isDefined; 
     1037  } 
     1038 
     1039 
    8871040  void cxios_set_file_uuid_format(file_Ptr file_hdl, const char * uuid_format, int uuid_format_size) 
    8881041  { 
    … …  
    9351088     return isDefined; 
    9361089  } 
     1090 
     1091 
     1092  void cxios_set_file_writer(file_Ptr file_hdl, const char * writer, int writer_size) 
     1093  { 
     1094    std::string writer_str; 
     1095    if (!cstr2string(writer, writer_size, writer_str)) return; 
     1096    CTimer::get("XIOS").resume(); 
     1097    file_hdl->writer.setValue(writer_str); 
     1098    CTimer::get("XIOS").suspend(); 
     1099  } 
     1100 
     1101  void cxios_get_file_writer(file_Ptr file_hdl, char * writer, int writer_size) 
     1102  { 
     1103    CTimer::get("XIOS").resume(); 
     1104    if (!string_copy(file_hdl->writer.getInheritedValue(), writer, writer_size)) 
     1105      ERROR("void cxios_get_file_writer(file_Ptr file_hdl, char * writer, int writer_size)", << "Input string is too short"); 
     1106    CTimer::get("XIOS").suspend(); 
     1107  } 
     1108 
     1109  bool cxios_is_defined_file_writer(file_Ptr file_hdl) 
     1110  { 
     1111     CTimer::get("XIOS").resume(); 
     1112     bool isDefined = file_hdl->writer.hasInheritedValue(); 
     1113     CTimer::get("XIOS").suspend(); 
     1114     return isDefined; 
     1115  } 
    9371116} 

  • XIOS3/trunk/src/interface/c_attr/icfilegroup_attr.cpp

    r1626 r2616  
    239239 
    240240 
     241  void cxios_set_filegroup_gatherer(filegroup_Ptr filegroup_hdl, const char * gatherer, int gatherer_size) 
     242  { 
     243    std::string gatherer_str; 
     244    if (!cstr2string(gatherer, gatherer_size, gatherer_str)) return; 
     245    CTimer::get("XIOS").resume(); 
     246    filegroup_hdl->gatherer.setValue(gatherer_str); 
     247    CTimer::get("XIOS").suspend(); 
     248  } 
     249 
     250  void cxios_get_filegroup_gatherer(filegroup_Ptr filegroup_hdl, char * gatherer, int gatherer_size) 
     251  { 
     252    CTimer::get("XIOS").resume(); 
     253    if (!string_copy(filegroup_hdl->gatherer.getInheritedValue(), gatherer, gatherer_size)) 
     254      ERROR("void cxios_get_filegroup_gatherer(filegroup_Ptr filegroup_hdl, char * gatherer, int gatherer_size)", << "Input string is too short"); 
     255    CTimer::get("XIOS").suspend(); 
     256  } 
     257 
     258  bool cxios_is_defined_filegroup_gatherer(filegroup_Ptr filegroup_hdl) 
     259  { 
     260     CTimer::get("XIOS").resume(); 
     261     bool isDefined = filegroup_hdl->gatherer.hasInheritedValue(); 
     262     CTimer::get("XIOS").suspend(); 
     263     return isDefined; 
     264  } 
     265 
     266 
    241267  void cxios_set_filegroup_group_ref(filegroup_Ptr filegroup_hdl, const char * group_ref, int group_ref_size) 
    242268  { 
    … …  
    453479 
    454480 
     481  void cxios_set_filegroup_pool_gatherer(filegroup_Ptr filegroup_hdl, const char * pool_gatherer, int pool_gatherer_size) 
     482  { 
     483    std::string pool_gatherer_str; 
     484    if (!cstr2string(pool_gatherer, pool_gatherer_size, pool_gatherer_str)) return; 
     485    CTimer::get("XIOS").resume(); 
     486    filegroup_hdl->pool_gatherer.setValue(pool_gatherer_str); 
     487    CTimer::get("XIOS").suspend(); 
     488  } 
     489 
     490  void cxios_get_filegroup_pool_gatherer(filegroup_Ptr filegroup_hdl, char * pool_gatherer, int pool_gatherer_size) 
     491  { 
     492    CTimer::get("XIOS").resume(); 
     493    if (!string_copy(filegroup_hdl->pool_gatherer.getInheritedValue(), pool_gatherer, pool_gatherer_size)) 
     494      ERROR("void cxios_get_filegroup_pool_gatherer(filegroup_Ptr filegroup_hdl, char * pool_gatherer, int pool_gatherer_size)", << "Input string is too short"); 
     495    CTimer::get("XIOS").suspend(); 
     496  } 
     497 
     498  bool cxios_is_defined_filegroup_pool_gatherer(filegroup_Ptr filegroup_hdl) 
     499  { 
     500     CTimer::get("XIOS").resume(); 
     501     bool isDefined = filegroup_hdl->pool_gatherer.hasInheritedValue(); 
     502     CTimer::get("XIOS").suspend(); 
     503     return isDefined; 
     504  } 
     505 
     506 
     507  void cxios_set_filegroup_pool_reader(filegroup_Ptr filegroup_hdl, const char * pool_reader, int pool_reader_size) 
     508  { 
     509    std::string pool_reader_str; 
     510    if (!cstr2string(pool_reader, pool_reader_size, pool_reader_str)) return; 
     511    CTimer::get("XIOS").resume(); 
     512    filegroup_hdl->pool_reader.setValue(pool_reader_str); 
     513    CTimer::get("XIOS").suspend(); 
     514  } 
     515 
     516  void cxios_get_filegroup_pool_reader(filegroup_Ptr filegroup_hdl, char * pool_reader, int pool_reader_size) 
     517  { 
     518    CTimer::get("XIOS").resume(); 
     519    if (!string_copy(filegroup_hdl->pool_reader.getInheritedValue(), pool_reader, pool_reader_size)) 
     520      ERROR("void cxios_get_filegroup_pool_reader(filegroup_Ptr filegroup_hdl, char * pool_reader, int pool_reader_size)", << "Input string is too short"); 
     521    CTimer::get("XIOS").suspend(); 
     522  } 
     523 
     524  bool cxios_is_defined_filegroup_pool_reader(filegroup_Ptr filegroup_hdl) 
     525  { 
     526     CTimer::get("XIOS").resume(); 
     527     bool isDefined = filegroup_hdl->pool_reader.hasInheritedValue(); 
     528     CTimer::get("XIOS").suspend(); 
     529     return isDefined; 
     530  } 
     531 
     532 
     533  void cxios_set_filegroup_pool_writer(filegroup_Ptr filegroup_hdl, const char * pool_writer, int pool_writer_size) 
     534  { 
     535    std::string pool_writer_str; 
     536    if (!cstr2string(pool_writer, pool_writer_size, pool_writer_str)) return; 
     537    CTimer::get("XIOS").resume(); 
     538    filegroup_hdl->pool_writer.setValue(pool_writer_str); 
     539    CTimer::get("XIOS").suspend(); 
     540  } 
     541 
     542  void cxios_get_filegroup_pool_writer(filegroup_Ptr filegroup_hdl, char * pool_writer, int pool_writer_size) 
     543  { 
     544    CTimer::get("XIOS").resume(); 
     545    if (!string_copy(filegroup_hdl->pool_writer.getInheritedValue(), pool_writer, pool_writer_size)) 
     546      ERROR("void cxios_get_filegroup_pool_writer(filegroup_Ptr filegroup_hdl, char * pool_writer, int pool_writer_size)", << "Input string is too short"); 
     547    CTimer::get("XIOS").suspend(); 
     548  } 
     549 
     550  bool cxios_is_defined_filegroup_pool_writer(filegroup_Ptr filegroup_hdl) 
     551  { 
     552     CTimer::get("XIOS").resume(); 
     553     bool isDefined = filegroup_hdl->pool_writer.hasInheritedValue(); 
     554     CTimer::get("XIOS").suspend(); 
     555     return isDefined; 
     556  } 
     557 
     558 
    455559  void cxios_set_filegroup_read_metadata_par(filegroup_Ptr filegroup_hdl, bool read_metadata_par) 
    456560  { 
    … …  
    471575     CTimer::get("XIOS").resume(); 
    472576     bool isDefined = filegroup_hdl->read_metadata_par.hasInheritedValue(); 
     577     CTimer::get("XIOS").suspend(); 
     578     return isDefined; 
     579  } 
     580 
     581 
     582  void cxios_set_filegroup_reader(filegroup_Ptr filegroup_hdl, const char * reader, int reader_size) 
     583  { 
     584    std::string reader_str; 
     585    if (!cstr2string(reader, reader_size, reader_str)) return; 
     586    CTimer::get("XIOS").resume(); 
     587    filegroup_hdl->reader.setValue(reader_str); 
     588    CTimer::get("XIOS").suspend(); 
     589  } 
     590 
     591  void cxios_get_filegroup_reader(filegroup_Ptr filegroup_hdl, char * reader, int reader_size) 
     592  { 
     593    CTimer::get("XIOS").resume(); 
     594    if (!string_copy(filegroup_hdl->reader.getInheritedValue(), reader, reader_size)) 
     595      ERROR("void cxios_get_filegroup_reader(filegroup_Ptr filegroup_hdl, char * reader, int reader_size)", << "Input string is too short"); 
     596    CTimer::get("XIOS").suspend(); 
     597  } 
     598 
     599  bool cxios_is_defined_filegroup_reader(filegroup_Ptr filegroup_hdl) 
     600  { 
     601     CTimer::get("XIOS").resume(); 
     602     bool isDefined = filegroup_hdl->reader.hasInheritedValue(); 
    473603     CTimer::get("XIOS").suspend(); 
    474604     return isDefined; 
    … …  
    9111041 
    9121042 
     1043  void cxios_set_filegroup_using_server2(filegroup_Ptr filegroup_hdl, bool using_server2) 
     1044  { 
     1045    CTimer::get("XIOS").resume(); 
     1046    filegroup_hdl->using_server2.setValue(using_server2); 
     1047    CTimer::get("XIOS").suspend(); 
     1048  } 
     1049 
     1050  void cxios_get_filegroup_using_server2(filegroup_Ptr filegroup_hdl, bool* using_server2) 
     1051  { 
     1052    CTimer::get("XIOS").resume(); 
     1053    *using_server2 = filegroup_hdl->using_server2.getInheritedValue(); 
     1054    CTimer::get("XIOS").suspend(); 
     1055  } 
     1056 
     1057  bool cxios_is_defined_filegroup_using_server2(filegroup_Ptr filegroup_hdl) 
     1058  { 
     1059     CTimer::get("XIOS").resume(); 
     1060     bool isDefined = filegroup_hdl->using_server2.hasInheritedValue(); 
     1061     CTimer::get("XIOS").suspend(); 
     1062     return isDefined; 
     1063  } 
     1064 
     1065 
    9131066  void cxios_set_filegroup_uuid_format(filegroup_Ptr filegroup_hdl, const char * uuid_format, int uuid_format_size) 
    9141067  { 
    … …  
    9611114     return isDefined; 
    9621115  } 
     1116 
     1117 
     1118  void cxios_set_filegroup_writer(filegroup_Ptr filegroup_hdl, const char * writer, int writer_size) 
     1119  { 
     1120    std::string writer_str; 
     1121    if (!cstr2string(writer, writer_size, writer_str)) return; 
     1122    CTimer::get("XIOS").resume(); 
     1123    filegroup_hdl->writer.setValue(writer_str); 
     1124    CTimer::get("XIOS").suspend(); 
     1125  } 
     1126 
     1127  void cxios_get_filegroup_writer(filegroup_Ptr filegroup_hdl, char * writer, int writer_size) 
     1128  { 
     1129    CTimer::get("XIOS").resume(); 
     1130    if (!string_copy(filegroup_hdl->writer.getInheritedValue(), writer, writer_size)) 
     1131      ERROR("void cxios_get_filegroup_writer(filegroup_Ptr filegroup_hdl, char * writer, int writer_size)", << "Input string is too short"); 
     1132    CTimer::get("XIOS").suspend(); 
     1133  } 
     1134 
     1135  bool cxios_is_defined_filegroup_writer(filegroup_Ptr filegroup_hdl) 
     1136  { 
     1137     CTimer::get("XIOS").resume(); 
     1138     bool isDefined = filegroup_hdl->writer.hasInheritedValue(); 
     1139     CTimer::get("XIOS").suspend(); 
     1140     return isDefined; 
     1141  } 
    9631142} 

  • XIOS3/trunk/src/interface/fortran_attr/axis_interface_attr.F90

    r1492 r2616  
    113113 
    114114 
     115    SUBROUTINE cxios_set_axis_chunking_weight(axis_hdl, chunking_weight) BIND(C) 
     116      USE ISO_C_BINDING 
     117      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     118      REAL (KIND=C_DOUBLE)      , VALUE :: chunking_weight 
     119    END SUBROUTINE cxios_set_axis_chunking_weight 
     120 
     121    SUBROUTINE cxios_get_axis_chunking_weight(axis_hdl, chunking_weight) BIND(C) 
     122      USE ISO_C_BINDING 
     123      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     124      REAL (KIND=C_DOUBLE)             :: chunking_weight 
     125    END SUBROUTINE cxios_get_axis_chunking_weight 
     126 
     127    FUNCTION cxios_is_defined_axis_chunking_weight(axis_hdl) BIND(C) 
     128      USE ISO_C_BINDING 
     129      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_chunking_weight 
     130      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     131    END FUNCTION cxios_is_defined_axis_chunking_weight 
     132 
     133 
    115134    SUBROUTINE cxios_set_axis_comment(axis_hdl, comment, comment_size) BIND(C) 
    116135      USE ISO_C_BINDING 

  • XIOS3/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90

    r1492 r2616  
    113113 
    114114 
     115    SUBROUTINE cxios_set_axisgroup_chunking_weight(axisgroup_hdl, chunking_weight) BIND(C) 
     116      USE ISO_C_BINDING 
     117      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     118      REAL (KIND=C_DOUBLE)      , VALUE :: chunking_weight 
     119    END SUBROUTINE cxios_set_axisgroup_chunking_weight 
     120 
     121    SUBROUTINE cxios_get_axisgroup_chunking_weight(axisgroup_hdl, chunking_weight) BIND(C) 
     122      USE ISO_C_BINDING 
     123      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     124      REAL (KIND=C_DOUBLE)             :: chunking_weight 
     125    END SUBROUTINE cxios_get_axisgroup_chunking_weight 
     126 
     127    FUNCTION cxios_is_defined_axisgroup_chunking_weight(axisgroup_hdl) BIND(C) 
     128      USE ISO_C_BINDING 
     129      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_chunking_weight 
     130      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     131    END FUNCTION cxios_is_defined_axisgroup_chunking_weight 
     132 
     133 
    115134    SUBROUTINE cxios_set_axisgroup_comment(axisgroup_hdl, comment, comment_size) BIND(C) 
    116135      USE ISO_C_BINDING 

  • XIOS3/trunk/src/interface/fortran_attr/context_interface_attr.F90

    r1941 r2616  
    2929 
    3030 
     31    SUBROUTINE cxios_set_context_default_gatherer(context_hdl, default_gatherer, default_gatherer_size) BIND(C) 
     32      USE ISO_C_BINDING 
     33      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     34      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_gatherer 
     35      INTEGER  (kind = C_INT)     , VALUE        :: default_gatherer_size 
     36    END SUBROUTINE cxios_set_context_default_gatherer 
     37 
     38    SUBROUTINE cxios_get_context_default_gatherer(context_hdl, default_gatherer, default_gatherer_size) BIND(C) 
     39      USE ISO_C_BINDING 
     40      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     41      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_gatherer 
     42      INTEGER  (kind = C_INT)     , VALUE        :: default_gatherer_size 
     43    END SUBROUTINE cxios_get_context_default_gatherer 
     44 
     45    FUNCTION cxios_is_defined_context_default_gatherer(context_hdl) BIND(C) 
     46      USE ISO_C_BINDING 
     47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_gatherer 
     48      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     49    END FUNCTION cxios_is_defined_context_default_gatherer 
     50 
     51 
     52    SUBROUTINE cxios_set_context_default_pool(context_hdl, default_pool, default_pool_size) BIND(C) 
     53      USE ISO_C_BINDING 
     54      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     55      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool 
     56      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_size 
     57    END SUBROUTINE cxios_set_context_default_pool 
     58 
     59    SUBROUTINE cxios_get_context_default_pool(context_hdl, default_pool, default_pool_size) BIND(C) 
     60      USE ISO_C_BINDING 
     61      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     62      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool 
     63      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_size 
     64    END SUBROUTINE cxios_get_context_default_pool 
     65 
     66    FUNCTION cxios_is_defined_context_default_pool(context_hdl) BIND(C) 
     67      USE ISO_C_BINDING 
     68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool 
     69      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     70    END FUNCTION cxios_is_defined_context_default_pool 
     71 
     72 
     73    SUBROUTINE cxios_set_context_default_pool_gatherer(context_hdl, default_pool_gatherer, default_pool_gatherer_size) BIND(C) 
     74      USE ISO_C_BINDING 
     75      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     76      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_gatherer 
     77      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_gatherer_size 
     78    END SUBROUTINE cxios_set_context_default_pool_gatherer 
     79 
     80    SUBROUTINE cxios_get_context_default_pool_gatherer(context_hdl, default_pool_gatherer, default_pool_gatherer_size) BIND(C) 
     81      USE ISO_C_BINDING 
     82      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     83      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_gatherer 
     84      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_gatherer_size 
     85    END SUBROUTINE cxios_get_context_default_pool_gatherer 
     86 
     87    FUNCTION cxios_is_defined_context_default_pool_gatherer(context_hdl) BIND(C) 
     88      USE ISO_C_BINDING 
     89      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool_gatherer 
     90      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     91    END FUNCTION cxios_is_defined_context_default_pool_gatherer 
     92 
     93 
     94    SUBROUTINE cxios_set_context_default_pool_reader(context_hdl, default_pool_reader, default_pool_reader_size) BIND(C) 
     95      USE ISO_C_BINDING 
     96      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     97      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_reader 
     98      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_reader_size 
     99    END SUBROUTINE cxios_set_context_default_pool_reader 
     100 
     101    SUBROUTINE cxios_get_context_default_pool_reader(context_hdl, default_pool_reader, default_pool_reader_size) BIND(C) 
     102      USE ISO_C_BINDING 
     103      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     104      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_reader 
     105      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_reader_size 
     106    END SUBROUTINE cxios_get_context_default_pool_reader 
     107 
     108    FUNCTION cxios_is_defined_context_default_pool_reader(context_hdl) BIND(C) 
     109      USE ISO_C_BINDING 
     110      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool_reader 
     111      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     112    END FUNCTION cxios_is_defined_context_default_pool_reader 
     113 
     114 
     115    SUBROUTINE cxios_set_context_default_pool_writer(context_hdl, default_pool_writer, default_pool_writer_size) BIND(C) 
     116      USE ISO_C_BINDING 
     117      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     118      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_writer 
     119      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_writer_size 
     120    END SUBROUTINE cxios_set_context_default_pool_writer 
     121 
     122    SUBROUTINE cxios_get_context_default_pool_writer(context_hdl, default_pool_writer, default_pool_writer_size) BIND(C) 
     123      USE ISO_C_BINDING 
     124      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     125      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_pool_writer 
     126      INTEGER  (kind = C_INT)     , VALUE        :: default_pool_writer_size 
     127    END SUBROUTINE cxios_get_context_default_pool_writer 
     128 
     129    FUNCTION cxios_is_defined_context_default_pool_writer(context_hdl) BIND(C) 
     130      USE ISO_C_BINDING 
     131      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool_writer 
     132      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     133    END FUNCTION cxios_is_defined_context_default_pool_writer 
     134 
     135 
     136    SUBROUTINE cxios_set_context_default_reader(context_hdl, default_reader, default_reader_size) BIND(C) 
     137      USE ISO_C_BINDING 
     138      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     139      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_reader 
     140      INTEGER  (kind = C_INT)     , VALUE        :: default_reader_size 
     141    END SUBROUTINE cxios_set_context_default_reader 
     142 
     143    SUBROUTINE cxios_get_context_default_reader(context_hdl, default_reader, default_reader_size) BIND(C) 
     144      USE ISO_C_BINDING 
     145      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     146      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_reader 
     147      INTEGER  (kind = C_INT)     , VALUE        :: default_reader_size 
     148    END SUBROUTINE cxios_get_context_default_reader 
     149 
     150    FUNCTION cxios_is_defined_context_default_reader(context_hdl) BIND(C) 
     151      USE ISO_C_BINDING 
     152      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_reader 
     153      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     154    END FUNCTION cxios_is_defined_context_default_reader 
     155 
     156 
     157    SUBROUTINE cxios_set_context_default_using_server2(context_hdl, default_using_server2) BIND(C) 
     158      USE ISO_C_BINDING 
     159      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     160      LOGICAL (KIND=C_BOOL)      , VALUE :: default_using_server2 
     161    END SUBROUTINE cxios_set_context_default_using_server2 
     162 
     163    SUBROUTINE cxios_get_context_default_using_server2(context_hdl, default_using_server2) BIND(C) 
     164      USE ISO_C_BINDING 
     165      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     166      LOGICAL (KIND=C_BOOL)             :: default_using_server2 
     167    END SUBROUTINE cxios_get_context_default_using_server2 
     168 
     169    FUNCTION cxios_is_defined_context_default_using_server2(context_hdl) BIND(C) 
     170      USE ISO_C_BINDING 
     171      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_using_server2 
     172      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     173    END FUNCTION cxios_is_defined_context_default_using_server2 
     174 
     175 
     176    SUBROUTINE cxios_set_context_default_writer(context_hdl, default_writer, default_writer_size) BIND(C) 
     177      USE ISO_C_BINDING 
     178      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     179      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_writer 
     180      INTEGER  (kind = C_INT)     , VALUE        :: default_writer_size 
     181    END SUBROUTINE cxios_set_context_default_writer 
     182 
     183    SUBROUTINE cxios_get_context_default_writer(context_hdl, default_writer, default_writer_size) BIND(C) 
     184      USE ISO_C_BINDING 
     185      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     186      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: default_writer 
     187      INTEGER  (kind = C_INT)     , VALUE        :: default_writer_size 
     188    END SUBROUTINE cxios_get_context_default_writer 
     189 
     190    FUNCTION cxios_is_defined_context_default_writer(context_hdl) BIND(C) 
     191      USE ISO_C_BINDING 
     192      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_writer 
     193      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     194    END FUNCTION cxios_is_defined_context_default_writer 
     195 
     196 
    31197    SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C) 
    32198      USE ISO_C_BINDING 

  • XIOS3/trunk/src/interface/fortran_attr/domain_interface_attr.F90

    r1626 r2616  
    3131 
    3232 
     33    SUBROUTINE cxios_set_domain_area_1d(domain_hdl, area_1d, extent) BIND(C) 
     34      USE ISO_C_BINDING 
     35      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     36      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area_1d 
     37      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     38    END SUBROUTINE cxios_set_domain_area_1d 
     39 
     40    SUBROUTINE cxios_get_domain_area_1d(domain_hdl, area_1d, extent) BIND(C) 
     41      USE ISO_C_BINDING 
     42      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     43      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area_1d 
     44      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     45    END SUBROUTINE cxios_get_domain_area_1d 
     46 
     47    FUNCTION cxios_is_defined_domain_area_1d(domain_hdl) BIND(C) 
     48      USE ISO_C_BINDING 
     49      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_area_1d 
     50      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     51    END FUNCTION cxios_is_defined_domain_area_1d 
     52 
     53 
     54    SUBROUTINE cxios_set_domain_area_2d(domain_hdl, area_2d, extent) BIND(C) 
     55      USE ISO_C_BINDING 
     56      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     57      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area_2d 
     58      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     59    END SUBROUTINE cxios_set_domain_area_2d 
     60 
     61    SUBROUTINE cxios_get_domain_area_2d(domain_hdl, area_2d, extent) BIND(C) 
     62      USE ISO_C_BINDING 
     63      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     64      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area_2d 
     65      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     66    END SUBROUTINE cxios_get_domain_area_2d 
     67 
     68    FUNCTION cxios_is_defined_domain_area_2d(domain_hdl) BIND(C) 
     69      USE ISO_C_BINDING 
     70      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_area_2d 
     71      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     72    END FUNCTION cxios_is_defined_domain_area_2d 
     73 
     74 
    3375    SUBROUTINE cxios_set_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent) BIND(C) 
    3476      USE ISO_C_BINDING 
    … …  
    157199 
    158200 
     201    SUBROUTINE cxios_set_domain_chunking_weight_i(domain_hdl, chunking_weight_i) BIND(C) 
     202      USE ISO_C_BINDING 
     203      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     204      REAL (KIND=C_DOUBLE)      , VALUE :: chunking_weight_i 
     205    END SUBROUTINE cxios_set_domain_chunking_weight_i 
     206 
     207    SUBROUTINE cxios_get_domain_chunking_weight_i(domain_hdl, chunking_weight_i) BIND(C) 
     208      USE ISO_C_BINDING 
     209      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     210      REAL (KIND=C_DOUBLE)             :: chunking_weight_i 
     211    END SUBROUTINE cxios_get_domain_chunking_weight_i 
     212 
     213    FUNCTION cxios_is_defined_domain_chunking_weight_i(domain_hdl) BIND(C) 
     214      USE ISO_C_BINDING 
     215      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_chunking_weight_i 
     216      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     217    END FUNCTION cxios_is_defined_domain_chunking_weight_i 
     218 
     219 
     220    SUBROUTINE cxios_set_domain_chunking_weight_j(domain_hdl, chunking_weight_j) BIND(C) 
     221      USE ISO_C_BINDING 
     222      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     223      REAL (KIND=C_DOUBLE)      , VALUE :: chunking_weight_j 
     224    END SUBROUTINE cxios_set_domain_chunking_weight_j 
     225 
     226    SUBROUTINE cxios_get_domain_chunking_weight_j(domain_hdl, chunking_weight_j) BIND(C) 
     227      USE ISO_C_BINDING 
     228      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     229      REAL (KIND=C_DOUBLE)             :: chunking_weight_j 
     230    END SUBROUTINE cxios_get_domain_chunking_weight_j 
     231 
     232    FUNCTION cxios_is_defined_domain_chunking_weight_j(domain_hdl) BIND(C) 
     233      USE ISO_C_BINDING 
     234      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_chunking_weight_j 
     235      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     236    END FUNCTION cxios_is_defined_domain_chunking_weight_j 
     237 
     238 
    159239    SUBROUTINE cxios_set_domain_comment(domain_hdl, comment, comment_size) BIND(C) 
    160240      USE ISO_C_BINDING 
    … …  
    763843 
    764844 
     845    SUBROUTINE cxios_set_domain_nvertex_name(domain_hdl, nvertex_name, nvertex_name_size) BIND(C) 
     846      USE ISO_C_BINDING 
     847      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     848      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: nvertex_name 
     849      INTEGER  (kind = C_INT)     , VALUE        :: nvertex_name_size 
     850    END SUBROUTINE cxios_set_domain_nvertex_name 
     851 
     852    SUBROUTINE cxios_get_domain_nvertex_name(domain_hdl, nvertex_name, nvertex_name_size) BIND(C) 
     853      USE ISO_C_BINDING 
     854      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     855      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: nvertex_name 
     856      INTEGER  (kind = C_INT)     , VALUE        :: nvertex_name_size 
     857    END SUBROUTINE cxios_get_domain_nvertex_name 
     858 
     859    FUNCTION cxios_is_defined_domain_nvertex_name(domain_hdl) BIND(C) 
     860      USE ISO_C_BINDING 
     861      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex_name 
     862      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     863    END FUNCTION cxios_is_defined_domain_nvertex_name 
     864 
     865 
    765866    SUBROUTINE cxios_set_domain_prec(domain_hdl, prec) BIND(C) 
    766867      USE ISO_C_BINDING 

  • XIOS3/trunk/src/interface/fortran_attr/domaingroup_interface_attr.F90

    r1626 r2616  
    3131 
    3232 
     33    SUBROUTINE cxios_set_domaingroup_area_1d(domaingroup_hdl, area_1d, extent) BIND(C) 
     34      USE ISO_C_BINDING 
     35      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     36      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area_1d 
     37      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     38    END SUBROUTINE cxios_set_domaingroup_area_1d 
     39 
     40    SUBROUTINE cxios_get_domaingroup_area_1d(domaingroup_hdl, area_1d, extent) BIND(C) 
     41      USE ISO_C_BINDING 
     42      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     43      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area_1d 
     44      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     45    END SUBROUTINE cxios_get_domaingroup_area_1d 
     46 
     47    FUNCTION cxios_is_defined_domaingroup_area_1d(domaingroup_hdl) BIND(C) 
     48      USE ISO_C_BINDING 
     49      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_area_1d 
     50      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     51    END FUNCTION cxios_is_defined_domaingroup_area_1d 
     52 
     53 
     54    SUBROUTINE cxios_set_domaingroup_area_2d(domaingroup_hdl, area_2d, extent) BIND(C) 
     55      USE ISO_C_BINDING 
     56      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     57      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area_2d 
     58      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     59    END SUBROUTINE cxios_set_domaingroup_area_2d 
     60 
     61    SUBROUTINE cxios_get_domaingroup_area_2d(domaingroup_hdl, area_2d, extent) BIND(C) 
     62      USE ISO_C_BINDING 
     63      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     64      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area_2d 
     65      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     66    END SUBROUTINE cxios_get_domaingroup_area_2d 
     67 
     68    FUNCTION cxios_is_defined_domaingroup_area_2d(domaingroup_hdl) BIND(C) 
     69      USE ISO_C_BINDING 
     70      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_area_2d 
     71      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     72    END FUNCTION cxios_is_defined_domaingroup_area_2d 
     73 
     74 
    3375    SUBROUTINE cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent) BIND(C) 
    3476      USE ISO_C_BINDING 
    … …  
    157199 
    158200 
     201    SUBROUTINE cxios_set_domaingroup_chunking_weight_i(domaingroup_hdl, chunking_weight_i) BIND(C) 
     202      USE ISO_C_BINDING 
     203      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     204      REAL (KIND=C_DOUBLE)      , VALUE :: chunking_weight_i 
     205    END SUBROUTINE cxios_set_domaingroup_chunking_weight_i 
     206 
     207    SUBROUTINE cxios_get_domaingroup_chunking_weight_i(domaingroup_hdl, chunking_weight_i) BIND(C) 
     208      USE ISO_C_BINDING 
     209      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     210      REAL (KIND=C_DOUBLE)             :: chunking_weight_i 
     211    END SUBROUTINE cxios_get_domaingroup_chunking_weight_i 
     212 
     213    FUNCTION cxios_is_defined_domaingroup_chunking_weight_i(domaingroup_hdl) BIND(C) 
     214      USE ISO_C_BINDING 
     215      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_chunking_weight_i 
     216      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     217    END FUNCTION cxios_is_defined_domaingroup_chunking_weight_i 
     218 
     219 
     220    SUBROUTINE cxios_set_domaingroup_chunking_weight_j(domaingroup_hdl, chunking_weight_j) BIND(C) 
     221      USE ISO_C_BINDING 
     222      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     223      REAL (KIND=C_DOUBLE)      , VALUE :: chunking_weight_j 
     224    END SUBROUTINE cxios_set_domaingroup_chunking_weight_j 
     225 
     226    SUBROUTINE cxios_get_domaingroup_chunking_weight_j(domaingroup_hdl, chunking_weight_j) BIND(C) 
     227      USE ISO_C_BINDING 
     228      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     229      REAL (KIND=C_DOUBLE)             :: chunking_weight_j 
     230    END SUBROUTINE cxios_get_domaingroup_chunking_weight_j 
     231 
     232    FUNCTION cxios_is_defined_domaingroup_chunking_weight_j(domaingroup_hdl) BIND(C) 
     233      USE ISO_C_BINDING 
     234      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_chunking_weight_j 
     235      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     236    END FUNCTION cxios_is_defined_domaingroup_chunking_weight_j 
     237 
     238 
    159239    SUBROUTINE cxios_set_domaingroup_comment(domaingroup_hdl, comment, comment_size) BIND(C) 
    160240      USE ISO_C_BINDING 
    … …  
    784864 
    785865 
     866    SUBROUTINE cxios_set_domaingroup_nvertex_name(domaingroup_hdl, nvertex_name, nvertex_name_size) BIND(C) 
     867      USE ISO_C_BINDING 
     868      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     869      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: nvertex_name 
     870      INTEGER  (kind = C_INT)     , VALUE        :: nvertex_name_size 
     871    END SUBROUTINE cxios_set_domaingroup_nvertex_name 
     872 
     873    SUBROUTINE cxios_get_domaingroup_nvertex_name(domaingroup_hdl, nvertex_name, nvertex_name_size) BIND(C) 
     874      USE ISO_C_BINDING 
     875      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     876      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: nvertex_name 
     877      INTEGER  (kind = C_INT)     , VALUE        :: nvertex_name_size 
     878    END SUBROUTINE cxios_get_domaingroup_nvertex_name 
     879 
     880    FUNCTION cxios_is_defined_domaingroup_nvertex_name(domaingroup_hdl) BIND(C) 
     881      USE ISO_C_BINDING 
     882      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nvertex_name 
     883      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     884    END FUNCTION cxios_is_defined_domaingroup_nvertex_name 
     885 
     886 
    786887    SUBROUTINE cxios_set_domaingroup_prec(domaingroup_hdl, prec) BIND(C) 
    787888      USE ISO_C_BINDING 

  • XIOS3/trunk/src/interface/fortran_attr/field_interface_attr.F90

    r2338 r2616  
    130130 
    131131 
     132    SUBROUTINE cxios_set_field_chunking_blocksize_target(field_hdl, chunking_blocksize_target) BIND(C) 
     133      USE ISO_C_BINDING 
     134      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     135      REAL (KIND=C_DOUBLE)      , VALUE :: chunking_blocksize_target 
     136    END SUBROUTINE cxios_set_field_chunking_blocksize_target 
     137 
     138    SUBROUTINE cxios_get_field_chunking_blocksize_target(field_hdl, chunking_blocksize_target) BIND(C) 
     139      USE ISO_C_BINDING 
     140      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     141      REAL (KIND=C_DOUBLE)             :: chunking_blocksize_target 
     142    END SUBROUTINE cxios_get_field_chunking_blocksize_target 
     143 
     144    FUNCTION cxios_is_defined_field_chunking_blocksize_target(field_hdl) BIND(C) 
     145      USE ISO_C_BINDING 
     146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_chunking_blocksize_target 
     147      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     148    END FUNCTION cxios_is_defined_field_chunking_blocksize_target 
     149 
     150 
    132151    SUBROUTINE cxios_set_field_comment(field_hdl, comment, comment_size) BIND(C) 
    133152      USE ISO_C_BINDING 
    … …  
    170189 
    171190 
     191    SUBROUTINE cxios_set_field_compression_params(field_hdl, compression_params, extent) BIND(C) 
     192      USE ISO_C_BINDING 
     193      INTEGER (kind = C_INTPTR_T), VALUE       :: field_hdl 
     194      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: compression_params 
     195      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     196    END SUBROUTINE cxios_set_field_compression_params 
     197 
     198    SUBROUTINE cxios_get_field_compression_params(field_hdl, compression_params, extent) BIND(C) 
     199      USE ISO_C_BINDING 
     200      INTEGER (kind = C_INTPTR_T), VALUE       :: field_hdl 
     201      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: compression_params 
     202      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     203    END SUBROUTINE cxios_get_field_compression_params 
     204 
     205    FUNCTION cxios_is_defined_field_compression_params(field_hdl) BIND(C) 
     206      USE ISO_C_BINDING 
     207      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_params 
     208      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     209    END FUNCTION cxios_is_defined_field_compression_params 
     210 
     211 
     212    SUBROUTINE cxios_set_field_compression_type(field_hdl, compression_type, compression_type_size) BIND(C) 
     213      USE ISO_C_BINDING 
     214      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     215      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: compression_type 
     216      INTEGER  (kind = C_INT)     , VALUE        :: compression_type_size 
     217    END SUBROUTINE cxios_set_field_compression_type 
     218 
     219    SUBROUTINE cxios_get_field_compression_type(field_hdl, compression_type, compression_type_size) BIND(C) 
     220      USE ISO_C_BINDING 
     221      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     222      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: compression_type 
     223      INTEGER  (kind = C_INT)     , VALUE        :: compression_type_size 
     224    END SUBROUTINE cxios_get_field_compression_type 
     225 
     226    FUNCTION cxios_is_defined_field_compression_type(field_hdl) BIND(C) 
     227      USE ISO_C_BINDING 
     228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_type 
     229      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     230    END FUNCTION cxios_is_defined_field_compression_type 
     231 
     232 
     233    SUBROUTINE cxios_set_field_conversion_by_NetCDF(field_hdl, conversion_by_NetCDF) BIND(C) 
     234      USE ISO_C_BINDING 
     235      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     236      LOGICAL (KIND=C_BOOL)      , VALUE :: conversion_by_NetCDF 
     237    END SUBROUTINE cxios_set_field_conversion_by_NetCDF 
     238 
     239    SUBROUTINE cxios_get_field_conversion_by_NetCDF(field_hdl, conversion_by_NetCDF) BIND(C) 
     240      USE ISO_C_BINDING 
     241      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     242      LOGICAL (KIND=C_BOOL)             :: conversion_by_NetCDF 
     243    END SUBROUTINE cxios_get_field_conversion_by_NetCDF 
     244 
     245    FUNCTION cxios_is_defined_field_conversion_by_NetCDF(field_hdl) BIND(C) 
     246      USE ISO_C_BINDING 
     247      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_conversion_by_NetCDF 
     248      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     249    END FUNCTION cxios_is_defined_field_conversion_by_NetCDF 
     250 
     251 
    172252    SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C) 
    173253      USE ISO_C_BINDING 

  • XIOS3/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90

    r2338 r2616  
    130130 
    131131 
     132    SUBROUTINE cxios_set_fieldgroup_chunking_blocksize_target(fieldgroup_hdl, chunking_blocksize_target) BIND(C) 
     133      USE ISO_C_BINDING 
     134      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     135      REAL (KIND=C_DOUBLE)      , VALUE :: chunking_blocksize_target 
     136    END SUBROUTINE cxios_set_fieldgroup_chunking_blocksize_target 
     137 
     138    SUBROUTINE cxios_get_fieldgroup_chunking_blocksize_target(fieldgroup_hdl, chunking_blocksize_target) BIND(C) 
     139      USE ISO_C_BINDING 
     140      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     141      REAL (KIND=C_DOUBLE)             :: chunking_blocksize_target 
     142    END SUBROUTINE cxios_get_fieldgroup_chunking_blocksize_target 
     143 
     144    FUNCTION cxios_is_defined_fieldgroup_chunking_blocksize_target(fieldgroup_hdl) BIND(C) 
     145      USE ISO_C_BINDING 
     146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_chunking_blocksize_target 
     147      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     148    END FUNCTION cxios_is_defined_fieldgroup_chunking_blocksize_target 
     149 
     150 
    132151    SUBROUTINE cxios_set_fieldgroup_comment(fieldgroup_hdl, comment, comment_size) BIND(C) 
    133152      USE ISO_C_BINDING 
    … …  
    170189 
    171190 
     191    SUBROUTINE cxios_set_fieldgroup_compression_params(fieldgroup_hdl, compression_params, extent) BIND(C) 
     192      USE ISO_C_BINDING 
     193      INTEGER (kind = C_INTPTR_T), VALUE       :: fieldgroup_hdl 
     194      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: compression_params 
     195      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     196    END SUBROUTINE cxios_set_fieldgroup_compression_params 
     197 
     198    SUBROUTINE cxios_get_fieldgroup_compression_params(fieldgroup_hdl, compression_params, extent) BIND(C) 
     199      USE ISO_C_BINDING 
     200      INTEGER (kind = C_INTPTR_T), VALUE       :: fieldgroup_hdl 
     201      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: compression_params 
     202      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     203    END SUBROUTINE cxios_get_fieldgroup_compression_params 
     204 
     205    FUNCTION cxios_is_defined_fieldgroup_compression_params(fieldgroup_hdl) BIND(C) 
     206      USE ISO_C_BINDING 
     207      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_compression_params 
     208      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     209    END FUNCTION cxios_is_defined_fieldgroup_compression_params 
     210 
     211 
     212    SUBROUTINE cxios_set_fieldgroup_compression_type(fieldgroup_hdl, compression_type, compression_type_size) BIND(C) 
     213      USE ISO_C_BINDING 
     214      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     215      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: compression_type 
     216      INTEGER  (kind = C_INT)     , VALUE        :: compression_type_size 
     217    END SUBROUTINE cxios_set_fieldgroup_compression_type 
     218 
     219    SUBROUTINE cxios_get_fieldgroup_compression_type(fieldgroup_hdl, compression_type, compression_type_size) BIND(C) 
     220      USE ISO_C_BINDING 
     221      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     222      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: compression_type 
     223      INTEGER  (kind = C_INT)     , VALUE        :: compression_type_size 
     224    END SUBROUTINE cxios_get_fieldgroup_compression_type 
     225 
     226    FUNCTION cxios_is_defined_fieldgroup_compression_type(fieldgroup_hdl) BIND(C) 
     227      USE ISO_C_BINDING 
     228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_compression_type 
     229      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     230    END FUNCTION cxios_is_defined_fieldgroup_compression_type 
     231 
     232 
     233    SUBROUTINE cxios_set_fieldgroup_conversion_by_NetCDF(fieldgroup_hdl, conversion_by_NetCDF) BIND(C) 
     234      USE ISO_C_BINDING 
     235      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     236      LOGICAL (KIND=C_BOOL)      , VALUE :: conversion_by_NetCDF 
     237    END SUBROUTINE cxios_set_fieldgroup_conversion_by_NetCDF 
     238 
     239    SUBROUTINE cxios_get_fieldgroup_conversion_by_NetCDF(fieldgroup_hdl, conversion_by_NetCDF) BIND(C) 
     240      USE ISO_C_BINDING 
     241      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     242      LOGICAL (KIND=C_BOOL)             :: conversion_by_NetCDF 
     243    END SUBROUTINE cxios_get_fieldgroup_conversion_by_NetCDF 
     244 
     245    FUNCTION cxios_is_defined_fieldgroup_conversion_by_NetCDF(fieldgroup_hdl) BIND(C) 
     246      USE ISO_C_BINDING 
     247      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_conversion_by_NetCDF 
     248      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     249    END FUNCTION cxios_is_defined_fieldgroup_conversion_by_NetCDF 
     250 
     251 
    172252    SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) 
    173253      USE ISO_C_BINDING 

  • XIOS3/trunk/src/interface/fortran_attr/file_interface_attr.F90

    r1492 r2616  
    191191 
    192192 
     193    SUBROUTINE cxios_set_file_gatherer(file_hdl, gatherer, gatherer_size) BIND(C) 
     194      USE ISO_C_BINDING 
     195      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     196      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: gatherer 
     197      INTEGER  (kind = C_INT)     , VALUE        :: gatherer_size 
     198    END SUBROUTINE cxios_set_file_gatherer 
     199 
     200    SUBROUTINE cxios_get_file_gatherer(file_hdl, gatherer, gatherer_size) BIND(C) 
     201      USE ISO_C_BINDING 
     202      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     203      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: gatherer 
     204      INTEGER  (kind = C_INT)     , VALUE        :: gatherer_size 
     205    END SUBROUTINE cxios_get_file_gatherer 
     206 
     207    FUNCTION cxios_is_defined_file_gatherer(file_hdl) BIND(C) 
     208      USE ISO_C_BINDING 
     209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_gatherer 
     210      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     211    END FUNCTION cxios_is_defined_file_gatherer 
     212 
     213 
    193214    SUBROUTINE cxios_set_file_min_digits(file_hdl, min_digits) BIND(C) 
    194215      USE ISO_C_BINDING 
    … …  
    334355 
    335356 
     357    SUBROUTINE cxios_set_file_pool_gatherer(file_hdl, pool_gatherer, pool_gatherer_size) BIND(C) 
     358      USE ISO_C_BINDING 
     359      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     360      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_gatherer 
     361      INTEGER  (kind = C_INT)     , VALUE        :: pool_gatherer_size 
     362    END SUBROUTINE cxios_set_file_pool_gatherer 
     363 
     364    SUBROUTINE cxios_get_file_pool_gatherer(file_hdl, pool_gatherer, pool_gatherer_size) BIND(C) 
     365      USE ISO_C_BINDING 
     366      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     367      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_gatherer 
     368      INTEGER  (kind = C_INT)     , VALUE        :: pool_gatherer_size 
     369    END SUBROUTINE cxios_get_file_pool_gatherer 
     370 
     371    FUNCTION cxios_is_defined_file_pool_gatherer(file_hdl) BIND(C) 
     372      USE ISO_C_BINDING 
     373      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_pool_gatherer 
     374      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     375    END FUNCTION cxios_is_defined_file_pool_gatherer 
     376 
     377 
     378    SUBROUTINE cxios_set_file_pool_reader(file_hdl, pool_reader, pool_reader_size) BIND(C) 
     379      USE ISO_C_BINDING 
     380      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     381      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_reader 
     382      INTEGER  (kind = C_INT)     , VALUE        :: pool_reader_size 
     383    END SUBROUTINE cxios_set_file_pool_reader 
     384 
     385    SUBROUTINE cxios_get_file_pool_reader(file_hdl, pool_reader, pool_reader_size) BIND(C) 
     386      USE ISO_C_BINDING 
     387      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     388      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_reader 
     389      INTEGER  (kind = C_INT)     , VALUE        :: pool_reader_size 
     390    END SUBROUTINE cxios_get_file_pool_reader 
     391 
     392    FUNCTION cxios_is_defined_file_pool_reader(file_hdl) BIND(C) 
     393      USE ISO_C_BINDING 
     394      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_pool_reader 
     395      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     396    END FUNCTION cxios_is_defined_file_pool_reader 
     397 
     398 
     399    SUBROUTINE cxios_set_file_pool_writer(file_hdl, pool_writer, pool_writer_size) BIND(C) 
     400      USE ISO_C_BINDING 
     401      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     402      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_writer 
     403      INTEGER  (kind = C_INT)     , VALUE        :: pool_writer_size 
     404    END SUBROUTINE cxios_set_file_pool_writer 
     405 
     406    SUBROUTINE cxios_get_file_pool_writer(file_hdl, pool_writer, pool_writer_size) BIND(C) 
     407      USE ISO_C_BINDING 
     408      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     409      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_writer 
     410      INTEGER  (kind = C_INT)     , VALUE        :: pool_writer_size 
     411    END SUBROUTINE cxios_get_file_pool_writer 
     412 
     413    FUNCTION cxios_is_defined_file_pool_writer(file_hdl) BIND(C) 
     414      USE ISO_C_BINDING 
     415      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_pool_writer 
     416      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     417    END FUNCTION cxios_is_defined_file_pool_writer 
     418 
     419 
    336420    SUBROUTINE cxios_set_file_read_metadata_par(file_hdl, read_metadata_par) BIND(C) 
    337421      USE ISO_C_BINDING 
    … …  
    351435      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
    352436    END FUNCTION cxios_is_defined_file_read_metadata_par 
     437 
     438 
     439    SUBROUTINE cxios_set_file_reader(file_hdl, reader, reader_size) BIND(C) 
     440      USE ISO_C_BINDING 
     441      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     442      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: reader 
     443      INTEGER  (kind = C_INT)     , VALUE        :: reader_size 
     444    END SUBROUTINE cxios_set_file_reader 
     445 
     446    SUBROUTINE cxios_get_file_reader(file_hdl, reader, reader_size) BIND(C) 
     447      USE ISO_C_BINDING 
     448      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     449      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: reader 
     450      INTEGER  (kind = C_INT)     , VALUE        :: reader_size 
     451    END SUBROUTINE cxios_get_file_reader 
     452 
     453    FUNCTION cxios_is_defined_file_reader(file_hdl) BIND(C) 
     454      USE ISO_C_BINDING 
     455      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_reader 
     456      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     457    END FUNCTION cxios_is_defined_file_reader 
    353458 
    354459 
    … …  
    666771 
    667772 
     773    SUBROUTINE cxios_set_file_using_server2(file_hdl, using_server2) BIND(C) 
     774      USE ISO_C_BINDING 
     775      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     776      LOGICAL (KIND=C_BOOL)      , VALUE :: using_server2 
     777    END SUBROUTINE cxios_set_file_using_server2 
     778 
     779    SUBROUTINE cxios_get_file_using_server2(file_hdl, using_server2) BIND(C) 
     780      USE ISO_C_BINDING 
     781      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     782      LOGICAL (KIND=C_BOOL)             :: using_server2 
     783    END SUBROUTINE cxios_get_file_using_server2 
     784 
     785    FUNCTION cxios_is_defined_file_using_server2(file_hdl) BIND(C) 
     786      USE ISO_C_BINDING 
     787      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_using_server2 
     788      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     789    END FUNCTION cxios_is_defined_file_using_server2 
     790 
     791 
    668792    SUBROUTINE cxios_set_file_uuid_format(file_hdl, uuid_format, uuid_format_size) BIND(C) 
    669793      USE ISO_C_BINDING 
    … …  
    707831    END FUNCTION cxios_is_defined_file_uuid_name 
    708832 
     833 
     834    SUBROUTINE cxios_set_file_writer(file_hdl, writer, writer_size) BIND(C) 
     835      USE ISO_C_BINDING 
     836      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     837      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: writer 
     838      INTEGER  (kind = C_INT)     , VALUE        :: writer_size 
     839    END SUBROUTINE cxios_set_file_writer 
     840 
     841    SUBROUTINE cxios_get_file_writer(file_hdl, writer, writer_size) BIND(C) 
     842      USE ISO_C_BINDING 
     843      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     844      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: writer 
     845      INTEGER  (kind = C_INT)     , VALUE        :: writer_size 
     846    END SUBROUTINE cxios_get_file_writer 
     847 
     848    FUNCTION cxios_is_defined_file_writer(file_hdl) BIND(C) 
     849      USE ISO_C_BINDING 
     850      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_writer 
     851      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     852    END FUNCTION cxios_is_defined_file_writer 
     853 
    709854  END INTERFACE 
    710855 

  • XIOS3/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90

    r1492 r2616  
    191191 
    192192 
     193    SUBROUTINE cxios_set_filegroup_gatherer(filegroup_hdl, gatherer, gatherer_size) BIND(C) 
     194      USE ISO_C_BINDING 
     195      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     196      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: gatherer 
     197      INTEGER  (kind = C_INT)     , VALUE        :: gatherer_size 
     198    END SUBROUTINE cxios_set_filegroup_gatherer 
     199 
     200    SUBROUTINE cxios_get_filegroup_gatherer(filegroup_hdl, gatherer, gatherer_size) BIND(C) 
     201      USE ISO_C_BINDING 
     202      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     203      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: gatherer 
     204      INTEGER  (kind = C_INT)     , VALUE        :: gatherer_size 
     205    END SUBROUTINE cxios_get_filegroup_gatherer 
     206 
     207    FUNCTION cxios_is_defined_filegroup_gatherer(filegroup_hdl) BIND(C) 
     208      USE ISO_C_BINDING 
     209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_gatherer 
     210      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     211    END FUNCTION cxios_is_defined_filegroup_gatherer 
     212 
     213 
    193214    SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C) 
    194215      USE ISO_C_BINDING 
    … …  
    355376 
    356377 
     378    SUBROUTINE cxios_set_filegroup_pool_gatherer(filegroup_hdl, pool_gatherer, pool_gatherer_size) BIND(C) 
     379      USE ISO_C_BINDING 
     380      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     381      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_gatherer 
     382      INTEGER  (kind = C_INT)     , VALUE        :: pool_gatherer_size 
     383    END SUBROUTINE cxios_set_filegroup_pool_gatherer 
     384 
     385    SUBROUTINE cxios_get_filegroup_pool_gatherer(filegroup_hdl, pool_gatherer, pool_gatherer_size) BIND(C) 
     386      USE ISO_C_BINDING 
     387      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     388      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_gatherer 
     389      INTEGER  (kind = C_INT)     , VALUE        :: pool_gatherer_size 
     390    END SUBROUTINE cxios_get_filegroup_pool_gatherer 
     391 
     392    FUNCTION cxios_is_defined_filegroup_pool_gatherer(filegroup_hdl) BIND(C) 
     393      USE ISO_C_BINDING 
     394      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_pool_gatherer 
     395      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     396    END FUNCTION cxios_is_defined_filegroup_pool_gatherer 
     397 
     398 
     399    SUBROUTINE cxios_set_filegroup_pool_reader(filegroup_hdl, pool_reader, pool_reader_size) BIND(C) 
     400      USE ISO_C_BINDING 
     401      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     402      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_reader 
     403      INTEGER  (kind = C_INT)     , VALUE        :: pool_reader_size 
     404    END SUBROUTINE cxios_set_filegroup_pool_reader 
     405 
     406    SUBROUTINE cxios_get_filegroup_pool_reader(filegroup_hdl, pool_reader, pool_reader_size) BIND(C) 
     407      USE ISO_C_BINDING 
     408      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     409      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_reader 
     410      INTEGER  (kind = C_INT)     , VALUE        :: pool_reader_size 
     411    END SUBROUTINE cxios_get_filegroup_pool_reader 
     412 
     413    FUNCTION cxios_is_defined_filegroup_pool_reader(filegroup_hdl) BIND(C) 
     414      USE ISO_C_BINDING 
     415      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_pool_reader 
     416      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     417    END FUNCTION cxios_is_defined_filegroup_pool_reader 
     418 
     419 
     420    SUBROUTINE cxios_set_filegroup_pool_writer(filegroup_hdl, pool_writer, pool_writer_size) BIND(C) 
     421      USE ISO_C_BINDING 
     422      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     423      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_writer 
     424      INTEGER  (kind = C_INT)     , VALUE        :: pool_writer_size 
     425    END SUBROUTINE cxios_set_filegroup_pool_writer 
     426 
     427    SUBROUTINE cxios_get_filegroup_pool_writer(filegroup_hdl, pool_writer, pool_writer_size) BIND(C) 
     428      USE ISO_C_BINDING 
     429      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     430      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_writer 
     431      INTEGER  (kind = C_INT)     , VALUE        :: pool_writer_size 
     432    END SUBROUTINE cxios_get_filegroup_pool_writer 
     433 
     434    FUNCTION cxios_is_defined_filegroup_pool_writer(filegroup_hdl) BIND(C) 
     435      USE ISO_C_BINDING 
     436      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_pool_writer 
     437      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     438    END FUNCTION cxios_is_defined_filegroup_pool_writer 
     439 
     440 
    357441    SUBROUTINE cxios_set_filegroup_read_metadata_par(filegroup_hdl, read_metadata_par) BIND(C) 
    358442      USE ISO_C_BINDING 
    … …  
    372456      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    373457    END FUNCTION cxios_is_defined_filegroup_read_metadata_par 
     458 
     459 
     460    SUBROUTINE cxios_set_filegroup_reader(filegroup_hdl, reader, reader_size) BIND(C) 
     461      USE ISO_C_BINDING 
     462      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     463      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: reader 
     464      INTEGER  (kind = C_INT)     , VALUE        :: reader_size 
     465    END SUBROUTINE cxios_set_filegroup_reader 
     466 
     467    SUBROUTINE cxios_get_filegroup_reader(filegroup_hdl, reader, reader_size) BIND(C) 
     468      USE ISO_C_BINDING 
     469      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     470      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: reader 
     471      INTEGER  (kind = C_INT)     , VALUE        :: reader_size 
     472    END SUBROUTINE cxios_get_filegroup_reader 
     473 
     474    FUNCTION cxios_is_defined_filegroup_reader(filegroup_hdl) BIND(C) 
     475      USE ISO_C_BINDING 
     476      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_reader 
     477      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     478    END FUNCTION cxios_is_defined_filegroup_reader 
    374479 
    375480 
    … …  
    687792 
    688793 
     794    SUBROUTINE cxios_set_filegroup_using_server2(filegroup_hdl, using_server2) BIND(C) 
     795      USE ISO_C_BINDING 
     796      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     797      LOGICAL (KIND=C_BOOL)      , VALUE :: using_server2 
     798    END SUBROUTINE cxios_set_filegroup_using_server2 
     799 
     800    SUBROUTINE cxios_get_filegroup_using_server2(filegroup_hdl, using_server2) BIND(C) 
     801      USE ISO_C_BINDING 
     802      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     803      LOGICAL (KIND=C_BOOL)             :: using_server2 
     804    END SUBROUTINE cxios_get_filegroup_using_server2 
     805 
     806    FUNCTION cxios_is_defined_filegroup_using_server2(filegroup_hdl) BIND(C) 
     807      USE ISO_C_BINDING 
     808      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_using_server2 
     809      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     810    END FUNCTION cxios_is_defined_filegroup_using_server2 
     811 
     812 
    689813    SUBROUTINE cxios_set_filegroup_uuid_format(filegroup_hdl, uuid_format, uuid_format_size) BIND(C) 
    690814      USE ISO_C_BINDING 
    … …  
    728852    END FUNCTION cxios_is_defined_filegroup_uuid_name 
    729853 
     854 
     855    SUBROUTINE cxios_set_filegroup_writer(filegroup_hdl, writer, writer_size) BIND(C) 
     856      USE ISO_C_BINDING 
     857      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     858      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: writer 
     859      INTEGER  (kind = C_INT)     , VALUE        :: writer_size 
     860    END SUBROUTINE cxios_set_filegroup_writer 
     861 
     862    SUBROUTINE cxios_get_filegroup_writer(filegroup_hdl, writer, writer_size) BIND(C) 
     863      USE ISO_C_BINDING 
     864      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     865      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: writer 
     866      INTEGER  (kind = C_INT)     , VALUE        :: writer_size 
     867    END SUBROUTINE cxios_get_filegroup_writer 
     868 
     869    FUNCTION cxios_is_defined_filegroup_writer(filegroup_hdl) BIND(C) 
     870      USE ISO_C_BINDING 
     871      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_writer 
     872      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     873    END FUNCTION cxios_is_defined_filegroup_writer 
     874 
    730875  END INTERFACE 
    731876 

  • XIOS3/trunk/src/interface/fortran_attr/iaxis_attr.F90

    r1492 r2616  
    1212 
    1313  SUBROUTINE xios(set_axis_attr)  & 
    14     ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    15     , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  & 
    16     , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  & 
    17     , value ) 
     14    ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     15    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  & 
     16    , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     17    , unit, value ) 
    1818 
    1919    IMPLICIT NONE 
    … …  
    2525      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) 
    2626      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 
     27      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight 
    2728      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    2829      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin 
    … …  
    5253      (axis_id,axis_hdl) 
    5354      CALL xios(set_axis_attr_hdl_)   & 
    54       ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    55       , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  & 
    56       , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  & 
    57       , value ) 
     55      ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     56      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  & 
     57      , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     58      , unit, value ) 
    5859 
    5960  END SUBROUTINE xios(set_axis_attr) 
    6061 
    6162  SUBROUTINE xios(set_axis_attr_hdl)  & 
    62     ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    63     , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  & 
    64     , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  & 
    65     , value ) 
     63    ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     64    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  & 
     65    , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     66    , unit, value ) 
    6667 
    6768    IMPLICIT NONE 
    … …  
    7273      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) 
    7374      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 
     75      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight 
    7476      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    7577      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin 
    … …  
    9799 
    98100      CALL xios(set_axis_attr_hdl_)  & 
    99       ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    100       , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  & 
    101       , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  & 
    102       , value ) 
     101      ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     102      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  & 
     103      , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     104      , unit, value ) 
    103105 
    104106  END SUBROUTINE xios(set_axis_attr_hdl) 
    105107 
    106108  SUBROUTINE xios(set_axis_attr_hdl_)   & 
    107     ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_, data_index_  & 
    108     , data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_, index_  & 
    109     , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_  & 
    110     , unit_, value_ ) 
     109    ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_  & 
     110    , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  & 
     111    , index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_  & 
     112    , prec_, standard_name_, unit_, value_ ) 
    111113 
    112114    IMPLICIT NONE 
    … …  
    117119      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:) 
    118120      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_ 
     121      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_ 
    119122      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 
    120123      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin_ 
    … …  
    166169      ENDIF 
    167170 
     171      IF (PRESENT(chunking_weight_)) THEN 
     172        CALL cxios_set_axis_chunking_weight & 
     173      (axis_hdl%daddr, chunking_weight_) 
     174      ENDIF 
     175 
    168176      IF (PRESENT(comment_)) THEN 
    169177        CALL cxios_set_axis_comment & 
    … …  
    281289 
    282290  SUBROUTINE xios(get_axis_attr)  & 
    283     ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    284     , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  & 
    285     , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  & 
    286     , value ) 
     291    ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     292    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  & 
     293    , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     294    , unit, value ) 
    287295 
    288296    IMPLICIT NONE 
    … …  
    294302      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) 
    295303      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 
     304      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight 
    296305      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    297306      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin 
    … …  
    321330      (axis_id,axis_hdl) 
    322331      CALL xios(get_axis_attr_hdl_)   & 
    323       ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    324       , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  & 
    325       , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  & 
    326       , value ) 
     332      ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     333      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  & 
     334      , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     335      , unit, value ) 
    327336 
    328337  END SUBROUTINE xios(get_axis_attr) 
    329338 
    330339  SUBROUTINE xios(get_axis_attr_hdl)  & 
    331     ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    332     , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  & 
    333     , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  & 
    334     , value ) 
     340    ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     341    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  & 
     342    , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     343    , unit, value ) 
    335344 
    336345    IMPLICIT NONE 
    … …  
    341350      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) 
    342351      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 
     352      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight 
    343353      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    344354      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin 
    … …  
    366376 
    367377      CALL xios(get_axis_attr_hdl_)  & 
    368       ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    369       , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  & 
    370       , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  & 
    371       , value ) 
     378      ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     379      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  & 
     380      , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     381      , unit, value ) 
    372382 
    373383  END SUBROUTINE xios(get_axis_attr_hdl) 
    374384 
    375385  SUBROUTINE xios(get_axis_attr_hdl_)   & 
    376     ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_, data_index_  & 
    377     , data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_, index_  & 
    378     , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_  & 
    379     , unit_, value_ ) 
     386    ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_  & 
     387    , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  & 
     388    , index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_  & 
     389    , prec_, standard_name_, unit_, value_ ) 
    380390 
    381391    IMPLICIT NONE 
    … …  
    386396      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:) 
    387397      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_ 
     398      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_ 
    388399      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 
    389400      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin_ 
    … …  
    435446      ENDIF 
    436447 
     448      IF (PRESENT(chunking_weight_)) THEN 
     449        CALL cxios_get_axis_chunking_weight & 
     450      (axis_hdl%daddr, chunking_weight_) 
     451      ENDIF 
     452 
    437453      IF (PRESENT(comment_)) THEN 
    438454        CALL cxios_get_axis_comment & 
    … …  
    550566 
    551567  SUBROUTINE xios(is_defined_axis_attr)  & 
    552     ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    553     , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  & 
    554     , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  & 
    555     , value ) 
     568    ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     569    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  & 
     570    , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     571    , unit, value ) 
    556572 
    557573    IMPLICIT NONE 
    … …  
    568584      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 
    569585      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 
     586      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight 
     587      LOGICAL(KIND=C_BOOL) :: chunking_weight_tmp 
    570588      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
    571589      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    … …  
    616634      (axis_id,axis_hdl) 
    617635      CALL xios(is_defined_axis_attr_hdl_)   & 
    618       ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    619       , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  & 
    620       , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  & 
    621       , value ) 
     636      ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     637      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  & 
     638      , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     639      , unit, value ) 
    622640 
    623641  END SUBROUTINE xios(is_defined_axis_attr) 
    624642 
    625643  SUBROUTINE xios(is_defined_axis_attr_hdl)  & 
    626     ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    627     , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  & 
    628     , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  & 
    629     , value ) 
     644    ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     645    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  & 
     646    , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     647    , unit, value ) 
    630648 
    631649    IMPLICIT NONE 
    … …  
    641659      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 
    642660      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 
     661      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight 
     662      LOGICAL(KIND=C_BOOL) :: chunking_weight_tmp 
    643663      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
    644664      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    … …  
    687707 
    688708      CALL xios(is_defined_axis_attr_hdl_)  & 
    689       ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    690       , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  & 
    691       , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  & 
    692       , value ) 
     709      ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     710      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  & 
     711      , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     712      , unit, value ) 
    693713 
    694714  END SUBROUTINE xios(is_defined_axis_attr_hdl) 
    695715 
    696716  SUBROUTINE xios(is_defined_axis_attr_hdl_)   & 
    697     ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_, data_index_  & 
    698     , data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_, index_  & 
    699     , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_  & 
    700     , unit_, value_ ) 
     717    ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_  & 
     718    , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  & 
     719    , index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_  & 
     720    , prec_, standard_name_, unit_, value_ ) 
    701721 
    702722    IMPLICIT NONE 
    … …  
    712732      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_ 
    713733      LOGICAL(KIND=C_BOOL) :: bounds_name__tmp 
     734      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_ 
     735      LOGICAL(KIND=C_BOOL) :: chunking_weight__tmp 
    714736      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 
    715737      LOGICAL(KIND=C_BOOL) :: comment__tmp 
    … …  
    787809      ENDIF 
    788810 
     811      IF (PRESENT(chunking_weight_)) THEN 
     812        chunking_weight__tmp = cxios_is_defined_axis_chunking_weight & 
     813      (axis_hdl%daddr) 
     814        chunking_weight_ = chunking_weight__tmp 
     815      ENDIF 
     816 
    789817      IF (PRESENT(comment_)) THEN 
    790818        comment__tmp = cxios_is_defined_axis_comment & 

  • XIOS3/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90

    r1492 r2616  
    1212 
    1313  SUBROUTINE xios(set_axisgroup_attr)  & 
    14     ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    15     , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index  & 
    16     , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     14    ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     15    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  & 
     16    , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
    1717    , unit, value ) 
    1818 
    … …  
    2525      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) 
    2626      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 
     27      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight 
    2728      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    2829      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin 
    … …  
    5354      (axisgroup_id,axisgroup_hdl) 
    5455      CALL xios(set_axisgroup_attr_hdl_)   & 
    55       ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    56       , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index  & 
    57       , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     56      ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     57      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  & 
     58      , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
    5859      , unit, value ) 
    5960 
    … …  
    6162 
    6263  SUBROUTINE xios(set_axisgroup_attr_hdl)  & 
    63     ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    64     , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index  & 
    65     , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     64    ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     65    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  & 
     66    , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
    6667    , unit, value ) 
    6768 
    … …  
    7374      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) 
    7475      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 
     76      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight 
    7577      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    7678      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin 
    … …  
    99101 
    100102      CALL xios(set_axisgroup_attr_hdl_)  & 
    101       ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    102       , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index  & 
    103       , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     103      ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     104      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  & 
     105      , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
    104106      , unit, value ) 
    105107 
    … …  
    107109 
    108110  SUBROUTINE xios(set_axisgroup_attr_hdl_)   & 
    109     ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_  & 
    110     , data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  & 
     111    ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_  & 
     112    , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  & 
    111113    , group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_  & 
    112114    , positive_, prec_, standard_name_, unit_, value_ ) 
    … …  
    119121      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:) 
    120122      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_ 
     123      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_ 
    121124      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 
    122125      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin_ 
    … …  
    169172      ENDIF 
    170173 
     174      IF (PRESENT(chunking_weight_)) THEN 
     175        CALL cxios_set_axisgroup_chunking_weight & 
     176      (axisgroup_hdl%daddr, chunking_weight_) 
     177      ENDIF 
     178 
    171179      IF (PRESENT(comment_)) THEN 
    172180        CALL cxios_set_axisgroup_comment & 
    … …  
    289297 
    290298  SUBROUTINE xios(get_axisgroup_attr)  & 
    291     ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    292     , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index  & 
    293     , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     299    ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     300    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  & 
     301    , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
    294302    , unit, value ) 
    295303 
    … …  
    302310      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) 
    303311      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 
     312      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight 
    304313      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    305314      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin 
    … …  
    330339      (axisgroup_id,axisgroup_hdl) 
    331340      CALL xios(get_axisgroup_attr_hdl_)   & 
    332       ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    333       , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index  & 
    334       , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     341      ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     342      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  & 
     343      , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
    335344      , unit, value ) 
    336345 
    … …  
    338347 
    339348  SUBROUTINE xios(get_axisgroup_attr_hdl)  & 
    340     ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    341     , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index  & 
    342     , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     349    ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     350    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  & 
     351    , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
    343352    , unit, value ) 
    344353 
    … …  
    350359      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) 
    351360      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 
     361      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight 
    352362      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    353363      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin 
    … …  
    376386 
    377387      CALL xios(get_axisgroup_attr_hdl_)  & 
    378       ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    379       , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index  & 
    380       , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     388      ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     389      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  & 
     390      , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
    381391      , unit, value ) 
    382392 
    … …  
    384394 
    385395  SUBROUTINE xios(get_axisgroup_attr_hdl_)   & 
    386     ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_  & 
    387     , data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  & 
     396    ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_  & 
     397    , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  & 
    388398    , group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_  & 
    389399    , positive_, prec_, standard_name_, unit_, value_ ) 
    … …  
    396406      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:) 
    397407      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_ 
     408      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_ 
    398409      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 
    399410      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin_ 
    … …  
    446457      ENDIF 
    447458 
     459      IF (PRESENT(chunking_weight_)) THEN 
     460        CALL cxios_get_axisgroup_chunking_weight & 
     461      (axisgroup_hdl%daddr, chunking_weight_) 
     462      ENDIF 
     463 
    448464      IF (PRESENT(comment_)) THEN 
    449465        CALL cxios_get_axisgroup_comment & 
    … …  
    566582 
    567583  SUBROUTINE xios(is_defined_axisgroup_attr)  & 
    568     ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    569     , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index  & 
    570     , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     584    ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     585    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  & 
     586    , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
    571587    , unit, value ) 
    572588 
    … …  
    584600      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 
    585601      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 
     602      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight 
     603      LOGICAL(KIND=C_BOOL) :: chunking_weight_tmp 
    586604      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
    587605      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    … …  
    634652      (axisgroup_id,axisgroup_hdl) 
    635653      CALL xios(is_defined_axisgroup_attr_hdl_)   & 
    636       ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    637       , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index  & 
    638       , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     654      ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     655      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  & 
     656      , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
    639657      , unit, value ) 
    640658 
    … …  
    642660 
    643661  SUBROUTINE xios(is_defined_axisgroup_attr_hdl)  & 
    644     ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    645     , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index  & 
    646     , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     662    ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     663    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  & 
     664    , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
    647665    , unit, value ) 
    648666 
    … …  
    659677      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 
    660678      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 
     679      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight 
     680      LOGICAL(KIND=C_BOOL) :: chunking_weight_tmp 
    661681      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
    662682      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    … …  
    707727 
    708728      CALL xios(is_defined_axisgroup_attr_hdl_)  & 
    709       ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  & 
    710       , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index  & 
    711       , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
     729      ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  & 
     730      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  & 
     731      , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  & 
    712732      , unit, value ) 
    713733 
    … …  
    715735 
    716736  SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)   & 
    717     ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_  & 
    718     , data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  & 
     737    ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_  & 
     738    , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  & 
    719739    , group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_  & 
    720740    , positive_, prec_, standard_name_, unit_, value_ ) 
    … …  
    732752      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_ 
    733753      LOGICAL(KIND=C_BOOL) :: bounds_name__tmp 
     754      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_ 
     755      LOGICAL(KIND=C_BOOL) :: chunking_weight__tmp 
    734756      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 
    735757      LOGICAL(KIND=C_BOOL) :: comment__tmp 
    … …  
    809831      ENDIF 
    810832 
     833      IF (PRESENT(chunking_weight_)) THEN 
     834        chunking_weight__tmp = cxios_is_defined_axisgroup_chunking_weight & 
     835      (axisgroup_hdl%daddr) 
     836        chunking_weight_ = chunking_weight__tmp 
     837      ENDIF 
     838 
    811839      IF (PRESENT(comment_)) THEN 
    812840        comment__tmp = cxios_is_defined_axisgroup_comment & 

  • XIOS3/trunk/src/interface/fortran_attr/icontext_attr.F90

    r1941 r2616  
    1212 
    1313  SUBROUTINE xios(set_context_attr)  & 
    14     ( context_id, attached_mode, output_dir ) 
     14    ( context_id, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     15    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    1516 
    1617    IMPLICIT NONE 
    … …  
    1920      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode 
    2021      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 
     22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_gatherer 
     23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool 
     24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_gatherer 
     25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_reader 
     26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_writer 
     27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_reader 
     28      LOGICAL  , OPTIONAL, INTENT(IN) :: default_using_server2 
     29      LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp 
     30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_writer 
    2131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir 
    2232 
    … …  
    2434      (context_id,context_hdl) 
    2535      CALL xios(set_context_attr_hdl_)   & 
    26       ( context_hdl, attached_mode, output_dir ) 
     36      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     37      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    2738 
    2839  END SUBROUTINE xios(set_context_attr) 
    2940 
    3041  SUBROUTINE xios(set_context_attr_hdl)  & 
    31     ( context_hdl, attached_mode, output_dir ) 
     42    ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     43    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    3244 
    3345    IMPLICIT NONE 
    … …  
    3547      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode 
    3648      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 
     49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_gatherer 
     50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool 
     51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_gatherer 
     52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_reader 
     53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_writer 
     54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_reader 
     55      LOGICAL  , OPTIONAL, INTENT(IN) :: default_using_server2 
     56      LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp 
     57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_writer 
    3758      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir 
    3859 
    3960      CALL xios(set_context_attr_hdl_)  & 
    40       ( context_hdl, attached_mode, output_dir ) 
     61      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     62      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    4163 
    4264  END SUBROUTINE xios(set_context_attr_hdl) 
    4365 
    4466  SUBROUTINE xios(set_context_attr_hdl_)   & 
    45     ( context_hdl, attached_mode_, output_dir_ ) 
     67    ( context_hdl, attached_mode_, default_gatherer_, default_pool_, default_pool_gatherer_, default_pool_reader_  & 
     68    , default_pool_writer_, default_reader_, default_using_server2_, default_writer_, output_dir_  & 
     69     ) 
    4670 
    4771    IMPLICIT NONE 
    … …  
    4973      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode_ 
    5074      LOGICAL (KIND=C_BOOL) :: attached_mode__tmp 
     75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_gatherer_ 
     76      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_ 
     77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_gatherer_ 
     78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_reader_ 
     79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_writer_ 
     80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_reader_ 
     81      LOGICAL  , OPTIONAL, INTENT(IN) :: default_using_server2_ 
     82      LOGICAL (KIND=C_BOOL) :: default_using_server2__tmp 
     83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_writer_ 
    5184      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_ 
    5285 
    … …  
    5790      ENDIF 
    5891 
     92      IF (PRESENT(default_gatherer_)) THEN 
     93        CALL cxios_set_context_default_gatherer & 
     94      (context_hdl%daddr, default_gatherer_, len(default_gatherer_)) 
     95      ENDIF 
     96 
     97      IF (PRESENT(default_pool_)) THEN 
     98        CALL cxios_set_context_default_pool & 
     99      (context_hdl%daddr, default_pool_, len(default_pool_)) 
     100      ENDIF 
     101 
     102      IF (PRESENT(default_pool_gatherer_)) THEN 
     103        CALL cxios_set_context_default_pool_gatherer & 
     104      (context_hdl%daddr, default_pool_gatherer_, len(default_pool_gatherer_)) 
     105      ENDIF 
     106 
     107      IF (PRESENT(default_pool_reader_)) THEN 
     108        CALL cxios_set_context_default_pool_reader & 
     109      (context_hdl%daddr, default_pool_reader_, len(default_pool_reader_)) 
     110      ENDIF 
     111 
     112      IF (PRESENT(default_pool_writer_)) THEN 
     113        CALL cxios_set_context_default_pool_writer & 
     114      (context_hdl%daddr, default_pool_writer_, len(default_pool_writer_)) 
     115      ENDIF 
     116 
     117      IF (PRESENT(default_reader_)) THEN 
     118        CALL cxios_set_context_default_reader & 
     119      (context_hdl%daddr, default_reader_, len(default_reader_)) 
     120      ENDIF 
     121 
     122      IF (PRESENT(default_using_server2_)) THEN 
     123        default_using_server2__tmp = default_using_server2_ 
     124        CALL cxios_set_context_default_using_server2 & 
     125      (context_hdl%daddr, default_using_server2__tmp) 
     126      ENDIF 
     127 
     128      IF (PRESENT(default_writer_)) THEN 
     129        CALL cxios_set_context_default_writer & 
     130      (context_hdl%daddr, default_writer_, len(default_writer_)) 
     131      ENDIF 
     132 
    59133      IF (PRESENT(output_dir_)) THEN 
    60134        CALL cxios_set_context_output_dir & 
    … …  
    65139 
    66140  SUBROUTINE xios(get_context_attr)  & 
    67     ( context_id, attached_mode, output_dir ) 
     141    ( context_id, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     142    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    68143 
    69144    IMPLICIT NONE 
    … …  
    72147      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode 
    73148      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 
     149      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_gatherer 
     150      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool 
     151      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_gatherer 
     152      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_reader 
     153      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_writer 
     154      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_reader 
     155      LOGICAL  , OPTIONAL, INTENT(OUT) :: default_using_server2 
     156      LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp 
     157      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_writer 
    74158      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir 
    75159 
    … …  
    77161      (context_id,context_hdl) 
    78162      CALL xios(get_context_attr_hdl_)   & 
    79       ( context_hdl, attached_mode, output_dir ) 
     163      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     164      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    80165 
    81166  END SUBROUTINE xios(get_context_attr) 
    82167 
    83168  SUBROUTINE xios(get_context_attr_hdl)  & 
    84     ( context_hdl, attached_mode, output_dir ) 
     169    ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     170    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    85171 
    86172    IMPLICIT NONE 
    … …  
    88174      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode 
    89175      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 
     176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_gatherer 
     177      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool 
     178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_gatherer 
     179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_reader 
     180      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_writer 
     181      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_reader 
     182      LOGICAL  , OPTIONAL, INTENT(OUT) :: default_using_server2 
     183      LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp 
     184      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_writer 
    90185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir 
    91186 
    92187      CALL xios(get_context_attr_hdl_)  & 
    93       ( context_hdl, attached_mode, output_dir ) 
     188      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     189      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    94190 
    95191  END SUBROUTINE xios(get_context_attr_hdl) 
    96192 
    97193  SUBROUTINE xios(get_context_attr_hdl_)   & 
    98     ( context_hdl, attached_mode_, output_dir_ ) 
     194    ( context_hdl, attached_mode_, default_gatherer_, default_pool_, default_pool_gatherer_, default_pool_reader_  & 
     195    , default_pool_writer_, default_reader_, default_using_server2_, default_writer_, output_dir_  & 
     196     ) 
    99197 
    100198    IMPLICIT NONE 
    … …  
    102200      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode_ 
    103201      LOGICAL (KIND=C_BOOL) :: attached_mode__tmp 
     202      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_gatherer_ 
     203      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_ 
     204      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_gatherer_ 
     205      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_reader_ 
     206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_writer_ 
     207      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_reader_ 
     208      LOGICAL  , OPTIONAL, INTENT(OUT) :: default_using_server2_ 
     209      LOGICAL (KIND=C_BOOL) :: default_using_server2__tmp 
     210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_writer_ 
    104211      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_ 
    105212 
    … …  
    110217      ENDIF 
    111218 
     219      IF (PRESENT(default_gatherer_)) THEN 
     220        CALL cxios_get_context_default_gatherer & 
     221      (context_hdl%daddr, default_gatherer_, len(default_gatherer_)) 
     222      ENDIF 
     223 
     224      IF (PRESENT(default_pool_)) THEN 
     225        CALL cxios_get_context_default_pool & 
     226      (context_hdl%daddr, default_pool_, len(default_pool_)) 
     227      ENDIF 
     228 
     229      IF (PRESENT(default_pool_gatherer_)) THEN 
     230        CALL cxios_get_context_default_pool_gatherer & 
     231      (context_hdl%daddr, default_pool_gatherer_, len(default_pool_gatherer_)) 
     232      ENDIF 
     233 
     234      IF (PRESENT(default_pool_reader_)) THEN 
     235        CALL cxios_get_context_default_pool_reader & 
     236      (context_hdl%daddr, default_pool_reader_, len(default_pool_reader_)) 
     237      ENDIF 
     238 
     239      IF (PRESENT(default_pool_writer_)) THEN 
     240        CALL cxios_get_context_default_pool_writer & 
     241      (context_hdl%daddr, default_pool_writer_, len(default_pool_writer_)) 
     242      ENDIF 
     243 
     244      IF (PRESENT(default_reader_)) THEN 
     245        CALL cxios_get_context_default_reader & 
     246      (context_hdl%daddr, default_reader_, len(default_reader_)) 
     247      ENDIF 
     248 
     249      IF (PRESENT(default_using_server2_)) THEN 
     250        CALL cxios_get_context_default_using_server2 & 
     251      (context_hdl%daddr, default_using_server2__tmp) 
     252        default_using_server2_ = default_using_server2__tmp 
     253      ENDIF 
     254 
     255      IF (PRESENT(default_writer_)) THEN 
     256        CALL cxios_get_context_default_writer & 
     257      (context_hdl%daddr, default_writer_, len(default_writer_)) 
     258      ENDIF 
     259 
    112260      IF (PRESENT(output_dir_)) THEN 
    113261        CALL cxios_get_context_output_dir & 
    … …  
    118266 
    119267  SUBROUTINE xios(is_defined_context_attr)  & 
    120     ( context_id, attached_mode, output_dir ) 
     268    ( context_id, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     269    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    121270 
    122271    IMPLICIT NONE 
    … …  
    125274      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode 
    126275      LOGICAL(KIND=C_BOOL) :: attached_mode_tmp 
     276      LOGICAL, OPTIONAL, INTENT(OUT) :: default_gatherer 
     277      LOGICAL(KIND=C_BOOL) :: default_gatherer_tmp 
     278      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool 
     279      LOGICAL(KIND=C_BOOL) :: default_pool_tmp 
     280      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_gatherer 
     281      LOGICAL(KIND=C_BOOL) :: default_pool_gatherer_tmp 
     282      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_reader 
     283      LOGICAL(KIND=C_BOOL) :: default_pool_reader_tmp 
     284      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_writer 
     285      LOGICAL(KIND=C_BOOL) :: default_pool_writer_tmp 
     286      LOGICAL, OPTIONAL, INTENT(OUT) :: default_reader 
     287      LOGICAL(KIND=C_BOOL) :: default_reader_tmp 
     288      LOGICAL, OPTIONAL, INTENT(OUT) :: default_using_server2 
     289      LOGICAL(KIND=C_BOOL) :: default_using_server2_tmp 
     290      LOGICAL, OPTIONAL, INTENT(OUT) :: default_writer 
     291      LOGICAL(KIND=C_BOOL) :: default_writer_tmp 
    127292      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 
    128293      LOGICAL(KIND=C_BOOL) :: output_dir_tmp 
    … …  
    131296      (context_id,context_hdl) 
    132297      CALL xios(is_defined_context_attr_hdl_)   & 
    133       ( context_hdl, attached_mode, output_dir ) 
     298      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     299      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    134300 
    135301  END SUBROUTINE xios(is_defined_context_attr) 
    136302 
    137303  SUBROUTINE xios(is_defined_context_attr_hdl)  & 
    138     ( context_hdl, attached_mode, output_dir ) 
     304    ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     305    , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    139306 
    140307    IMPLICIT NONE 
    … …  
    142309      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode 
    143310      LOGICAL(KIND=C_BOOL) :: attached_mode_tmp 
     311      LOGICAL, OPTIONAL, INTENT(OUT) :: default_gatherer 
     312      LOGICAL(KIND=C_BOOL) :: default_gatherer_tmp 
     313      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool 
     314      LOGICAL(KIND=C_BOOL) :: default_pool_tmp 
     315      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_gatherer 
     316      LOGICAL(KIND=C_BOOL) :: default_pool_gatherer_tmp 
     317      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_reader 
     318      LOGICAL(KIND=C_BOOL) :: default_pool_reader_tmp 
     319      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_writer 
     320      LOGICAL(KIND=C_BOOL) :: default_pool_writer_tmp 
     321      LOGICAL, OPTIONAL, INTENT(OUT) :: default_reader 
     322      LOGICAL(KIND=C_BOOL) :: default_reader_tmp 
     323      LOGICAL, OPTIONAL, INTENT(OUT) :: default_using_server2 
     324      LOGICAL(KIND=C_BOOL) :: default_using_server2_tmp 
     325      LOGICAL, OPTIONAL, INTENT(OUT) :: default_writer 
     326      LOGICAL(KIND=C_BOOL) :: default_writer_tmp 
    144327      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 
    145328      LOGICAL(KIND=C_BOOL) :: output_dir_tmp 
    146329 
    147330      CALL xios(is_defined_context_attr_hdl_)  & 
    148       ( context_hdl, attached_mode, output_dir ) 
     331      ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader  & 
     332      , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 
    149333 
    150334  END SUBROUTINE xios(is_defined_context_attr_hdl) 
    151335 
    152336  SUBROUTINE xios(is_defined_context_attr_hdl_)   & 
    153     ( context_hdl, attached_mode_, output_dir_ ) 
     337    ( context_hdl, attached_mode_, default_gatherer_, default_pool_, default_pool_gatherer_, default_pool_reader_  & 
     338    , default_pool_writer_, default_reader_, default_using_server2_, default_writer_, output_dir_  & 
     339     ) 
    154340 
    155341    IMPLICIT NONE 
    … …  
    157343      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode_ 
    158344      LOGICAL(KIND=C_BOOL) :: attached_mode__tmp 
     345      LOGICAL, OPTIONAL, INTENT(OUT) :: default_gatherer_ 
     346      LOGICAL(KIND=C_BOOL) :: default_gatherer__tmp 
     347      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_ 
     348      LOGICAL(KIND=C_BOOL) :: default_pool__tmp 
     349      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_gatherer_ 
     350      LOGICAL(KIND=C_BOOL) :: default_pool_gatherer__tmp 
     351      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_reader_ 
     352      LOGICAL(KIND=C_BOOL) :: default_pool_reader__tmp 
     353      LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_writer_ 
     354      LOGICAL(KIND=C_BOOL) :: default_pool_writer__tmp 
     355      LOGICAL, OPTIONAL, INTENT(OUT) :: default_reader_ 
     356      LOGICAL(KIND=C_BOOL) :: default_reader__tmp 
     357      LOGICAL, OPTIONAL, INTENT(OUT) :: default_using_server2_ 
     358      LOGICAL(KIND=C_BOOL) :: default_using_server2__tmp 
     359      LOGICAL, OPTIONAL, INTENT(OUT) :: default_writer_ 
     360      LOGICAL(KIND=C_BOOL) :: default_writer__tmp 
    159361      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_ 
    160362      LOGICAL(KIND=C_BOOL) :: output_dir__tmp 
    … …  
    166368      ENDIF 
    167369 
     370      IF (PRESENT(default_gatherer_)) THEN 
     371        default_gatherer__tmp = cxios_is_defined_context_default_gatherer & 
     372      (context_hdl%daddr) 
     373        default_gatherer_ = default_gatherer__tmp 
     374      ENDIF 
     375 
     376      IF (PRESENT(default_pool_)) THEN 
     377        default_pool__tmp = cxios_is_defined_context_default_pool & 
     378      (context_hdl%daddr) 
     379        default_pool_ = default_pool__tmp 
     380      ENDIF 
     381 
     382      IF (PRESENT(default_pool_gatherer_)) THEN 
     383        default_pool_gatherer__tmp = cxios_is_defined_context_default_pool_gatherer & 
     384      (context_hdl%daddr) 
     385        default_pool_gatherer_ = default_pool_gatherer__tmp 
     386      ENDIF 
     387 
     388      IF (PRESENT(default_pool_reader_)) THEN 
     389        default_pool_reader__tmp = cxios_is_defined_context_default_pool_reader & 
     390      (context_hdl%daddr) 
     391        default_pool_reader_ = default_pool_reader__tmp 
     392      ENDIF 
     393 
     394      IF (PRESENT(default_pool_writer_)) THEN 
     395        default_pool_writer__tmp = cxios_is_defined_context_default_pool_writer & 
     396      (context_hdl%daddr) 
     397        default_pool_writer_ = default_pool_writer__tmp 
     398      ENDIF 
     399 
     400      IF (PRESENT(default_reader_)) THEN 
     401        default_reader__tmp = cxios_is_defined_context_default_reader & 
     402      (context_hdl%daddr) 
     403        default_reader_ = default_reader__tmp 
     404      ENDIF 
     405 
     406      IF (PRESENT(default_using_server2_)) THEN 
     407        default_using_server2__tmp = cxios_is_defined_context_default_using_server2 & 
     408      (context_hdl%daddr) 
     409        default_using_server2_ = default_using_server2__tmp 
     410      ENDIF 
     411 
     412      IF (PRESENT(default_writer_)) THEN 
     413        default_writer__tmp = cxios_is_defined_context_default_writer & 
     414      (context_hdl%daddr) 
     415        default_writer_ = default_writer__tmp 
     416      ENDIF 
     417 
    168418      IF (PRESENT(output_dir_)) THEN 
    169419        output_dir__tmp = cxios_is_defined_context_output_dir & 

  • XIOS3/trunk/src/interface/fortran_attr/idomain_attr.F90

    r1626 r2616  
    1212 
    1313  SUBROUTINE xios(set_domain_attr)  & 
    14     ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    15     , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    16     , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    17     , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    18     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     14    ( domain_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     15    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     16    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     17    , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name  & 
     18    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name  & 
     19    , prec, radius, standard_name, type ) 
    1920 
    2021    IMPLICIT NONE 
    … …  
    2223      CHARACTER(LEN=*), INTENT(IN) ::domain_id 
    2324      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:) 
     25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d(:) 
     26      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d(:,:) 
    2427      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 
    2528      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) 
    … …  
    2831      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 
    2932      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 
     33      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i 
     34      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j 
    3035      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    3136      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim 
    … …  
    6065      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
    6166      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
     67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name 
    6268      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    6369      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    … …  
    6874      (domain_id,domain_hdl) 
    6975      CALL xios(set_domain_attr_hdl_)   & 
    70       ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    71       , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    72       , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    73       , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    74       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     76      ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     77      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     78      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     79      , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name  & 
     80      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name  & 
     81      , prec, radius, standard_name, type ) 
    7582 
    7683  END SUBROUTINE xios(set_domain_attr) 
    7784 
    7885  SUBROUTINE xios(set_domain_attr_hdl)  & 
    79     ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    80     , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    81     , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    82     , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    83     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     86    ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     87    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     88    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     89    , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name  & 
     90    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name  & 
     91    , prec, radius, standard_name, type ) 
    8492 
    8593    IMPLICIT NONE 
    8694      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl 
    8795      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:) 
     96      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d(:) 
     97      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d(:,:) 
    8898      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 
    8999      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) 
    … …  
    92102      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 
    93103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 
     104      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i 
     105      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j 
    94106      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    95107      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim 
    … …  
    124136      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
    125137      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
     138      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name 
    126139      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    127140      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    … …  
    130143 
    131144      CALL xios(set_domain_attr_hdl_)  & 
    132       ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    133       , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    134       , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    135       , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    136       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     145      ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     146      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     147      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     148      , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name  & 
     149      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name  & 
     150      , prec, radius, standard_name, type ) 
    137151 
    138152  END SUBROUTINE xios(set_domain_attr_hdl) 
    139153 
    140154  SUBROUTINE xios(set_domain_attr_hdl_)   & 
    141     ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  & 
    142     , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  & 
    143     , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    144     , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    145     , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_  & 
    146     ) 
     155    ( domain_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_  & 
     156    , bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_, data_dim_  & 
     157    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_  & 
     158    , dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_, latvalue_2d_  & 
     159    , lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_  & 
     160    , nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_ ) 
    147161 
    148162    IMPLICIT NONE 
    149163      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl 
    150164      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:) 
     165      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d_(:) 
     166      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d_(:,:) 
    151167      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:) 
    152168      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:) 
    … …  
    155171      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:) 
    156172      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_ 
     173      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i_ 
     174      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j_ 
    157175      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 
    158176      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_ 
    … …  
    187205      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_ 
    188206      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_ 
     207      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name_ 
    189208      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
    190209      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 
    … …  
    197216      ENDIF 
    198217 
     218      IF (PRESENT(area_1d_)) THEN 
     219        CALL cxios_set_domain_area_1d & 
     220      (domain_hdl%daddr, area_1d_, SHAPE(area_1d_)) 
     221      ENDIF 
     222 
     223      IF (PRESENT(area_2d_)) THEN 
     224        CALL cxios_set_domain_area_2d & 
     225      (domain_hdl%daddr, area_2d_, SHAPE(area_2d_)) 
     226      ENDIF 
     227 
    199228      IF (PRESENT(bounds_lat_1d_)) THEN 
    200229        CALL cxios_set_domain_bounds_lat_1d & 
    … …  
    225254        CALL cxios_set_domain_bounds_lon_name & 
    226255      (domain_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 
     256      ENDIF 
     257 
     258      IF (PRESENT(chunking_weight_i_)) THEN 
     259        CALL cxios_set_domain_chunking_weight_i & 
     260      (domain_hdl%daddr, chunking_weight_i_) 
     261      ENDIF 
     262 
     263      IF (PRESENT(chunking_weight_j_)) THEN 
     264        CALL cxios_set_domain_chunking_weight_j & 
     265      (domain_hdl%daddr, chunking_weight_j_) 
    227266      ENDIF 
    228267 
    … …  
    381420      ENDIF 
    382421 
     422      IF (PRESENT(nvertex_name_)) THEN 
     423        CALL cxios_set_domain_nvertex_name & 
     424      (domain_hdl%daddr, nvertex_name_, len(nvertex_name_)) 
     425      ENDIF 
     426 
    383427      IF (PRESENT(prec_)) THEN 
    384428        CALL cxios_set_domain_prec & 
    … …  
    404448 
    405449  SUBROUTINE xios(get_domain_attr)  & 
    406     ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    407     , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    408     , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    409     , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    410     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     450    ( domain_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     451    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     452    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     453    , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name  & 
     454    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name  & 
     455    , prec, radius, standard_name, type ) 
    411456 
    412457    IMPLICIT NONE 
    … …  
    414459      CHARACTER(LEN=*), INTENT(IN) ::domain_id 
    415460      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:) 
     461      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d(:) 
     462      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d(:,:) 
    416463      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 
    417464      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) 
    … …  
    420467      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 
    421468      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 
     469      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i 
     470      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j 
    422471      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    423472      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim 
    … …  
    452501      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
    453502      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
     503      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name 
    454504      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    455505      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    … …  
    460510      (domain_id,domain_hdl) 
    461511      CALL xios(get_domain_attr_hdl_)   & 
    462       ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    463       , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    464       , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    465       , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    466       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     512      ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     513      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     514      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     515      , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name  & 
     516      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name  & 
     517      , prec, radius, standard_name, type ) 
    467518 
    468519  END SUBROUTINE xios(get_domain_attr) 
    469520 
    470521  SUBROUTINE xios(get_domain_attr_hdl)  & 
    471     ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    472     , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    473     , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    474     , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    475     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     522    ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     523    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     524    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     525    , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name  & 
     526    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name  & 
     527    , prec, radius, standard_name, type ) 
    476528 
    477529    IMPLICIT NONE 
    478530      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl 
    479531      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:) 
     532      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d(:) 
     533      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d(:,:) 
    480534      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 
    481535      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) 
    … …  
    484538      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 
    485539      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 
     540      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i 
     541      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j 
    486542      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    487543      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim 
    … …  
    516572      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
    517573      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
     574      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name 
    518575      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    519576      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    … …  
    522579 
    523580      CALL xios(get_domain_attr_hdl_)  & 
    524       ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    525       , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    526       , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    527       , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    528       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     581      ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     582      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     583      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     584      , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name  & 
     585      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name  & 
     586      , prec, radius, standard_name, type ) 
    529587 
    530588  END SUBROUTINE xios(get_domain_attr_hdl) 
    531589 
    532590  SUBROUTINE xios(get_domain_attr_hdl_)   & 
    533     ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  & 
    534     , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  & 
    535     , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    536     , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    537     , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_  & 
    538     ) 
     591    ( domain_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_  & 
     592    , bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_, data_dim_  & 
     593    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_  & 
     594    , dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_, latvalue_2d_  & 
     595    , lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_  & 
     596    , nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_ ) 
    539597 
    540598    IMPLICIT NONE 
    541599      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl 
    542600      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:) 
     601      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d_(:) 
     602      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d_(:,:) 
    543603      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:) 
    544604      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:) 
    … …  
    547607      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:) 
    548608      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 
     609      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i_ 
     610      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j_ 
    549611      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 
    550612      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_ 
    … …  
    579641      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_ 
    580642      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_ 
     643      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name_ 
    581644      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
    582645      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 
    … …  
    589652      ENDIF 
    590653 
     654      IF (PRESENT(area_1d_)) THEN 
     655        CALL cxios_get_domain_area_1d & 
     656      (domain_hdl%daddr, area_1d_, SHAPE(area_1d_)) 
     657      ENDIF 
     658 
     659      IF (PRESENT(area_2d_)) THEN 
     660        CALL cxios_get_domain_area_2d & 
     661      (domain_hdl%daddr, area_2d_, SHAPE(area_2d_)) 
     662      ENDIF 
     663 
    591664      IF (PRESENT(bounds_lat_1d_)) THEN 
    592665        CALL cxios_get_domain_bounds_lat_1d & 
    … …  
    617690        CALL cxios_get_domain_bounds_lon_name & 
    618691      (domain_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 
     692      ENDIF 
     693 
     694      IF (PRESENT(chunking_weight_i_)) THEN 
     695        CALL cxios_get_domain_chunking_weight_i & 
     696      (domain_hdl%daddr, chunking_weight_i_) 
     697      ENDIF 
     698 
     699      IF (PRESENT(chunking_weight_j_)) THEN 
     700        CALL cxios_get_domain_chunking_weight_j & 
     701      (domain_hdl%daddr, chunking_weight_j_) 
    619702      ENDIF 
    620703 
    … …  
    773856      ENDIF 
    774857 
     858      IF (PRESENT(nvertex_name_)) THEN 
     859        CALL cxios_get_domain_nvertex_name & 
     860      (domain_hdl%daddr, nvertex_name_, len(nvertex_name_)) 
     861      ENDIF 
     862 
    775863      IF (PRESENT(prec_)) THEN 
    776864        CALL cxios_get_domain_prec & 
    … …  
    796884 
    797885  SUBROUTINE xios(is_defined_domain_attr)  & 
    798     ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    799     , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    800     , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    801     , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    802     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     886    ( domain_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     887    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     888    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     889    , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name  & 
     890    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name  & 
     891    , prec, radius, standard_name, type ) 
    803892 
    804893    IMPLICIT NONE 
    … …  
    807896      LOGICAL, OPTIONAL, INTENT(OUT) :: area 
    808897      LOGICAL(KIND=C_BOOL) :: area_tmp 
     898      LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d 
     899      LOGICAL(KIND=C_BOOL) :: area_1d_tmp 
     900      LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d 
     901      LOGICAL(KIND=C_BOOL) :: area_2d_tmp 
    809902      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d 
    810903      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp 
    … …  
    819912      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 
    820913      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 
     914      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i 
     915      LOGICAL(KIND=C_BOOL) :: chunking_weight_i_tmp 
     916      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j 
     917      LOGICAL(KIND=C_BOOL) :: chunking_weight_j_tmp 
    821918      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
    822919      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    … …  
    879976      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    880977      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
     978      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name 
     979      LOGICAL(KIND=C_BOOL) :: nvertex_name_tmp 
    881980      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
    882981      LOGICAL(KIND=C_BOOL) :: prec_tmp 
    … …  
    891990      (domain_id,domain_hdl) 
    892991      CALL xios(is_defined_domain_attr_hdl_)   & 
    893       ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    894       , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    895       , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    896       , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    897       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     992      ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     993      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     994      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     995      , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name  & 
     996      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name  & 
     997      , prec, radius, standard_name, type ) 
    898998 
    899999  END SUBROUTINE xios(is_defined_domain_attr) 
    9001000 
    9011001  SUBROUTINE xios(is_defined_domain_attr_hdl)  & 
    902     ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    903     , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    904     , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    905     , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    906     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1002    ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     1003    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     1004    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     1005    , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name  & 
     1006    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name  & 
     1007    , prec, radius, standard_name, type ) 
    9071008 
    9081009    IMPLICIT NONE 
    … …  
    9101011      LOGICAL, OPTIONAL, INTENT(OUT) :: area 
    9111012      LOGICAL(KIND=C_BOOL) :: area_tmp 
     1013      LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d 
     1014      LOGICAL(KIND=C_BOOL) :: area_1d_tmp 
     1015      LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d 
     1016      LOGICAL(KIND=C_BOOL) :: area_2d_tmp 
    9121017      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d 
    9131018      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp 
    … …  
    9221027      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 
    9231028      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 
     1029      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i 
     1030      LOGICAL(KIND=C_BOOL) :: chunking_weight_i_tmp 
     1031      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j 
     1032      LOGICAL(KIND=C_BOOL) :: chunking_weight_j_tmp 
    9241033      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
    9251034      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    … …  
    9821091      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    9831092      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
     1093      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name 
     1094      LOGICAL(KIND=C_BOOL) :: nvertex_name_tmp 
    9841095      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
    9851096      LOGICAL(KIND=C_BOOL) :: prec_tmp 
    … …  
    9921103 
    9931104      CALL xios(is_defined_domain_attr_hdl_)  & 
    994       ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    995       , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    996       , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    997       , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    998       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1105      ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     1106      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     1107      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     1108      , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name  & 
     1109      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name  & 
     1110      , prec, radius, standard_name, type ) 
    9991111 
    10001112  END SUBROUTINE xios(is_defined_domain_attr_hdl) 
    10011113 
    10021114  SUBROUTINE xios(is_defined_domain_attr_hdl_)   & 
    1003     ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  & 
    1004     , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  & 
    1005     , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    1006     , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    1007     , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_  & 
    1008     ) 
     1115    ( domain_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_  & 
     1116    , bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_, data_dim_  & 
     1117    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_  & 
     1118    , dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_, latvalue_2d_  & 
     1119    , lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_  & 
     1120    , nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_ ) 
    10091121 
    10101122    IMPLICIT NONE 
    … …  
    10121124      LOGICAL, OPTIONAL, INTENT(OUT) :: area_ 
    10131125      LOGICAL(KIND=C_BOOL) :: area__tmp 
     1126      LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d_ 
     1127      LOGICAL(KIND=C_BOOL) :: area_1d__tmp 
     1128      LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d_ 
     1129      LOGICAL(KIND=C_BOOL) :: area_2d__tmp 
    10141130      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_ 
    10151131      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp 
    … …  
    10241140      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 
    10251141      LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp 
     1142      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i_ 
     1143      LOGICAL(KIND=C_BOOL) :: chunking_weight_i__tmp 
     1144      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j_ 
     1145      LOGICAL(KIND=C_BOOL) :: chunking_weight_j__tmp 
    10261146      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 
    10271147      LOGICAL(KIND=C_BOOL) :: comment__tmp 
    … …  
    10841204      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 
    10851205      LOGICAL(KIND=C_BOOL) :: nvertex__tmp 
     1206      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name_ 
     1207      LOGICAL(KIND=C_BOOL) :: nvertex_name__tmp 
    10861208      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 
    10871209      LOGICAL(KIND=C_BOOL) :: prec__tmp 
    … …  
    10991221      ENDIF 
    11001222 
     1223      IF (PRESENT(area_1d_)) THEN 
     1224        area_1d__tmp = cxios_is_defined_domain_area_1d & 
     1225      (domain_hdl%daddr) 
     1226        area_1d_ = area_1d__tmp 
     1227      ENDIF 
     1228 
     1229      IF (PRESENT(area_2d_)) THEN 
     1230        area_2d__tmp = cxios_is_defined_domain_area_2d & 
     1231      (domain_hdl%daddr) 
     1232        area_2d_ = area_2d__tmp 
     1233      ENDIF 
     1234 
    11011235      IF (PRESENT(bounds_lat_1d_)) THEN 
    11021236        bounds_lat_1d__tmp = cxios_is_defined_domain_bounds_lat_1d & 
    … …  
    11351269      ENDIF 
    11361270 
     1271      IF (PRESENT(chunking_weight_i_)) THEN 
     1272        chunking_weight_i__tmp = cxios_is_defined_domain_chunking_weight_i & 
     1273      (domain_hdl%daddr) 
     1274        chunking_weight_i_ = chunking_weight_i__tmp 
     1275      ENDIF 
     1276 
     1277      IF (PRESENT(chunking_weight_j_)) THEN 
     1278        chunking_weight_j__tmp = cxios_is_defined_domain_chunking_weight_j & 
     1279      (domain_hdl%daddr) 
     1280        chunking_weight_j_ = chunking_weight_j__tmp 
     1281      ENDIF 
     1282 
    11371283      IF (PRESENT(comment_)) THEN 
    11381284        comment__tmp = cxios_is_defined_domain_comment & 
    … …  
    13151461      ENDIF 
    13161462 
     1463      IF (PRESENT(nvertex_name_)) THEN 
     1464        nvertex_name__tmp = cxios_is_defined_domain_nvertex_name & 
     1465      (domain_hdl%daddr) 
     1466        nvertex_name_ = nvertex_name__tmp 
     1467      ENDIF 
     1468 
    13171469      IF (PRESENT(prec_)) THEN 
    13181470        prec__tmp = cxios_is_defined_domain_prec & 

  • XIOS3/trunk/src/interface/fortran_attr/idomaingroup_attr.F90

    r1626 r2616  
    1212 
    1313  SUBROUTINE xios(set_domaingroup_attr)  & 
    14     ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    15     , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    16     , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    17     , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    18     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     14    ( domaingroup_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     15    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     16    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     17    , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  & 
     18    , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     19    , nvertex_name, prec, radius, standard_name, type ) 
    1920 
    2021    IMPLICIT NONE 
    … …  
    2223      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id 
    2324      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:) 
     25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d(:) 
     26      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d(:,:) 
    2427      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 
    2528      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) 
    … …  
    2831      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 
    2932      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 
     33      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i 
     34      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j 
    3035      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    3136      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim 
    … …  
    6166      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
    6267      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
     68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name 
    6369      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    6470      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    … …  
    6975      (domaingroup_id,domaingroup_hdl) 
    7076      CALL xios(set_domaingroup_attr_hdl_)   & 
    71       ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    72       , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    73       , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    74       , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    75       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     77      ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     78      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     79      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     80      , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  & 
     81      , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     82      , nvertex_name, prec, radius, standard_name, type ) 
    7683 
    7784  END SUBROUTINE xios(set_domaingroup_attr) 
    7885 
    7986  SUBROUTINE xios(set_domaingroup_attr_hdl)  & 
    80     ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    81     , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    82     , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    83     , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    84     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     87    ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     88    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     89    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     90    , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  & 
     91    , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     92    , nvertex_name, prec, radius, standard_name, type ) 
    8593 
    8694    IMPLICIT NONE 
    8795      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 
    8896      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:) 
     97      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d(:) 
     98      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d(:,:) 
    8999      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 
    90100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) 
    … …  
    93103      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 
    94104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 
     105      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i 
     106      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j 
    95107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    96108      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim 
    … …  
    126138      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
    127139      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
     140      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name 
    128141      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    129142      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    … …  
    132145 
    133146      CALL xios(set_domaingroup_attr_hdl_)  & 
    134       ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    135       , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    136       , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    137       , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    138       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     147      ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     148      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     149      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     150      , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  & 
     151      , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     152      , nvertex_name, prec, radius, standard_name, type ) 
    139153 
    140154  END SUBROUTINE xios(set_domaingroup_attr_hdl) 
    141155 
    142156  SUBROUTINE xios(set_domaingroup_attr_hdl_)   & 
    143     ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  & 
    144     , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  & 
    145     , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    146     , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    147     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
    148     , type_ ) 
     157    ( domaingroup_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_  & 
     158    , bounds_lon_1d_, bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_  & 
     159    , data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_  & 
     160    , dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_  & 
     161    , latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_  & 
     162    , ni_, ni_glo_, nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_  & 
     163     ) 
    149164 
    150165    IMPLICIT NONE 
    151166      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 
    152167      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:) 
     168      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d_(:) 
     169      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d_(:,:) 
    153170      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:) 
    154171      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:) 
    … …  
    157174      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:) 
    158175      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_ 
     176      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i_ 
     177      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j_ 
    159178      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 
    160179      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_ 
    … …  
    190209      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_ 
    191210      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_ 
     211      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name_ 
    192212      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
    193213      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 
    … …  
    200220      ENDIF 
    201221 
     222      IF (PRESENT(area_1d_)) THEN 
     223        CALL cxios_set_domaingroup_area_1d & 
     224      (domaingroup_hdl%daddr, area_1d_, SHAPE(area_1d_)) 
     225      ENDIF 
     226 
     227      IF (PRESENT(area_2d_)) THEN 
     228        CALL cxios_set_domaingroup_area_2d & 
     229      (domaingroup_hdl%daddr, area_2d_, SHAPE(area_2d_)) 
     230      ENDIF 
     231 
    202232      IF (PRESENT(bounds_lat_1d_)) THEN 
    203233        CALL cxios_set_domaingroup_bounds_lat_1d & 
    … …  
    228258        CALL cxios_set_domaingroup_bounds_lon_name & 
    229259      (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 
     260      ENDIF 
     261 
     262      IF (PRESENT(chunking_weight_i_)) THEN 
     263        CALL cxios_set_domaingroup_chunking_weight_i & 
     264      (domaingroup_hdl%daddr, chunking_weight_i_) 
     265      ENDIF 
     266 
     267      IF (PRESENT(chunking_weight_j_)) THEN 
     268        CALL cxios_set_domaingroup_chunking_weight_j & 
     269      (domaingroup_hdl%daddr, chunking_weight_j_) 
    230270      ENDIF 
    231271 
    … …  
    389429      ENDIF 
    390430 
     431      IF (PRESENT(nvertex_name_)) THEN 
     432        CALL cxios_set_domaingroup_nvertex_name & 
     433      (domaingroup_hdl%daddr, nvertex_name_, len(nvertex_name_)) 
     434      ENDIF 
     435 
    391436      IF (PRESENT(prec_)) THEN 
    392437        CALL cxios_set_domaingroup_prec & 
    … …  
    412457 
    413458  SUBROUTINE xios(get_domaingroup_attr)  & 
    414     ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    415     , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    416     , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    417     , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    418     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     459    ( domaingroup_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     460    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     461    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     462    , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  & 
     463    , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     464    , nvertex_name, prec, radius, standard_name, type ) 
    419465 
    420466    IMPLICIT NONE 
    … …  
    422468      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id 
    423469      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:) 
     470      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d(:) 
     471      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d(:,:) 
    424472      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 
    425473      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) 
    … …  
    428476      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 
    429477      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 
     478      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i 
     479      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j 
    430480      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    431481      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim 
    … …  
    461511      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
    462512      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
     513      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name 
    463514      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    464515      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    … …  
    469520      (domaingroup_id,domaingroup_hdl) 
    470521      CALL xios(get_domaingroup_attr_hdl_)   & 
    471       ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    472       , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    473       , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    474       , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    475       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     522      ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     523      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     524      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     525      , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  & 
     526      , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     527      , nvertex_name, prec, radius, standard_name, type ) 
    476528 
    477529  END SUBROUTINE xios(get_domaingroup_attr) 
    478530 
    479531  SUBROUTINE xios(get_domaingroup_attr_hdl)  & 
    480     ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    481     , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    482     , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    483     , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    484     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     532    ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     533    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     534    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     535    , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  & 
     536    , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     537    , nvertex_name, prec, radius, standard_name, type ) 
    485538 
    486539    IMPLICIT NONE 
    487540      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 
    488541      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:) 
     542      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d(:) 
     543      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d(:,:) 
    489544      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 
    490545      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) 
    … …  
    493548      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 
    494549      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 
     550      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i 
     551      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j 
    495552      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    496553      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim 
    … …  
    526583      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
    527584      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
     585      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name 
    528586      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    529587      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    … …  
    532590 
    533591      CALL xios(get_domaingroup_attr_hdl_)  & 
    534       ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    535       , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    536       , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    537       , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    538       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     592      ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     593      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     594      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     595      , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  & 
     596      , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     597      , nvertex_name, prec, radius, standard_name, type ) 
    539598 
    540599  END SUBROUTINE xios(get_domaingroup_attr_hdl) 
    541600 
    542601  SUBROUTINE xios(get_domaingroup_attr_hdl_)   & 
    543     ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  & 
    544     , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  & 
    545     , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    546     , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    547     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
    548     , type_ ) 
     602    ( domaingroup_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_  & 
     603    , bounds_lon_1d_, bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_  & 
     604    , data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_  & 
     605    , dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_  & 
     606    , latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_  & 
     607    , ni_, ni_glo_, nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_  & 
     608     ) 
    549609 
    550610    IMPLICIT NONE 
    551611      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 
    552612      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:) 
     613      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d_(:) 
     614      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d_(:,:) 
    553615      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:) 
    554616      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:) 
    … …  
    557619      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:) 
    558620      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 
     621      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i_ 
     622      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j_ 
    559623      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 
    560624      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_ 
    … …  
    590654      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_ 
    591655      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_ 
     656      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name_ 
    592657      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
    593658      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 
    … …  
    600665      ENDIF 
    601666 
     667      IF (PRESENT(area_1d_)) THEN 
     668        CALL cxios_get_domaingroup_area_1d & 
     669      (domaingroup_hdl%daddr, area_1d_, SHAPE(area_1d_)) 
     670      ENDIF 
     671 
     672      IF (PRESENT(area_2d_)) THEN 
     673        CALL cxios_get_domaingroup_area_2d & 
     674      (domaingroup_hdl%daddr, area_2d_, SHAPE(area_2d_)) 
     675      ENDIF 
     676 
    602677      IF (PRESENT(bounds_lat_1d_)) THEN 
    603678        CALL cxios_get_domaingroup_bounds_lat_1d & 
    … …  
    628703        CALL cxios_get_domaingroup_bounds_lon_name & 
    629704      (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 
     705      ENDIF 
     706 
     707      IF (PRESENT(chunking_weight_i_)) THEN 
     708        CALL cxios_get_domaingroup_chunking_weight_i & 
     709      (domaingroup_hdl%daddr, chunking_weight_i_) 
     710      ENDIF 
     711 
     712      IF (PRESENT(chunking_weight_j_)) THEN 
     713        CALL cxios_get_domaingroup_chunking_weight_j & 
     714      (domaingroup_hdl%daddr, chunking_weight_j_) 
    630715      ENDIF 
    631716 
    … …  
    789874      ENDIF 
    790875 
     876      IF (PRESENT(nvertex_name_)) THEN 
     877        CALL cxios_get_domaingroup_nvertex_name & 
     878      (domaingroup_hdl%daddr, nvertex_name_, len(nvertex_name_)) 
     879      ENDIF 
     880 
    791881      IF (PRESENT(prec_)) THEN 
    792882        CALL cxios_get_domaingroup_prec & 
    … …  
    812902 
    813903  SUBROUTINE xios(is_defined_domaingroup_attr)  & 
    814     ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    815     , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    816     , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    817     , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    818     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     904    ( domaingroup_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     905    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     906    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     907    , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  & 
     908    , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     909    , nvertex_name, prec, radius, standard_name, type ) 
    819910 
    820911    IMPLICIT NONE 
    … …  
    823914      LOGICAL, OPTIONAL, INTENT(OUT) :: area 
    824915      LOGICAL(KIND=C_BOOL) :: area_tmp 
     916      LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d 
     917      LOGICAL(KIND=C_BOOL) :: area_1d_tmp 
     918      LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d 
     919      LOGICAL(KIND=C_BOOL) :: area_2d_tmp 
    825920      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d 
    826921      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp 
    … …  
    835930      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 
    836931      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 
     932      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i 
     933      LOGICAL(KIND=C_BOOL) :: chunking_weight_i_tmp 
     934      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j 
     935      LOGICAL(KIND=C_BOOL) :: chunking_weight_j_tmp 
    837936      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
    838937      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    … …  
    897996      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    898997      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
     998      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name 
     999      LOGICAL(KIND=C_BOOL) :: nvertex_name_tmp 
    8991000      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
    9001001      LOGICAL(KIND=C_BOOL) :: prec_tmp 
    … …  
    9091010      (domaingroup_id,domaingroup_hdl) 
    9101011      CALL xios(is_defined_domaingroup_attr_hdl_)   & 
    911       ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    912       , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    913       , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    914       , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    915       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1012      ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     1013      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     1014      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     1015      , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  & 
     1016      , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     1017      , nvertex_name, prec, radius, standard_name, type ) 
    9161018 
    9171019  END SUBROUTINE xios(is_defined_domaingroup_attr) 
    9181020 
    9191021  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  & 
    920     ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    921     , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    922     , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    923     , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    924     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1022    ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     1023    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     1024    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     1025    , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  & 
     1026    , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     1027    , nvertex_name, prec, radius, standard_name, type ) 
    9251028 
    9261029    IMPLICIT NONE 
    … …  
    9281031      LOGICAL, OPTIONAL, INTENT(OUT) :: area 
    9291032      LOGICAL(KIND=C_BOOL) :: area_tmp 
     1033      LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d 
     1034      LOGICAL(KIND=C_BOOL) :: area_1d_tmp 
     1035      LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d 
     1036      LOGICAL(KIND=C_BOOL) :: area_2d_tmp 
    9301037      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d 
    9311038      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp 
    … …  
    9401047      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 
    9411048      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 
     1049      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i 
     1050      LOGICAL(KIND=C_BOOL) :: chunking_weight_i_tmp 
     1051      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j 
     1052      LOGICAL(KIND=C_BOOL) :: chunking_weight_j_tmp 
    9421053      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
    9431054      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    … …  
    10021113      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    10031114      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
     1115      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name 
     1116      LOGICAL(KIND=C_BOOL) :: nvertex_name_tmp 
    10041117      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
    10051118      LOGICAL(KIND=C_BOOL) :: prec_tmp 
    … …  
    10121125 
    10131126      CALL xios(is_defined_domaingroup_attr_hdl_)  & 
    1014       ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  & 
    1015       , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  & 
    1016       , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    1017       , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    1018       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1127      ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  & 
     1128      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  & 
     1129      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  & 
     1130      , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  & 
     1131      , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     1132      , nvertex_name, prec, radius, standard_name, type ) 
    10191133 
    10201134  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 
    10211135 
    10221136  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   & 
    1023     ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  & 
    1024     , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  & 
    1025     , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    1026     , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    1027     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
    1028     , type_ ) 
     1137    ( domaingroup_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_  & 
     1138    , bounds_lon_1d_, bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_  & 
     1139    , data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_  & 
     1140    , dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_  & 
     1141    , latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_  & 
     1142    , ni_, ni_glo_, nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_  & 
     1143     ) 
    10291144 
    10301145    IMPLICIT NONE 
    … …  
    10321147      LOGICAL, OPTIONAL, INTENT(OUT) :: area_ 
    10331148      LOGICAL(KIND=C_BOOL) :: area__tmp 
     1149      LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d_ 
     1150      LOGICAL(KIND=C_BOOL) :: area_1d__tmp 
     1151      LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d_ 
     1152      LOGICAL(KIND=C_BOOL) :: area_2d__tmp 
    10341153      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_ 
    10351154      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp 
    … …  
    10441163      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 
    10451164      LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp 
     1165      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i_ 
     1166      LOGICAL(KIND=C_BOOL) :: chunking_weight_i__tmp 
     1167      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j_ 
     1168      LOGICAL(KIND=C_BOOL) :: chunking_weight_j__tmp 
    10461169      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 
    10471170      LOGICAL(KIND=C_BOOL) :: comment__tmp 
    … …  
    11061229      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 
    11071230      LOGICAL(KIND=C_BOOL) :: nvertex__tmp 
     1231      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name_ 
     1232      LOGICAL(KIND=C_BOOL) :: nvertex_name__tmp 
    11081233      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 
    11091234      LOGICAL(KIND=C_BOOL) :: prec__tmp 
    … …  
    11211246      ENDIF 
    11221247 
     1248      IF (PRESENT(area_1d_)) THEN 
     1249        area_1d__tmp = cxios_is_defined_domaingroup_area_1d & 
     1250      (domaingroup_hdl%daddr) 
     1251        area_1d_ = area_1d__tmp 
     1252      ENDIF 
     1253 
     1254      IF (PRESENT(area_2d_)) THEN 
     1255        area_2d__tmp = cxios_is_defined_domaingroup_area_2d & 
     1256      (domaingroup_hdl%daddr) 
     1257        area_2d_ = area_2d__tmp 
     1258      ENDIF 
     1259 
    11231260      IF (PRESENT(bounds_lat_1d_)) THEN 
    11241261        bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d & 
    … …  
    11571294      ENDIF 
    11581295 
     1296      IF (PRESENT(chunking_weight_i_)) THEN 
     1297        chunking_weight_i__tmp = cxios_is_defined_domaingroup_chunking_weight_i & 
     1298      (domaingroup_hdl%daddr) 
     1299        chunking_weight_i_ = chunking_weight_i__tmp 
     1300      ENDIF 
     1301 
     1302      IF (PRESENT(chunking_weight_j_)) THEN 
     1303        chunking_weight_j__tmp = cxios_is_defined_domaingroup_chunking_weight_j & 
     1304      (domaingroup_hdl%daddr) 
     1305        chunking_weight_j_ = chunking_weight_j__tmp 
     1306      ENDIF 
     1307 
    11591308      IF (PRESENT(comment_)) THEN 
    11601309        comment__tmp = cxios_is_defined_domaingroup_comment & 
    … …  
    13431492      ENDIF 
    13441493 
     1494      IF (PRESENT(nvertex_name_)) THEN 
     1495        nvertex_name__tmp = cxios_is_defined_domaingroup_nvertex_name & 
     1496      (domaingroup_hdl%daddr) 
     1497        nvertex_name_ = nvertex_name__tmp 
     1498      ENDIF 
     1499 
    13451500      IF (PRESENT(prec_)) THEN 
    13461501        prec__tmp = cxios_is_defined_domaingroup_prec & 

  • XIOS3/trunk/src/interface/fortran_attr/ifield_attr.F90

    r2338 r2616  
    1313  SUBROUTINE xios(set_field_attr)  & 
    1414    ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
    15     , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
    16     , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
    17     , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    18     , unit, valid_max, valid_min ) 
     15    , chunking_blocksize_target, comment, compression_level, compression_params, compression_type  & 
     16    , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
     17    , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
     18    , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
     19    , valid_max, valid_min ) 
    1920 
    2021    IMPLICIT NONE 
    … …  
    2930      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active 
    3031      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 
     32      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_blocksize_target 
    3133      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    3234      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
     35      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: compression_params(:) 
     36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: compression_type 
     37      LOGICAL  , OPTIONAL, INTENT(IN) :: conversion_by_NetCDF 
     38      LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 
    3339      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    3440      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    6672      CALL xios(set_field_attr_hdl_)   & 
    6773      ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
    68       , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
    69       , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
    70       , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    71       , unit, valid_max, valid_min ) 
     74      , chunking_blocksize_target, comment, compression_level, compression_params, compression_type  & 
     75      , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
     76      , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
     77      , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
     78      , valid_max, valid_min ) 
    7279 
    7380  END SUBROUTINE xios(set_field_attr) 
    … …  
    7582  SUBROUTINE xios(set_field_attr_hdl)  & 
    7683    ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
    77     , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
    78     , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
    79     , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    80     , unit, valid_max, valid_min ) 
     84    , chunking_blocksize_target, comment, compression_level, compression_params, compression_type  & 
     85    , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
     86    , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
     87    , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
     88    , valid_max, valid_min ) 
    8189 
    8290    IMPLICIT NONE 
    … …  
    9098      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active 
    9199      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 
     100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_blocksize_target 
    92101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    93102      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
     103      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: compression_params(:) 
     104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: compression_type 
     105      LOGICAL  , OPTIONAL, INTENT(IN) :: conversion_by_NetCDF 
     106      LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 
    94107      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    95108      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    125138      CALL xios(set_field_attr_hdl_)  & 
    126139      ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
    127       , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
    128       , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
    129       , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    130       , unit, valid_max, valid_min ) 
     140      , chunking_blocksize_target, comment, compression_level, compression_params, compression_type  & 
     141      , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
     142      , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
     143      , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
     144      , valid_max, valid_min ) 
    131145 
    132146  END SUBROUTINE xios(set_field_attr_hdl) 
    … …  
    134148  SUBROUTINE xios(set_field_attr_hdl_)   & 
    135149    ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_  & 
    136     , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_  & 
     150    , check_if_active_, chunking_blocksize_target_, comment_, compression_level_, compression_params_  & 
     151    , compression_type_, conversion_by_NetCDF_, default_value_, detect_missing_value_, domain_ref_  & 
    137152    , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_  & 
    138153    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
    … …  
    149164      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active_ 
    150165      LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 
     166      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_blocksize_target_ 
    151167      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 
    152168      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
     169      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: compression_params_(:) 
     170      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: compression_type_ 
     171      LOGICAL  , OPTIONAL, INTENT(IN) :: conversion_by_NetCDF_ 
     172      LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF__tmp 
    153173      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 
    154174      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_ 
    … …  
    214234      ENDIF 
    215235 
     236      IF (PRESENT(chunking_blocksize_target_)) THEN 
     237        CALL cxios_set_field_chunking_blocksize_target & 
     238      (field_hdl%daddr, chunking_blocksize_target_) 
     239      ENDIF 
     240 
    216241      IF (PRESENT(comment_)) THEN 
    217242        CALL cxios_set_field_comment & 
    … …  
    222247        CALL cxios_set_field_compression_level & 
    223248      (field_hdl%daddr, compression_level_) 
     249      ENDIF 
     250 
     251      IF (PRESENT(compression_params_)) THEN 
     252        CALL cxios_set_field_compression_params & 
     253      (field_hdl%daddr, compression_params_, SHAPE(compression_params_)) 
     254      ENDIF 
     255 
     256      IF (PRESENT(compression_type_)) THEN 
     257        CALL cxios_set_field_compression_type & 
     258      (field_hdl%daddr, compression_type_, len(compression_type_)) 
     259      ENDIF 
     260 
     261      IF (PRESENT(conversion_by_NetCDF_)) THEN 
     262        conversion_by_NetCDF__tmp = conversion_by_NetCDF_ 
     263        CALL cxios_set_field_conversion_by_NetCDF & 
     264      (field_hdl%daddr, conversion_by_NetCDF__tmp) 
    224265      ENDIF 
    225266 
    … …  
    358399  SUBROUTINE xios(get_field_attr)  & 
    359400    ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
    360     , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
    361     , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
    362     , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    363     , unit, valid_max, valid_min ) 
     401    , chunking_blocksize_target, comment, compression_level, compression_params, compression_type  & 
     402    , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
     403    , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
     404    , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
     405    , valid_max, valid_min ) 
    364406 
    365407    IMPLICIT NONE 
    … …  
    374416      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active 
    375417      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 
     418      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 
    376419      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    377420      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
     421      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: compression_params(:) 
     422      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: compression_type 
     423      LOGICAL  , OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 
     424      LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 
    378425      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    379426      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    411458      CALL xios(get_field_attr_hdl_)   & 
    412459      ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
    413       , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
    414       , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
    415       , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    416       , unit, valid_max, valid_min ) 
     460      , chunking_blocksize_target, comment, compression_level, compression_params, compression_type  & 
     461      , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
     462      , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
     463      , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
     464      , valid_max, valid_min ) 
    417465 
    418466  END SUBROUTINE xios(get_field_attr) 
    … …  
    420468  SUBROUTINE xios(get_field_attr_hdl)  & 
    421469    ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
    422     , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
    423     , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
    424     , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    425     , unit, valid_max, valid_min ) 
     470    , chunking_blocksize_target, comment, compression_level, compression_params, compression_type  & 
     471    , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
     472    , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
     473    , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
     474    , valid_max, valid_min ) 
    426475 
    427476    IMPLICIT NONE 
    … …  
    435484      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active 
    436485      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 
     486      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 
    437487      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    438488      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
     489      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: compression_params(:) 
     490      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: compression_type 
     491      LOGICAL  , OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 
     492      LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 
    439493      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    440494      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    470524      CALL xios(get_field_attr_hdl_)  & 
    471525      ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
    472       , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
    473       , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
    474       , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    475       , unit, valid_max, valid_min ) 
     526      , chunking_blocksize_target, comment, compression_level, compression_params, compression_type  & 
     527      , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
     528      , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
     529      , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
     530      , valid_max, valid_min ) 
    476531 
    477532  END SUBROUTINE xios(get_field_attr_hdl) 
    … …  
    479534  SUBROUTINE xios(get_field_attr_hdl_)   & 
    480535    ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_  & 
    481     , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_  & 
     536    , check_if_active_, chunking_blocksize_target_, comment_, compression_level_, compression_params_  & 
     537    , compression_type_, conversion_by_NetCDF_, default_value_, detect_missing_value_, domain_ref_  & 
    482538    , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_  & 
    483539    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
    … …  
    494550      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active_ 
    495551      LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 
     552      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_blocksize_target_ 
    496553      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 
    497554      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
     555      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: compression_params_(:) 
     556      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: compression_type_ 
     557      LOGICAL  , OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF_ 
     558      LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF__tmp 
    498559      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 
    499560      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_ 
    … …  
    559620      ENDIF 
    560621 
     622      IF (PRESENT(chunking_blocksize_target_)) THEN 
     623        CALL cxios_get_field_chunking_blocksize_target & 
     624      (field_hdl%daddr, chunking_blocksize_target_) 
     625      ENDIF 
     626 
    561627      IF (PRESENT(comment_)) THEN 
    562628        CALL cxios_get_field_comment & 
    … …  
    567633        CALL cxios_get_field_compression_level & 
    568634      (field_hdl%daddr, compression_level_) 
     635      ENDIF 
     636 
     637      IF (PRESENT(compression_params_)) THEN 
     638        CALL cxios_get_field_compression_params & 
     639      (field_hdl%daddr, compression_params_, SHAPE(compression_params_)) 
     640      ENDIF 
     641 
     642      IF (PRESENT(compression_type_)) THEN 
     643        CALL cxios_get_field_compression_type & 
     644      (field_hdl%daddr, compression_type_, len(compression_type_)) 
     645      ENDIF 
     646 
     647      IF (PRESENT(conversion_by_NetCDF_)) THEN 
     648        CALL cxios_get_field_conversion_by_NetCDF & 
     649      (field_hdl%daddr, conversion_by_NetCDF__tmp) 
     650        conversion_by_NetCDF_ = conversion_by_NetCDF__tmp 
    569651      ENDIF 
    570652 
    … …  
    703785  SUBROUTINE xios(is_defined_field_attr)  & 
    704786    ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
    705     , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
    706     , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
    707     , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    708     , unit, valid_max, valid_min ) 
     787    , chunking_blocksize_target, comment, compression_level, compression_params, compression_type  & 
     788    , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
     789    , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
     790    , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
     791    , valid_max, valid_min ) 
    709792 
    710793    IMPLICIT NONE 
    … …  
    723806      LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 
    724807      LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 
     808      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 
     809      LOGICAL(KIND=C_BOOL) :: chunking_blocksize_target_tmp 
    725810      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
    726811      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    727812      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    728813      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
     814      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_params 
     815      LOGICAL(KIND=C_BOOL) :: compression_params_tmp 
     816      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_type 
     817      LOGICAL(KIND=C_BOOL) :: compression_type_tmp 
     818      LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 
     819      LOGICAL(KIND=C_BOOL) :: conversion_by_NetCDF_tmp 
    729820      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    730821      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    782873      CALL xios(is_defined_field_attr_hdl_)   & 
    783874      ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
    784       , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
    785       , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
    786       , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    787       , unit, valid_max, valid_min ) 
     875      , chunking_blocksize_target, comment, compression_level, compression_params, compression_type  & 
     876      , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
     877      , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
     878      , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
     879      , valid_max, valid_min ) 
    788880 
    789881  END SUBROUTINE xios(is_defined_field_attr) 
    … …  
    791883  SUBROUTINE xios(is_defined_field_attr_hdl)  & 
    792884    ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
    793     , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
    794     , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
    795     , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    796     , unit, valid_max, valid_min ) 
     885    , chunking_blocksize_target, comment, compression_level, compression_params, compression_type  & 
     886    , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
     887    , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
     888    , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
     889    , valid_max, valid_min ) 
    797890 
    798891    IMPLICIT NONE 
    … …  
    810903      LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 
    811904      LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 
     905      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 
     906      LOGICAL(KIND=C_BOOL) :: chunking_blocksize_target_tmp 
    812907      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
    813908      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    814909      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    815910      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
     911      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_params 
     912      LOGICAL(KIND=C_BOOL) :: compression_params_tmp 
     913      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_type 
     914      LOGICAL(KIND=C_BOOL) :: compression_type_tmp 
     915      LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 
     916      LOGICAL(KIND=C_BOOL) :: conversion_by_NetCDF_tmp 
    816917      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    817918      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    867968      CALL xios(is_defined_field_attr_hdl_)  & 
    868969      ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
    869       , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
    870       , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
    871       , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    872       , unit, valid_max, valid_min ) 
     970      , chunking_blocksize_target, comment, compression_level, compression_params, compression_type  & 
     971      , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
     972      , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
     973      , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
     974      , valid_max, valid_min ) 
    873975 
    874976  END SUBROUTINE xios(is_defined_field_attr_hdl) 
    … …  
    876978  SUBROUTINE xios(is_defined_field_attr_hdl_)   & 
    877979    ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_  & 
    878     , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_  & 
     980    , check_if_active_, chunking_blocksize_target_, comment_, compression_level_, compression_params_  & 
     981    , compression_type_, conversion_by_NetCDF_, default_value_, detect_missing_value_, domain_ref_  & 
    879982    , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_  & 
    880983    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
    … …  
    895998      LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_ 
    896999      LOGICAL(KIND=C_BOOL) :: check_if_active__tmp 
     1000      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_blocksize_target_ 
     1001      LOGICAL(KIND=C_BOOL) :: chunking_blocksize_target__tmp 
    8971002      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 
    8981003      LOGICAL(KIND=C_BOOL) :: comment__tmp 
    8991004      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
    9001005      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
     1006      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_params_ 
     1007      LOGICAL(KIND=C_BOOL) :: compression_params__tmp 
     1008      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_type_ 
     1009      LOGICAL(KIND=C_BOOL) :: compression_type__tmp 
     1010      LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF_ 
     1011      LOGICAL(KIND=C_BOOL) :: conversion_by_NetCDF__tmp 
    9011012      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 
    9021013      LOGICAL(KIND=C_BOOL) :: default_value__tmp 
    … …  
    9861097      ENDIF 
    9871098 
     1099      IF (PRESENT(chunking_blocksize_target_)) THEN 
     1100        chunking_blocksize_target__tmp = cxios_is_defined_field_chunking_blocksize_target & 
     1101      (field_hdl%daddr) 
     1102        chunking_blocksize_target_ = chunking_blocksize_target__tmp 
     1103      ENDIF 
     1104 
    9881105      IF (PRESENT(comment_)) THEN 
    9891106        comment__tmp = cxios_is_defined_field_comment & 
    … …  
    9981115      ENDIF 
    9991116 
     1117      IF (PRESENT(compression_params_)) THEN 
     1118        compression_params__tmp = cxios_is_defined_field_compression_params & 
     1119      (field_hdl%daddr) 
     1120        compression_params_ = compression_params__tmp 
     1121      ENDIF 
     1122 
     1123      IF (PRESENT(compression_type_)) THEN 
     1124        compression_type__tmp = cxios_is_defined_field_compression_type & 
     1125      (field_hdl%daddr) 
     1126        compression_type_ = compression_type__tmp 
     1127      ENDIF 
     1128 
     1129      IF (PRESENT(conversion_by_NetCDF_)) THEN 
     1130        conversion_by_NetCDF__tmp = cxios_is_defined_field_conversion_by_NetCDF & 
     1131      (field_hdl%daddr) 
     1132        conversion_by_NetCDF_ = conversion_by_NetCDF__tmp 
     1133      ENDIF 
     1134 
    10001135      IF (PRESENT(default_value_)) THEN 
    10011136        default_value__tmp = cxios_is_defined_field_default_value & 

  • XIOS3/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90

    r2338 r2616  
    1313  SUBROUTINE xios(set_fieldgroup_attr)  & 
    1414    ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
    15     , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
    16     , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    17     , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    18     , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     15    , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params  & 
     16    , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled  & 
     17    , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level  & 
     18    , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled  & 
     19    , ts_split_freq, unit, valid_max, valid_min ) 
    1920 
    2021    IMPLICIT NONE 
    … …  
    2930      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active 
    3031      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 
     32      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_blocksize_target 
    3133      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    3234      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
     35      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: compression_params(:) 
     36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: compression_type 
     37      LOGICAL  , OPTIONAL, INTENT(IN) :: conversion_by_NetCDF 
     38      LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 
    3339      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    3440      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    6773      CALL xios(set_fieldgroup_attr_hdl_)   & 
    6874      ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
    69       , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
    70       , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    71       , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    72       , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     75      , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params  & 
     76      , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled  & 
     77      , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level  & 
     78      , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled  & 
     79      , ts_split_freq, unit, valid_max, valid_min ) 
    7380 
    7481  END SUBROUTINE xios(set_fieldgroup_attr) 
    … …  
    7683  SUBROUTINE xios(set_fieldgroup_attr_hdl)  & 
    7784    ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
    78     , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
    79     , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    80     , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    81     , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     85    , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params  & 
     86    , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled  & 
     87    , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level  & 
     88    , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled  & 
     89    , ts_split_freq, unit, valid_max, valid_min ) 
    8290 
    8391    IMPLICIT NONE 
    … …  
    9199      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active 
    92100      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 
     101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_blocksize_target 
    93102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    94103      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
     104      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: compression_params(:) 
     105      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: compression_type 
     106      LOGICAL  , OPTIONAL, INTENT(IN) :: conversion_by_NetCDF 
     107      LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 
    95108      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    96109      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    127140      CALL xios(set_fieldgroup_attr_hdl_)  & 
    128141      ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
    129       , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
    130       , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    131       , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    132       , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     142      , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params  & 
     143      , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled  & 
     144      , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level  & 
     145      , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled  & 
     146      , ts_split_freq, unit, valid_max, valid_min ) 
    133147 
    134148  END SUBROUTINE xios(set_fieldgroup_attr_hdl) 
    … …  
    136150  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   & 
    137151    ( fieldgroup_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_  & 
    138     , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_  & 
     152    , check_if_active_, chunking_blocksize_target_, comment_, compression_level_, compression_params_  & 
     153    , compression_type_, conversion_by_NetCDF_, default_value_, detect_missing_value_, domain_ref_  & 
    139154    , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_  & 
    140155    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
    … …  
    151166      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active_ 
    152167      LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 
     168      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_blocksize_target_ 
    153169      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 
    154170      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
     171      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: compression_params_(:) 
     172      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: compression_type_ 
     173      LOGICAL  , OPTIONAL, INTENT(IN) :: conversion_by_NetCDF_ 
     174      LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF__tmp 
    155175      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 
    156176      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_ 
    … …  
    217237      ENDIF 
    218238 
     239      IF (PRESENT(chunking_blocksize_target_)) THEN 
     240        CALL cxios_set_fieldgroup_chunking_blocksize_target & 
     241      (fieldgroup_hdl%daddr, chunking_blocksize_target_) 
     242      ENDIF 
     243 
    219244      IF (PRESENT(comment_)) THEN 
    220245        CALL cxios_set_fieldgroup_comment & 
    … …  
    225250        CALL cxios_set_fieldgroup_compression_level & 
    226251      (fieldgroup_hdl%daddr, compression_level_) 
     252      ENDIF 
     253 
     254      IF (PRESENT(compression_params_)) THEN 
     255        CALL cxios_set_fieldgroup_compression_params & 
     256      (fieldgroup_hdl%daddr, compression_params_, SHAPE(compression_params_)) 
     257      ENDIF 
     258 
     259      IF (PRESENT(compression_type_)) THEN 
     260        CALL cxios_set_fieldgroup_compression_type & 
     261      (fieldgroup_hdl%daddr, compression_type_, len(compression_type_)) 
     262      ENDIF 
     263 
     264      IF (PRESENT(conversion_by_NetCDF_)) THEN 
     265        conversion_by_NetCDF__tmp = conversion_by_NetCDF_ 
     266        CALL cxios_set_fieldgroup_conversion_by_NetCDF & 
     267      (fieldgroup_hdl%daddr, conversion_by_NetCDF__tmp) 
    227268      ENDIF 
    228269 
    … …  
    366407  SUBROUTINE xios(get_fieldgroup_attr)  & 
    367408    ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
    368     , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
    369     , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    370     , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    371     , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     409    , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params  & 
     410    , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled  & 
     411    , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level  & 
     412    , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled  & 
     413    , ts_split_freq, unit, valid_max, valid_min ) 
    372414 
    373415    IMPLICIT NONE 
    … …  
    382424      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active 
    383425      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 
     426      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 
    384427      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    385428      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
     429      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: compression_params(:) 
     430      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: compression_type 
     431      LOGICAL  , OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 
     432      LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 
    386433      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    387434      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    420467      CALL xios(get_fieldgroup_attr_hdl_)   & 
    421468      ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
    422       , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
    423       , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    424       , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    425       , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     469      , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params  & 
     470      , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled  & 
     471      , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level  & 
     472      , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled  & 
     473      , ts_split_freq, unit, valid_max, valid_min ) 
    426474 
    427475  END SUBROUTINE xios(get_fieldgroup_attr) 
    … …  
    429477  SUBROUTINE xios(get_fieldgroup_attr_hdl)  & 
    430478    ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
    431     , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
    432     , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    433     , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    434     , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     479    , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params  & 
     480    , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled  & 
     481    , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level  & 
     482    , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled  & 
     483    , ts_split_freq, unit, valid_max, valid_min ) 
    435484 
    436485    IMPLICIT NONE 
    … …  
    444493      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active 
    445494      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 
     495      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 
    446496      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    447497      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
     498      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: compression_params(:) 
     499      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: compression_type 
     500      LOGICAL  , OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 
     501      LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 
    448502      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    449503      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    480534      CALL xios(get_fieldgroup_attr_hdl_)  & 
    481535      ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
    482       , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
    483       , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    484       , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    485       , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     536      , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params  & 
     537      , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled  & 
     538      , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level  & 
     539      , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled  & 
     540      , ts_split_freq, unit, valid_max, valid_min ) 
    486541 
    487542  END SUBROUTINE xios(get_fieldgroup_attr_hdl) 
    … …  
    489544  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   & 
    490545    ( fieldgroup_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_  & 
    491     , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_  & 
     546    , check_if_active_, chunking_blocksize_target_, comment_, compression_level_, compression_params_  & 
     547    , compression_type_, conversion_by_NetCDF_, default_value_, detect_missing_value_, domain_ref_  & 
    492548    , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_  & 
    493549    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
    … …  
    504560      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active_ 
    505561      LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 
     562      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_blocksize_target_ 
    506563      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 
    507564      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
     565      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: compression_params_(:) 
     566      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: compression_type_ 
     567      LOGICAL  , OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF_ 
     568      LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF__tmp 
    508569      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 
    509570      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_ 
    … …  
    570631      ENDIF 
    571632 
     633      IF (PRESENT(chunking_blocksize_target_)) THEN 
     634        CALL cxios_get_fieldgroup_chunking_blocksize_target & 
     635      (fieldgroup_hdl%daddr, chunking_blocksize_target_) 
     636      ENDIF 
     637 
    572638      IF (PRESENT(comment_)) THEN 
    573639        CALL cxios_get_fieldgroup_comment & 
    … …  
    578644        CALL cxios_get_fieldgroup_compression_level & 
    579645      (fieldgroup_hdl%daddr, compression_level_) 
     646      ENDIF 
     647 
     648      IF (PRESENT(compression_params_)) THEN 
     649        CALL cxios_get_fieldgroup_compression_params & 
     650      (fieldgroup_hdl%daddr, compression_params_, SHAPE(compression_params_)) 
     651      ENDIF 
     652 
     653      IF (PRESENT(compression_type_)) THEN 
     654        CALL cxios_get_fieldgroup_compression_type & 
     655      (fieldgroup_hdl%daddr, compression_type_, len(compression_type_)) 
     656      ENDIF 
     657 
     658      IF (PRESENT(conversion_by_NetCDF_)) THEN 
     659        CALL cxios_get_fieldgroup_conversion_by_NetCDF & 
     660      (fieldgroup_hdl%daddr, conversion_by_NetCDF__tmp) 
     661        conversion_by_NetCDF_ = conversion_by_NetCDF__tmp 
    580662      ENDIF 
    581663 
    … …  
    719801  SUBROUTINE xios(is_defined_fieldgroup_attr)  & 
    720802    ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
    721     , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
    722     , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    723     , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    724     , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     803    , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params  & 
     804    , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled  & 
     805    , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level  & 
     806    , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled  & 
     807    , ts_split_freq, unit, valid_max, valid_min ) 
    725808 
    726809    IMPLICIT NONE 
    … …  
    739822      LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 
    740823      LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 
     824      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 
     825      LOGICAL(KIND=C_BOOL) :: chunking_blocksize_target_tmp 
    741826      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
    742827      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    743828      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    744829      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
     830      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_params 
     831      LOGICAL(KIND=C_BOOL) :: compression_params_tmp 
     832      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_type 
     833      LOGICAL(KIND=C_BOOL) :: compression_type_tmp 
     834      LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 
     835      LOGICAL(KIND=C_BOOL) :: conversion_by_NetCDF_tmp 
    745836      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    746837      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    800891      CALL xios(is_defined_fieldgroup_attr_hdl_)   & 
    801892      ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
    802       , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
    803       , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    804       , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    805       , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     893      , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params  & 
     894      , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled  & 
     895      , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level  & 
     896      , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled  & 
     897      , ts_split_freq, unit, valid_max, valid_min ) 
    806898 
    807899  END SUBROUTINE xios(is_defined_fieldgroup_attr) 
    … …  
    809901  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  & 
    810902    ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
    811     , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
    812     , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    813     , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    814     , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     903    , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params  & 
     904    , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled  & 
     905    , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level  & 
     906    , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled  & 
     907    , ts_split_freq, unit, valid_max, valid_min ) 
    815908 
    816909    IMPLICIT NONE 
    … …  
    828921      LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 
    829922      LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 
     923      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 
     924      LOGICAL(KIND=C_BOOL) :: chunking_blocksize_target_tmp 
    830925      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
    831926      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    832927      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    833928      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
     929      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_params 
     930      LOGICAL(KIND=C_BOOL) :: compression_params_tmp 
     931      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_type 
     932      LOGICAL(KIND=C_BOOL) :: compression_type_tmp 
     933      LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 
     934      LOGICAL(KIND=C_BOOL) :: conversion_by_NetCDF_tmp 
    834935      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    835936      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    887988      CALL xios(is_defined_fieldgroup_attr_hdl_)  & 
    888989      ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
    889       , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
    890       , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    891       , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    892       , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     990      , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params  & 
     991      , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled  & 
     992      , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level  & 
     993      , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled  & 
     994      , ts_split_freq, unit, valid_max, valid_min ) 
    893995 
    894996  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 
    … …  
    896998  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   & 
    897999    ( fieldgroup_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_  & 
    898     , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_  & 
     1000    , check_if_active_, chunking_blocksize_target_, comment_, compression_level_, compression_params_  & 
     1001    , compression_type_, conversion_by_NetCDF_, default_value_, detect_missing_value_, domain_ref_  & 
    8991002    , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_  & 
    9001003    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
    … …  
    9151018      LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_ 
    9161019      LOGICAL(KIND=C_BOOL) :: check_if_active__tmp 
     1020      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_blocksize_target_ 
     1021      LOGICAL(KIND=C_BOOL) :: chunking_blocksize_target__tmp 
    9171022      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 
    9181023      LOGICAL(KIND=C_BOOL) :: comment__tmp 
    9191024      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
    9201025      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
     1026      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_params_ 
     1027      LOGICAL(KIND=C_BOOL) :: compression_params__tmp 
     1028      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_type_ 
     1029      LOGICAL(KIND=C_BOOL) :: compression_type__tmp 
     1030      LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF_ 
     1031      LOGICAL(KIND=C_BOOL) :: conversion_by_NetCDF__tmp 
    9211032      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 
    9221033      LOGICAL(KIND=C_BOOL) :: default_value__tmp 
    … …  
    10081119      ENDIF 
    10091120 
     1121      IF (PRESENT(chunking_blocksize_target_)) THEN 
     1122        chunking_blocksize_target__tmp = cxios_is_defined_fieldgroup_chunking_blocksize_target & 
     1123      (fieldgroup_hdl%daddr) 
     1124        chunking_blocksize_target_ = chunking_blocksize_target__tmp 
     1125      ENDIF 
     1126 
    10101127      IF (PRESENT(comment_)) THEN 
    10111128        comment__tmp = cxios_is_defined_fieldgroup_comment & 
    … …  
    10201137      ENDIF 
    10211138 
     1139      IF (PRESENT(compression_params_)) THEN 
     1140        compression_params__tmp = cxios_is_defined_fieldgroup_compression_params & 
     1141      (fieldgroup_hdl%daddr) 
     1142        compression_params_ = compression_params__tmp 
     1143      ENDIF 
     1144 
     1145      IF (PRESENT(compression_type_)) THEN 
     1146        compression_type__tmp = cxios_is_defined_fieldgroup_compression_type & 
     1147      (fieldgroup_hdl%daddr) 
     1148        compression_type_ = compression_type__tmp 
     1149      ENDIF 
     1150 
     1151      IF (PRESENT(conversion_by_NetCDF_)) THEN 
     1152        conversion_by_NetCDF__tmp = cxios_is_defined_fieldgroup_conversion_by_NetCDF & 
     1153      (fieldgroup_hdl%daddr) 
     1154        conversion_by_NetCDF_ = conversion_by_NetCDF__tmp 
     1155      ENDIF 
     1156 
    10221157      IF (PRESENT(default_value_)) THEN 
    10231158        default_value__tmp = cxios_is_defined_fieldgroup_default_value & 

  • XIOS3/trunk/src/interface/fortran_attr/ifile_attr.F90

    r1492 r2616  
    1313  SUBROUTINE xios(set_file_attr)  & 
    1414    ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    15     , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    16     , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
    17     , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
    18     , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     15    , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     16    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     17    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     18    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     19    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    1920 
    2021    IMPLICIT NONE 
    … …  
    3334      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    3435      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format 
     36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer 
    3537      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits 
    3638      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode 
    … …  
    4042      INTEGER  , OPTIONAL, INTENT(IN) :: output_level 
    4143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 
     44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer 
     45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader 
     46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer 
    4247      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par 
    4348      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
     49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader 
    4450      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset 
    4551      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset 
    … …  
    5763      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 
    5864      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
     65      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2 
     66      LOGICAL (KIND=C_BOOL) :: using_server2_tmp 
    5967      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 
    6068      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 
     69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer 
    6170 
    6271      CALL xios(get_file_handle) & 
    … …  
    6473      CALL xios(set_file_attr_hdl_)   & 
    6574      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    66       , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    67       , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
    68       , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
    69       , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     75      , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     76      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     77      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     78      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     79      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    7080 
    7181  END SUBROUTINE xios(set_file_attr) 
    … …  
    7383  SUBROUTINE xios(set_file_attr_hdl)  & 
    7484    ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    75     , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    76     , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
    77     , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
    78     , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     85    , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     86    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     87    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     88    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     89    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    7990 
    8091    IMPLICIT NONE 
    … …  
    92103      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    93104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format 
     105      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer 
    94106      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits 
    95107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode 
    … …  
    99111      INTEGER  , OPTIONAL, INTENT(IN) :: output_level 
    100112      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 
     113      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer 
     114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader 
     115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer 
    101116      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par 
    102117      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
     118      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader 
    103119      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset 
    104120      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset 
    … …  
    116132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 
    117133      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
     134      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2 
     135      LOGICAL (KIND=C_BOOL) :: using_server2_tmp 
    118136      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 
    119137      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 
     138      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer 
    120139 
    121140      CALL xios(set_file_attr_hdl_)  & 
    122141      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    123       , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    124       , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
    125       , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
    126       , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     142      , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     143      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     144      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     145      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     146      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    127147 
    128148  END SUBROUTINE xios(set_file_attr_hdl) 
    … …  
    130150  SUBROUTINE xios(set_file_attr_hdl_)   & 
    131151    ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_  & 
    132     , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  & 
    133     , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  & 
    134     , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  & 
    135     , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 
     152    , enabled_, format_, gatherer_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_  & 
     153    , par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_, reader_, record_offset_  & 
     154    , split_end_offset_, split_freq_, split_freq_format_, split_last_date_, split_start_offset_  & 
     155    , sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_, time_units_  & 
     156    , timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ ) 
    136157 
    137158    IMPLICIT NONE 
    … …  
    149170      LOGICAL (KIND=C_BOOL) :: enabled__tmp 
    150171      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_ 
     172      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer_ 
    151173      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_ 
    152174      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_ 
    … …  
    156178      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_ 
    157179      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 
     180      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer_ 
     181      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader_ 
     182      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer_ 
    158183      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par_ 
    159184      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 
     185      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader_ 
    160186      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset_ 
    161187      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset_ 
    … …  
    173199      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ 
    174200      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
     201      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2_ 
     202      LOGICAL (KIND=C_BOOL) :: using_server2__tmp 
    175203      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_ 
    176204      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_ 
     205      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer_ 
    177206 
    178207      IF (PRESENT(append_)) THEN 
    … …  
    224253      ENDIF 
    225254 
     255      IF (PRESENT(gatherer_)) THEN 
     256        CALL cxios_set_file_gatherer & 
     257      (file_hdl%daddr, gatherer_, len(gatherer_)) 
     258      ENDIF 
     259 
    226260      IF (PRESENT(min_digits_)) THEN 
    227261        CALL cxios_set_file_min_digits & 
    … …  
    257291        CALL cxios_set_file_par_access & 
    258292      (file_hdl%daddr, par_access_, len(par_access_)) 
     293      ENDIF 
     294 
     295      IF (PRESENT(pool_gatherer_)) THEN 
     296        CALL cxios_set_file_pool_gatherer & 
     297      (file_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) 
     298      ENDIF 
     299 
     300      IF (PRESENT(pool_reader_)) THEN 
     301        CALL cxios_set_file_pool_reader & 
     302      (file_hdl%daddr, pool_reader_, len(pool_reader_)) 
     303      ENDIF 
     304 
     305      IF (PRESENT(pool_writer_)) THEN 
     306        CALL cxios_set_file_pool_writer & 
     307      (file_hdl%daddr, pool_writer_, len(pool_writer_)) 
    259308      ENDIF 
    260309 
    … …  
    265314      ENDIF 
    266315 
     316      IF (PRESENT(reader_)) THEN 
     317        CALL cxios_set_file_reader & 
     318      (file_hdl%daddr, reader_, len(reader_)) 
     319      ENDIF 
     320 
    267321      IF (PRESENT(record_offset_)) THEN 
    268322        CALL cxios_set_file_record_offset & 
    … …  
    340394      ENDIF 
    341395 
     396      IF (PRESENT(using_server2_)) THEN 
     397        using_server2__tmp = using_server2_ 
     398        CALL cxios_set_file_using_server2 & 
     399      (file_hdl%daddr, using_server2__tmp) 
     400      ENDIF 
     401 
    342402      IF (PRESENT(uuid_format_)) THEN 
    343403        CALL cxios_set_file_uuid_format & 
    … …  
    350410      ENDIF 
    351411 
     412      IF (PRESENT(writer_)) THEN 
     413        CALL cxios_set_file_writer & 
     414      (file_hdl%daddr, writer_, len(writer_)) 
     415      ENDIF 
     416 
    352417  END SUBROUTINE xios(set_file_attr_hdl_) 
    353418 
    354419  SUBROUTINE xios(get_file_attr)  & 
    355420    ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    356     , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    357     , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
    358     , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
    359     , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     421    , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     422    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     423    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     424    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     425    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    360426 
    361427    IMPLICIT NONE 
    … …  
    374440      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    375441      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format 
     442      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer 
    376443      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits 
    377444      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode 
    … …  
    381448      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level 
    382449      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 
     450      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer 
     451      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader 
     452      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer 
    383453      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par 
    384454      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
     455      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader 
    385456      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset 
    386457      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset 
    … …  
    398469      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 
    399470      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
     471      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2 
     472      LOGICAL (KIND=C_BOOL) :: using_server2_tmp 
    400473      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 
    401474      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 
     475      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer 
    402476 
    403477      CALL xios(get_file_handle) & 
    … …  
    405479      CALL xios(get_file_attr_hdl_)   & 
    406480      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    407       , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    408       , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
    409       , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
    410       , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     481      , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     482      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     483      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     484      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     485      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    411486 
    412487  END SUBROUTINE xios(get_file_attr) 
    … …  
    414489  SUBROUTINE xios(get_file_attr_hdl)  & 
    415490    ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    416     , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    417     , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
    418     , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
    419     , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     491    , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     492    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     493    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     494    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     495    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    420496 
    421497    IMPLICIT NONE 
    … …  
    433509      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    434510      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format 
     511      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer 
    435512      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits 
    436513      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode 
    … …  
    440517      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level 
    441518      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 
     519      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer 
     520      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader 
     521      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer 
    442522      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par 
    443523      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
     524      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader 
    444525      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset 
    445526      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset 
    … …  
    457538      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 
    458539      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
     540      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2 
     541      LOGICAL (KIND=C_BOOL) :: using_server2_tmp 
    459542      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 
    460543      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 
     544      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer 
    461545 
    462546      CALL xios(get_file_attr_hdl_)  & 
    463547      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    464       , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    465       , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
    466       , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
    467       , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     548      , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     549      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     550      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     551      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     552      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    468553 
    469554  END SUBROUTINE xios(get_file_attr_hdl) 
    … …  
    471556  SUBROUTINE xios(get_file_attr_hdl_)   & 
    472557    ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_  & 
    473     , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  & 
    474     , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  & 
    475     , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  & 
    476     , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 
     558    , enabled_, format_, gatherer_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_  & 
     559    , par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_, reader_, record_offset_  & 
     560    , split_end_offset_, split_freq_, split_freq_format_, split_last_date_, split_start_offset_  & 
     561    , sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_, time_units_  & 
     562    , timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ ) 
    477563 
    478564    IMPLICIT NONE 
    … …  
    490576      LOGICAL (KIND=C_BOOL) :: enabled__tmp 
    491577      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_ 
     578      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer_ 
    492579      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_ 
    493580      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_ 
    … …  
    497584      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_ 
    498585      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 
     586      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer_ 
     587      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader_ 
     588      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer_ 
    499589      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par_ 
    500590      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 
     591      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader_ 
    501592      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset_ 
    502593      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset_ 
    … …  
    514605      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ 
    515606      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
     607      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2_ 
     608      LOGICAL (KIND=C_BOOL) :: using_server2__tmp 
    516609      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_ 
    517610      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_ 
     611      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer_ 
    518612 
    519613      IF (PRESENT(append_)) THEN 
    … …  
    565659      ENDIF 
    566660 
     661      IF (PRESENT(gatherer_)) THEN 
     662        CALL cxios_get_file_gatherer & 
     663      (file_hdl%daddr, gatherer_, len(gatherer_)) 
     664      ENDIF 
     665 
    567666      IF (PRESENT(min_digits_)) THEN 
    568667        CALL cxios_get_file_min_digits & 
    … …  
    598697        CALL cxios_get_file_par_access & 
    599698      (file_hdl%daddr, par_access_, len(par_access_)) 
     699      ENDIF 
     700 
     701      IF (PRESENT(pool_gatherer_)) THEN 
     702        CALL cxios_get_file_pool_gatherer & 
     703      (file_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) 
     704      ENDIF 
     705 
     706      IF (PRESENT(pool_reader_)) THEN 
     707        CALL cxios_get_file_pool_reader & 
     708      (file_hdl%daddr, pool_reader_, len(pool_reader_)) 
     709      ENDIF 
     710 
     711      IF (PRESENT(pool_writer_)) THEN 
     712        CALL cxios_get_file_pool_writer & 
     713      (file_hdl%daddr, pool_writer_, len(pool_writer_)) 
    600714      ENDIF 
    601715 
    … …  
    606720      ENDIF 
    607721 
     722      IF (PRESENT(reader_)) THEN 
     723        CALL cxios_get_file_reader & 
     724      (file_hdl%daddr, reader_, len(reader_)) 
     725      ENDIF 
     726 
    608727      IF (PRESENT(record_offset_)) THEN 
    609728        CALL cxios_get_file_record_offset & 
    … …  
    681800      ENDIF 
    682801 
     802      IF (PRESENT(using_server2_)) THEN 
     803        CALL cxios_get_file_using_server2 & 
     804      (file_hdl%daddr, using_server2__tmp) 
     805        using_server2_ = using_server2__tmp 
     806      ENDIF 
     807 
    683808      IF (PRESENT(uuid_format_)) THEN 
    684809        CALL cxios_get_file_uuid_format & 
    … …  
    691816      ENDIF 
    692817 
     818      IF (PRESENT(writer_)) THEN 
     819        CALL cxios_get_file_writer & 
     820      (file_hdl%daddr, writer_, len(writer_)) 
     821      ENDIF 
     822 
    693823  END SUBROUTINE xios(get_file_attr_hdl_) 
    694824 
    695825  SUBROUTINE xios(is_defined_file_attr)  & 
    696826    ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    697     , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    698     , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
    699     , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
    700     , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     827    , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     828    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     829    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     830    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     831    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    701832 
    702833    IMPLICIT NONE 
    … …  
    721852      LOGICAL, OPTIONAL, INTENT(OUT) :: format 
    722853      LOGICAL(KIND=C_BOOL) :: format_tmp 
     854      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer 
     855      LOGICAL(KIND=C_BOOL) :: gatherer_tmp 
    723856      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 
    724857      LOGICAL(KIND=C_BOOL) :: min_digits_tmp 
    … …  
    735868      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 
    736869      LOGICAL(KIND=C_BOOL) :: par_access_tmp 
     870      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer 
     871      LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp 
     872      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader 
     873      LOGICAL(KIND=C_BOOL) :: pool_reader_tmp 
     874      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer 
     875      LOGICAL(KIND=C_BOOL) :: pool_writer_tmp 
    737876      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 
    738877      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 
     878      LOGICAL, OPTIONAL, INTENT(OUT) :: reader 
     879      LOGICAL(KIND=C_BOOL) :: reader_tmp 
    739880      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 
    740881      LOGICAL(KIND=C_BOOL) :: record_offset_tmp 
    … …  
    767908      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    768909      LOGICAL(KIND=C_BOOL) :: type_tmp 
     910      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 
     911      LOGICAL(KIND=C_BOOL) :: using_server2_tmp 
    769912      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 
    770913      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 
    771914      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 
    772915      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 
     916      LOGICAL, OPTIONAL, INTENT(OUT) :: writer 
     917      LOGICAL(KIND=C_BOOL) :: writer_tmp 
    773918 
    774919      CALL xios(get_file_handle) & 
    … …  
    776921      CALL xios(is_defined_file_attr_hdl_)   & 
    777922      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    778       , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    779       , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
    780       , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
    781       , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     923      , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     924      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     925      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     926      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     927      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    782928 
    783929  END SUBROUTINE xios(is_defined_file_attr) 
    … …  
    785931  SUBROUTINE xios(is_defined_file_attr_hdl)  & 
    786932    ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    787     , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    788     , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
    789     , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
    790     , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     933    , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     934    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     935    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     936    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     937    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    791938 
    792939    IMPLICIT NONE 
    … …  
    810957      LOGICAL, OPTIONAL, INTENT(OUT) :: format 
    811958      LOGICAL(KIND=C_BOOL) :: format_tmp 
     959      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer 
     960      LOGICAL(KIND=C_BOOL) :: gatherer_tmp 
    812961      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 
    813962      LOGICAL(KIND=C_BOOL) :: min_digits_tmp 
    … …  
    824973      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 
    825974      LOGICAL(KIND=C_BOOL) :: par_access_tmp 
     975      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer 
     976      LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp 
     977      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader 
     978      LOGICAL(KIND=C_BOOL) :: pool_reader_tmp 
     979      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer 
     980      LOGICAL(KIND=C_BOOL) :: pool_writer_tmp 
    826981      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 
    827982      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 
     983      LOGICAL, OPTIONAL, INTENT(OUT) :: reader 
     984      LOGICAL(KIND=C_BOOL) :: reader_tmp 
    828985      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 
    829986      LOGICAL(KIND=C_BOOL) :: record_offset_tmp 
    … …  
    8561013      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    8571014      LOGICAL(KIND=C_BOOL) :: type_tmp 
     1015      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 
     1016      LOGICAL(KIND=C_BOOL) :: using_server2_tmp 
    8581017      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 
    8591018      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 
    8601019      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 
    8611020      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 
     1021      LOGICAL, OPTIONAL, INTENT(OUT) :: writer 
     1022      LOGICAL(KIND=C_BOOL) :: writer_tmp 
    8621023 
    8631024      CALL xios(is_defined_file_attr_hdl_)  & 
    8641025      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    865       , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    866       , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
    867       , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
    868       , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     1026      , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     1027      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     1028      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     1029      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     1030      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    8691031 
    8701032  END SUBROUTINE xios(is_defined_file_attr_hdl) 
    … …  
    8721034  SUBROUTINE xios(is_defined_file_attr_hdl_)   & 
    8731035    ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_  & 
    874     , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  & 
    875     , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  & 
    876     , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  & 
    877     , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 
     1036    , enabled_, format_, gatherer_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_  & 
     1037    , par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_, reader_, record_offset_  & 
     1038    , split_end_offset_, split_freq_, split_freq_format_, split_last_date_, split_start_offset_  & 
     1039    , sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_, time_units_  & 
     1040    , timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ ) 
    8781041 
    8791042    IMPLICIT NONE 
    … …  
    8971060      LOGICAL, OPTIONAL, INTENT(OUT) :: format_ 
    8981061      LOGICAL(KIND=C_BOOL) :: format__tmp 
     1062      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer_ 
     1063      LOGICAL(KIND=C_BOOL) :: gatherer__tmp 
    8991064      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_ 
    9001065      LOGICAL(KIND=C_BOOL) :: min_digits__tmp 
    … …  
    9111076      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 
    9121077      LOGICAL(KIND=C_BOOL) :: par_access__tmp 
     1078      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer_ 
     1079      LOGICAL(KIND=C_BOOL) :: pool_gatherer__tmp 
     1080      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader_ 
     1081      LOGICAL(KIND=C_BOOL) :: pool_reader__tmp 
     1082      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer_ 
     1083      LOGICAL(KIND=C_BOOL) :: pool_writer__tmp 
    9131084      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_ 
    9141085      LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp 
     1086      LOGICAL, OPTIONAL, INTENT(OUT) :: reader_ 
     1087      LOGICAL(KIND=C_BOOL) :: reader__tmp 
    9151088      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ 
    9161089      LOGICAL(KIND=C_BOOL) :: record_offset__tmp 
    … …  
    9431116      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    9441117      LOGICAL(KIND=C_BOOL) :: type__tmp 
     1118      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2_ 
     1119      LOGICAL(KIND=C_BOOL) :: using_server2__tmp 
    9451120      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_ 
    9461121      LOGICAL(KIND=C_BOOL) :: uuid_format__tmp 
    9471122      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_ 
    9481123      LOGICAL(KIND=C_BOOL) :: uuid_name__tmp 
     1124      LOGICAL, OPTIONAL, INTENT(OUT) :: writer_ 
     1125      LOGICAL(KIND=C_BOOL) :: writer__tmp 
    9491126 
    9501127      IF (PRESENT(append_)) THEN 
    … …  
    10021179      ENDIF 
    10031180 
     1181      IF (PRESENT(gatherer_)) THEN 
     1182        gatherer__tmp = cxios_is_defined_file_gatherer & 
     1183      (file_hdl%daddr) 
     1184        gatherer_ = gatherer__tmp 
     1185      ENDIF 
     1186 
    10041187      IF (PRESENT(min_digits_)) THEN 
    10051188        min_digits__tmp = cxios_is_defined_file_min_digits & 
    … …  
    10441227      ENDIF 
    10451228 
     1229      IF (PRESENT(pool_gatherer_)) THEN 
     1230        pool_gatherer__tmp = cxios_is_defined_file_pool_gatherer & 
     1231      (file_hdl%daddr) 
     1232        pool_gatherer_ = pool_gatherer__tmp 
     1233      ENDIF 
     1234 
     1235      IF (PRESENT(pool_reader_)) THEN 
     1236        pool_reader__tmp = cxios_is_defined_file_pool_reader & 
     1237      (file_hdl%daddr) 
     1238        pool_reader_ = pool_reader__tmp 
     1239      ENDIF 
     1240 
     1241      IF (PRESENT(pool_writer_)) THEN 
     1242        pool_writer__tmp = cxios_is_defined_file_pool_writer & 
     1243      (file_hdl%daddr) 
     1244        pool_writer_ = pool_writer__tmp 
     1245      ENDIF 
     1246 
    10461247      IF (PRESENT(read_metadata_par_)) THEN 
    10471248        read_metadata_par__tmp = cxios_is_defined_file_read_metadata_par & 
    … …  
    10501251      ENDIF 
    10511252 
     1253      IF (PRESENT(reader_)) THEN 
     1254        reader__tmp = cxios_is_defined_file_reader & 
     1255      (file_hdl%daddr) 
     1256        reader_ = reader__tmp 
     1257      ENDIF 
     1258 
    10521259      IF (PRESENT(record_offset_)) THEN 
    10531260        record_offset__tmp = cxios_is_defined_file_record_offset & 
    … …  
    11401347      ENDIF 
    11411348 
     1349      IF (PRESENT(using_server2_)) THEN 
     1350        using_server2__tmp = cxios_is_defined_file_using_server2 & 
     1351      (file_hdl%daddr) 
     1352        using_server2_ = using_server2__tmp 
     1353      ENDIF 
     1354 
    11421355      IF (PRESENT(uuid_format_)) THEN 
    11431356        uuid_format__tmp = cxios_is_defined_file_uuid_format & 
    … …  
    11521365      ENDIF 
    11531366 
     1367      IF (PRESENT(writer_)) THEN 
     1368        writer__tmp = cxios_is_defined_file_writer & 
     1369      (file_hdl%daddr) 
     1370        writer_ = writer__tmp 
     1371      ENDIF 
     1372 
    11541373  END SUBROUTINE xios(is_defined_file_attr_hdl_) 
    11551374 

  • XIOS3/trunk/src/interface/fortran_attr/ifilegroup_attr.F90

    r1492 r2616  
    1313  SUBROUTINE xios(set_filegroup_attr)  & 
    1414    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    15     , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    16     , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    17     , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    18     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     15    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     16    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     17    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     18    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     19    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    1920 
    2021    IMPLICIT NONE 
    … …  
    3334      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    3435      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format 
     36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer 
    3537      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 
    3638      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits 
    … …  
    4143      INTEGER  , OPTIONAL, INTENT(IN) :: output_level 
    4244      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 
     45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer 
     46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader 
     47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer 
    4348      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par 
    4449      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
     50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader 
    4551      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset 
    4652      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset 
    … …  
    5864      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 
    5965      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
     66      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2 
     67      LOGICAL (KIND=C_BOOL) :: using_server2_tmp 
    6068      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 
    6169      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 
     70      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer 
    6271 
    6372      CALL xios(get_filegroup_handle) & 
    … …  
    6574      CALL xios(set_filegroup_attr_hdl_)   & 
    6675      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    67       , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    68       , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    69       , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    70       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     76      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     77      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     78      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     79      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     80      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    7181 
    7282  END SUBROUTINE xios(set_filegroup_attr) 
    … …  
    7484  SUBROUTINE xios(set_filegroup_attr_hdl)  & 
    7585    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    76     , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    77     , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    78     , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    79     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     86    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     87    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     88    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     89    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     90    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    8091 
    8192    IMPLICIT NONE 
    … …  
    93104      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    94105      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format 
     106      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer 
    95107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 
    96108      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits 
    … …  
    101113      INTEGER  , OPTIONAL, INTENT(IN) :: output_level 
    102114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 
     115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer 
     116      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader 
     117      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer 
    103118      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par 
    104119      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
     120      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader 
    105121      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset 
    106122      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset 
    … …  
    118134      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 
    119135      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
     136      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2 
     137      LOGICAL (KIND=C_BOOL) :: using_server2_tmp 
    120138      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 
    121139      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 
     140      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer 
    122141 
    123142      CALL xios(set_filegroup_attr_hdl_)  & 
    124143      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    125       , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    126       , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    127       , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    128       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     144      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     145      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     146      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     147      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     148      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    129149 
    130150  END SUBROUTINE xios(set_filegroup_attr_hdl) 
    … …  
    132152  SUBROUTINE xios(set_filegroup_attr_hdl_)   & 
    133153    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  & 
    134     , description_, enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_  & 
    135     , output_level_, par_access_, read_metadata_par_, record_offset_, split_end_offset_, split_freq_  & 
    136     , split_freq_format_, split_last_date_, split_start_offset_, sync_freq_, time_counter_, time_counter_name_  & 
    137     , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
    138     , uuid_name_ ) 
     154    , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_  & 
     155    , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_  & 
     156    , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  & 
     157    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  & 
     158    , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_  & 
     159     ) 
    139160 
    140161    IMPLICIT NONE 
    … …  
    152173      LOGICAL (KIND=C_BOOL) :: enabled__tmp 
    153174      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_ 
     175      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer_ 
    154176      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 
    155177      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_ 
    … …  
    160182      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_ 
    161183      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 
     184      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer_ 
     185      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader_ 
     186      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer_ 
    162187      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par_ 
    163188      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 
     189      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader_ 
    164190      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset_ 
    165191      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset_ 
    … …  
    177203      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ 
    178204      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
     205      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2_ 
     206      LOGICAL (KIND=C_BOOL) :: using_server2__tmp 
    179207      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_ 
    180208      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_ 
     209      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer_ 
    181210 
    182211      IF (PRESENT(append_)) THEN 
    … …  
    228257      ENDIF 
    229258 
     259      IF (PRESENT(gatherer_)) THEN 
     260        CALL cxios_set_filegroup_gatherer & 
     261      (filegroup_hdl%daddr, gatherer_, len(gatherer_)) 
     262      ENDIF 
     263 
    230264      IF (PRESENT(group_ref_)) THEN 
    231265        CALL cxios_set_filegroup_group_ref & 
    … …  
    266300        CALL cxios_set_filegroup_par_access & 
    267301      (filegroup_hdl%daddr, par_access_, len(par_access_)) 
     302      ENDIF 
     303 
     304      IF (PRESENT(pool_gatherer_)) THEN 
     305        CALL cxios_set_filegroup_pool_gatherer & 
     306      (filegroup_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) 
     307      ENDIF 
     308 
     309      IF (PRESENT(pool_reader_)) THEN 
     310        CALL cxios_set_filegroup_pool_reader & 
     311      (filegroup_hdl%daddr, pool_reader_, len(pool_reader_)) 
     312      ENDIF 
     313 
     314      IF (PRESENT(pool_writer_)) THEN 
     315        CALL cxios_set_filegroup_pool_writer & 
     316      (filegroup_hdl%daddr, pool_writer_, len(pool_writer_)) 
    268317      ENDIF 
    269318 
    … …  
    274323      ENDIF 
    275324 
     325      IF (PRESENT(reader_)) THEN 
     326        CALL cxios_set_filegroup_reader & 
     327      (filegroup_hdl%daddr, reader_, len(reader_)) 
     328      ENDIF 
     329 
    276330      IF (PRESENT(record_offset_)) THEN 
    277331        CALL cxios_set_filegroup_record_offset & 
    … …  
    349403      ENDIF 
    350404 
     405      IF (PRESENT(using_server2_)) THEN 
     406        using_server2__tmp = using_server2_ 
     407        CALL cxios_set_filegroup_using_server2 & 
     408      (filegroup_hdl%daddr, using_server2__tmp) 
     409      ENDIF 
     410 
    351411      IF (PRESENT(uuid_format_)) THEN 
    352412        CALL cxios_set_filegroup_uuid_format & 
    … …  
    359419      ENDIF 
    360420 
     421      IF (PRESENT(writer_)) THEN 
     422        CALL cxios_set_filegroup_writer & 
     423      (filegroup_hdl%daddr, writer_, len(writer_)) 
     424      ENDIF 
     425 
    361426  END SUBROUTINE xios(set_filegroup_attr_hdl_) 
    362427 
    363428  SUBROUTINE xios(get_filegroup_attr)  & 
    364429    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    365     , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    366     , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    367     , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    368     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     430    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     431    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     432    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     433    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     434    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    369435 
    370436    IMPLICIT NONE 
    … …  
    383449      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    384450      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format 
     451      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer 
    385452      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 
    386453      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits 
    … …  
    391458      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level 
    392459      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 
     460      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer 
     461      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader 
     462      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer 
    393463      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par 
    394464      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
     465      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader 
    395466      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset 
    396467      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset 
    … …  
    408479      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 
    409480      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
     481      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2 
     482      LOGICAL (KIND=C_BOOL) :: using_server2_tmp 
    410483      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 
    411484      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 
     485      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer 
    412486 
    413487      CALL xios(get_filegroup_handle) & 
    … …  
    415489      CALL xios(get_filegroup_attr_hdl_)   & 
    416490      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    417       , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    418       , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    419       , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    420       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     491      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     492      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     493      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     494      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     495      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    421496 
    422497  END SUBROUTINE xios(get_filegroup_attr) 
    … …  
    424499  SUBROUTINE xios(get_filegroup_attr_hdl)  & 
    425500    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    426     , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    427     , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    428     , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    429     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     501    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     502    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     503    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     504    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     505    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    430506 
    431507    IMPLICIT NONE 
    … …  
    443519      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    444520      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format 
     521      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer 
    445522      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 
    446523      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits 
    … …  
    451528      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level 
    452529      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 
     530      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer 
     531      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader 
     532      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer 
    453533      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par 
    454534      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
     535      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader 
    455536      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset 
    456537      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset 
    … …  
    468549      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 
    469550      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
     551      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2 
     552      LOGICAL (KIND=C_BOOL) :: using_server2_tmp 
    470553      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 
    471554      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 
     555      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer 
    472556 
    473557      CALL xios(get_filegroup_attr_hdl_)  & 
    474558      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    475       , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    476       , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    477       , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    478       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     559      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     560      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     561      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     562      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     563      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    479564 
    480565  END SUBROUTINE xios(get_filegroup_attr_hdl) 
    … …  
    482567  SUBROUTINE xios(get_filegroup_attr_hdl_)   & 
    483568    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  & 
    484     , description_, enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_  & 
    485     , output_level_, par_access_, read_metadata_par_, record_offset_, split_end_offset_, split_freq_  & 
    486     , split_freq_format_, split_last_date_, split_start_offset_, sync_freq_, time_counter_, time_counter_name_  & 
    487     , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
    488     , uuid_name_ ) 
     569    , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_  & 
     570    , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_  & 
     571    , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  & 
     572    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  & 
     573    , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_  & 
     574     ) 
    489575 
    490576    IMPLICIT NONE 
    … …  
    502588      LOGICAL (KIND=C_BOOL) :: enabled__tmp 
    503589      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_ 
     590      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer_ 
    504591      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 
    505592      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_ 
    … …  
    510597      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_ 
    511598      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 
     599      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer_ 
     600      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader_ 
     601      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer_ 
    512602      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par_ 
    513603      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 
     604      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader_ 
    514605      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset_ 
    515606      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset_ 
    … …  
    527618      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ 
    528619      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
     620      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2_ 
     621      LOGICAL (KIND=C_BOOL) :: using_server2__tmp 
    529622      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_ 
    530623      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_ 
     624      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer_ 
    531625 
    532626      IF (PRESENT(append_)) THEN 
    … …  
    578672      ENDIF 
    579673 
     674      IF (PRESENT(gatherer_)) THEN 
     675        CALL cxios_get_filegroup_gatherer & 
     676      (filegroup_hdl%daddr, gatherer_, len(gatherer_)) 
     677      ENDIF 
     678 
    580679      IF (PRESENT(group_ref_)) THEN 
    581680        CALL cxios_get_filegroup_group_ref & 
    … …  
    616715        CALL cxios_get_filegroup_par_access & 
    617716      (filegroup_hdl%daddr, par_access_, len(par_access_)) 
     717      ENDIF 
     718 
     719      IF (PRESENT(pool_gatherer_)) THEN 
     720        CALL cxios_get_filegroup_pool_gatherer & 
     721      (filegroup_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) 
     722      ENDIF 
     723 
     724      IF (PRESENT(pool_reader_)) THEN 
     725        CALL cxios_get_filegroup_pool_reader & 
     726      (filegroup_hdl%daddr, pool_reader_, len(pool_reader_)) 
     727      ENDIF 
     728 
     729      IF (PRESENT(pool_writer_)) THEN 
     730        CALL cxios_get_filegroup_pool_writer & 
     731      (filegroup_hdl%daddr, pool_writer_, len(pool_writer_)) 
    618732      ENDIF 
    619733 
    … …  
    624738      ENDIF 
    625739 
     740      IF (PRESENT(reader_)) THEN 
     741        CALL cxios_get_filegroup_reader & 
     742      (filegroup_hdl%daddr, reader_, len(reader_)) 
     743      ENDIF 
     744 
    626745      IF (PRESENT(record_offset_)) THEN 
    627746        CALL cxios_get_filegroup_record_offset & 
    … …  
    699818      ENDIF 
    700819 
     820      IF (PRESENT(using_server2_)) THEN 
     821        CALL cxios_get_filegroup_using_server2 & 
     822      (filegroup_hdl%daddr, using_server2__tmp) 
     823        using_server2_ = using_server2__tmp 
     824      ENDIF 
     825 
    701826      IF (PRESENT(uuid_format_)) THEN 
    702827        CALL cxios_get_filegroup_uuid_format & 
    … …  
    709834      ENDIF 
    710835 
     836      IF (PRESENT(writer_)) THEN 
     837        CALL cxios_get_filegroup_writer & 
     838      (filegroup_hdl%daddr, writer_, len(writer_)) 
     839      ENDIF 
     840 
    711841  END SUBROUTINE xios(get_filegroup_attr_hdl_) 
    712842 
    713843  SUBROUTINE xios(is_defined_filegroup_attr)  & 
    714844    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    715     , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    716     , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    717     , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    718     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     845    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     846    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     847    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     848    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     849    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    719850 
    720851    IMPLICIT NONE 
    … …  
    739870      LOGICAL, OPTIONAL, INTENT(OUT) :: format 
    740871      LOGICAL(KIND=C_BOOL) :: format_tmp 
     872      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer 
     873      LOGICAL(KIND=C_BOOL) :: gatherer_tmp 
    741874      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
    742875      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
    … …  
    755888      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 
    756889      LOGICAL(KIND=C_BOOL) :: par_access_tmp 
     890      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer 
     891      LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp 
     892      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader 
     893      LOGICAL(KIND=C_BOOL) :: pool_reader_tmp 
     894      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer 
     895      LOGICAL(KIND=C_BOOL) :: pool_writer_tmp 
    757896      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 
    758897      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 
     898      LOGICAL, OPTIONAL, INTENT(OUT) :: reader 
     899      LOGICAL(KIND=C_BOOL) :: reader_tmp 
    759900      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 
    760901      LOGICAL(KIND=C_BOOL) :: record_offset_tmp 
    … …  
    787928      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    788929      LOGICAL(KIND=C_BOOL) :: type_tmp 
     930      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 
     931      LOGICAL(KIND=C_BOOL) :: using_server2_tmp 
    789932      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 
    790933      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 
    791934      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 
    792935      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 
     936      LOGICAL, OPTIONAL, INTENT(OUT) :: writer 
     937      LOGICAL(KIND=C_BOOL) :: writer_tmp 
    793938 
    794939      CALL xios(get_filegroup_handle) & 
    … …  
    796941      CALL xios(is_defined_filegroup_attr_hdl_)   & 
    797942      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    798       , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    799       , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    800       , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    801       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     943      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     944      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     945      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     946      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     947      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    802948 
    803949  END SUBROUTINE xios(is_defined_filegroup_attr) 
    … …  
    805951  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  & 
    806952    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    807     , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    808     , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    809     , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    810     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     953    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     954    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     955    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     956    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     957    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    811958 
    812959    IMPLICIT NONE 
    … …  
    830977      LOGICAL, OPTIONAL, INTENT(OUT) :: format 
    831978      LOGICAL(KIND=C_BOOL) :: format_tmp 
     979      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer 
     980      LOGICAL(KIND=C_BOOL) :: gatherer_tmp 
    832981      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
    833982      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
    … …  
    846995      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 
    847996      LOGICAL(KIND=C_BOOL) :: par_access_tmp 
     997      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer 
     998      LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp 
     999      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader 
     1000      LOGICAL(KIND=C_BOOL) :: pool_reader_tmp 
     1001      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer 
     1002      LOGICAL(KIND=C_BOOL) :: pool_writer_tmp 
    8481003      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 
    8491004      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 
     1005      LOGICAL, OPTIONAL, INTENT(OUT) :: reader 
     1006      LOGICAL(KIND=C_BOOL) :: reader_tmp 
    8501007      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 
    8511008      LOGICAL(KIND=C_BOOL) :: record_offset_tmp 
    … …  
    8781035      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    8791036      LOGICAL(KIND=C_BOOL) :: type_tmp 
     1037      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 
     1038      LOGICAL(KIND=C_BOOL) :: using_server2_tmp 
    8801039      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 
    8811040      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 
    8821041      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 
    8831042      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 
     1043      LOGICAL, OPTIONAL, INTENT(OUT) :: writer 
     1044      LOGICAL(KIND=C_BOOL) :: writer_tmp 
    8841045 
    8851046      CALL xios(is_defined_filegroup_attr_hdl_)  & 
    8861047      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    887       , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    888       , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    889       , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    890       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     1048      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     1049      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     1050      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     1051      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     1052      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    8911053 
    8921054  END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 
    … …  
    8941056  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   & 
    8951057    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  & 
    896     , description_, enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_  & 
    897     , output_level_, par_access_, read_metadata_par_, record_offset_, split_end_offset_, split_freq_  & 
    898     , split_freq_format_, split_last_date_, split_start_offset_, sync_freq_, time_counter_, time_counter_name_  & 
    899     , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
    900     , uuid_name_ ) 
     1058    , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_  & 
     1059    , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_  & 
     1060    , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  & 
     1061    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  & 
     1062    , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_  & 
     1063     ) 
    9011064 
    9021065    IMPLICIT NONE 
    … …  
    9201083      LOGICAL, OPTIONAL, INTENT(OUT) :: format_ 
    9211084      LOGICAL(KIND=C_BOOL) :: format__tmp 
     1085      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer_ 
     1086      LOGICAL(KIND=C_BOOL) :: gatherer__tmp 
    9221087      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 
    9231088      LOGICAL(KIND=C_BOOL) :: group_ref__tmp 
    … …  
    9361101      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 
    9371102      LOGICAL(KIND=C_BOOL) :: par_access__tmp 
     1103      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer_ 
     1104      LOGICAL(KIND=C_BOOL) :: pool_gatherer__tmp 
     1105      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader_ 
     1106      LOGICAL(KIND=C_BOOL) :: pool_reader__tmp 
     1107      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer_ 
     1108      LOGICAL(KIND=C_BOOL) :: pool_writer__tmp 
    9381109      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_ 
    9391110      LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp 
     1111      LOGICAL, OPTIONAL, INTENT(OUT) :: reader_ 
     1112      LOGICAL(KIND=C_BOOL) :: reader__tmp 
    9401113      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ 
    9411114      LOGICAL(KIND=C_BOOL) :: record_offset__tmp 
    … …  
    9681141      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    9691142      LOGICAL(KIND=C_BOOL) :: type__tmp 
     1143      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2_ 
     1144      LOGICAL(KIND=C_BOOL) :: using_server2__tmp 
    9701145      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_ 
    9711146      LOGICAL(KIND=C_BOOL) :: uuid_format__tmp 
    9721147      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_ 
    9731148      LOGICAL(KIND=C_BOOL) :: uuid_name__tmp 
     1149      LOGICAL, OPTIONAL, INTENT(OUT) :: writer_ 
     1150      LOGICAL(KIND=C_BOOL) :: writer__tmp 
    9741151 
    9751152      IF (PRESENT(append_)) THEN 
    … …  
    10271204      ENDIF 
    10281205 
     1206      IF (PRESENT(gatherer_)) THEN 
     1207        gatherer__tmp = cxios_is_defined_filegroup_gatherer & 
     1208      (filegroup_hdl%daddr) 
     1209        gatherer_ = gatherer__tmp 
     1210      ENDIF 
     1211 
    10291212      IF (PRESENT(group_ref_)) THEN 
    10301213        group_ref__tmp = cxios_is_defined_filegroup_group_ref & 
    … …  
    10751258      ENDIF 
    10761259 
     1260      IF (PRESENT(pool_gatherer_)) THEN 
     1261        pool_gatherer__tmp = cxios_is_defined_filegroup_pool_gatherer & 
     1262      (filegroup_hdl%daddr) 
     1263        pool_gatherer_ = pool_gatherer__tmp 
     1264      ENDIF 
     1265 
     1266      IF (PRESENT(pool_reader_)) THEN 
     1267        pool_reader__tmp = cxios_is_defined_filegroup_pool_reader & 
     1268      (filegroup_hdl%daddr) 
     1269        pool_reader_ = pool_reader__tmp 
     1270      ENDIF 
     1271 
     1272      IF (PRESENT(pool_writer_)) THEN 
     1273        pool_writer__tmp = cxios_is_defined_filegroup_pool_writer & 
     1274      (filegroup_hdl%daddr) 
     1275        pool_writer_ = pool_writer__tmp 
     1276      ENDIF 
     1277 
    10771278      IF (PRESENT(read_metadata_par_)) THEN 
    10781279        read_metadata_par__tmp = cxios_is_defined_filegroup_read_metadata_par & 
    … …  
    10811282      ENDIF 
    10821283 
     1284      IF (PRESENT(reader_)) THEN 
     1285        reader__tmp = cxios_is_defined_filegroup_reader & 
     1286      (filegroup_hdl%daddr) 
     1287        reader_ = reader__tmp 
     1288      ENDIF 
     1289 
    10831290      IF (PRESENT(record_offset_)) THEN 
    10841291        record_offset__tmp = cxios_is_defined_filegroup_record_offset & 
    … …  
    11711378      ENDIF 
    11721379 
     1380      IF (PRESENT(using_server2_)) THEN 
     1381        using_server2__tmp = cxios_is_defined_filegroup_using_server2 & 
     1382      (filegroup_hdl%daddr) 
     1383        using_server2_ = using_server2__tmp 
     1384      ENDIF 
     1385 
    11731386      IF (PRESENT(uuid_format_)) THEN 
    11741387        uuid_format__tmp = cxios_is_defined_filegroup_uuid_format & 
    … …  
    11831396      ENDIF 
    11841397 
     1398      IF (PRESENT(writer_)) THEN 
     1399        writer__tmp = cxios_is_defined_filegroup_writer & 
     1400      (filegroup_hdl%daddr) 
     1401        writer_ = writer__tmp 
     1402      ENDIF 
     1403 
    11851404  END SUBROUTINE xios(is_defined_filegroup_attr_hdl_) 
    11861405 
Note: See TracChangeset for help on using the changeset viewer.