Ignore:
Timestamp:
06/05/15 15:42:02 (9 years ago)
Author:
rlacroix
Message:

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r593 r608  
    1212 
    1313  SUBROUTINE xios(set_fieldgroup_attr)  & 
    14     ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    15     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    16     , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
     14    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     15    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     16    , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  & 
     17     ) 
    1718 
    1819    IMPLICIT NONE 
    … …  
    2122      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    2223      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     24      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2325      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    2426      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    4749      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
    4850      CALL xios(set_fieldgroup_attr_hdl_)   & 
    49       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    50       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    51       , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
     51      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     52      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     53      , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  & 
     54       ) 
    5255 
    5356  END SUBROUTINE xios(set_fieldgroup_attr) 
    5457 
    5558  SUBROUTINE xios(set_fieldgroup_attr_hdl)  & 
    56     ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    57     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    58     , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
     59    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     60    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     61    , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  & 
     62     ) 
    5963 
    6064    IMPLICIT NONE 
    … …  
    6266      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    6367      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     68      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    6469      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    6570      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    8792 
    8893      CALL xios(set_fieldgroup_attr_hdl_)  & 
    89       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    90       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    91       , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
     94      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     95      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     96      , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  & 
     97       ) 
    9298 
    9399  END SUBROUTINE xios(set_fieldgroup_attr_hdl) 
    94100 
    95101  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   & 
    96     ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  & 
    97     , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  & 
    98     , operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  & 
     102    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     103    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_  & 
     104    , name_, operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  & 
    99105     ) 
    100106 
    … …  
    103109      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 
    104110      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 
     111      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    105112      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 
    106113      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_ 
    … …  
    135142      ENDIF 
    136143 
     144      IF (PRESENT(compression_level_)) THEN 
     145        CALL cxios_set_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_) 
     146      ENDIF 
     147 
    137148      IF (PRESENT(default_value_)) THEN 
    138149        CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 
    … …  
    221232 
    222233  SUBROUTINE xios(get_fieldgroup_attr)  & 
    223     ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    224     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    225     , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
     234    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     235    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     236    , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  & 
     237     ) 
    226238 
    227239    IMPLICIT NONE 
    … …  
    230242      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    231243      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     244      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    232245      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    233246      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    256269      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
    257270      CALL xios(get_fieldgroup_attr_hdl_)   & 
    258       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    259       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    260       , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
     271      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     272      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     273      , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  & 
     274       ) 
    261275 
    262276  END SUBROUTINE xios(get_fieldgroup_attr) 
    263277 
    264278  SUBROUTINE xios(get_fieldgroup_attr_hdl)  & 
    265     ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    266     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    267     , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
     279    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     280    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     281    , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  & 
     282     ) 
    268283 
    269284    IMPLICIT NONE 
    … …  
    271286      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    272287      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     288      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    273289      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    274290      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    296312 
    297313      CALL xios(get_fieldgroup_attr_hdl_)  & 
    298       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    299       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    300       , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
     314      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     315      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     316      , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  & 
     317       ) 
    301318 
    302319  END SUBROUTINE xios(get_fieldgroup_attr_hdl) 
    303320 
    304321  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   & 
    305     ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  & 
    306     , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  & 
    307     , operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  & 
     322    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     323    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_  & 
     324    , name_, operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  & 
    308325     ) 
    309326 
    … …  
    312329      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 
    313330      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 
     331      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    314332      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 
    315333      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_ 
    … …  
    344362      ENDIF 
    345363 
     364      IF (PRESENT(compression_level_)) THEN 
     365        CALL cxios_get_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_) 
     366      ENDIF 
     367 
    346368      IF (PRESENT(default_value_)) THEN 
    347369        CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 
    … …  
    430452 
    431453  SUBROUTINE xios(is_defined_fieldgroup_attr)  & 
    432     ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    433     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    434     , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
     454    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     455    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     456    , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  & 
     457     ) 
    435458 
    436459    IMPLICIT NONE 
    … …  
    441464      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    442465      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     466      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     467      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    443468      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    444469      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    484509      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
    485510      CALL xios(is_defined_fieldgroup_attr_hdl_)   & 
    486       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    487       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    488       , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
     511      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     512      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     513      , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  & 
     514       ) 
    489515 
    490516  END SUBROUTINE xios(is_defined_fieldgroup_attr) 
    491517 
    492518  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  & 
    493     ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    494     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    495     , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
     519    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     520    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     521    , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  & 
     522     ) 
    496523 
    497524    IMPLICIT NONE 
    … …  
    501528      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    502529      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     530      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     531      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    503532      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    504533      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    543572 
    544573      CALL xios(is_defined_fieldgroup_attr_hdl_)  & 
    545       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    546       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    547       , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
     574      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     575      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     576      , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  & 
     577       ) 
    548578 
    549579  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 
    550580 
    551581  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   & 
    552     ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  & 
    553     , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  & 
    554     , operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  & 
     582    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     583    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_  & 
     584    , name_, operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  & 
    555585     ) 
    556586 
    … …  
    561591      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 
    562592      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 
     593      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
     594      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    563595      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 
    564596      LOGICAL(KIND=C_BOOL) :: default_value__tmp 
    … …  
    612644      ENDIF 
    613645 
     646      IF (PRESENT(compression_level_)) THEN 
     647        compression_level__tmp = cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl%daddr) 
     648        compression_level_ = compression_level__tmp 
     649      ENDIF 
     650 
    614651      IF (PRESENT(default_value_)) THEN 
    615652        default_value__tmp = cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.