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