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

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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 & 
Note: See TracChangeset for help on using the changeset viewer.