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/branchs/xios-1.0/src/interface/fortran_attr/ifieldgroup_attr.F90

    r501 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     , 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, scale_factor, standard_name, unit, valid_max, valid_min ) 
    1717     
    1818    IMPLICIT NONE 
    … …  
    2121      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    2222      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     23      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2324      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    2425      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    4546      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
    4647      CALL xios(set_fieldgroup_attr_hdl_)   & 
    47       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    48       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    49       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     48      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     49      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     50      , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    5051     
    5152  END SUBROUTINE xios(set_fieldgroup_attr) 
    5253   
    5354  SUBROUTINE xios(set_fieldgroup_attr_hdl)  & 
    54     ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    55     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    56     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     55    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     56    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     57    , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    5758     
    5859    IMPLICIT NONE 
    … …  
    6061      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    6162      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     63      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    6264      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    6365      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    8385       
    8486      CALL xios(set_fieldgroup_attr_hdl_)  & 
    85       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    86       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    87       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     87      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     88      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     89      , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    8890     
    8991  END SUBROUTINE xios(set_fieldgroup_attr_hdl) 
    9092   
    9193  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   & 
    92     ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  & 
    93     , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  & 
    94     , operation_, prec_, 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_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    9597     
    9698    IMPLICIT NONE 
    … …  
    98100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 
    99101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 
     102      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    100103      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 
    101104      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_ 
    … …  
    128131      ENDIF 
    129132       
     133      IF (PRESENT(compression_level_)) THEN 
     134        CALL cxios_set_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_) 
     135      ENDIF 
     136       
    130137      IF (PRESENT(default_value_)) THEN 
    131138        CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 
    … …  
    211218   
    212219  SUBROUTINE xios(get_fieldgroup_attr)  & 
    213     ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    214     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    215     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     220    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     221    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     222    , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    216223     
    217224    IMPLICIT NONE 
    … …  
    220227      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    221228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     229      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    222230      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    223231      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    244252      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
    245253      CALL xios(get_fieldgroup_attr_hdl_)   & 
    246       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    247       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    248       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     254      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     255      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     256      , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    249257     
    250258  END SUBROUTINE xios(get_fieldgroup_attr) 
    251259   
    252260  SUBROUTINE xios(get_fieldgroup_attr_hdl)  & 
    253     ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    254     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    255     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     261    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     262    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     263    , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    256264     
    257265    IMPLICIT NONE 
    … …  
    259267      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    260268      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     269      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    261270      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    262271      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    282291       
    283292      CALL xios(get_fieldgroup_attr_hdl_)  & 
    284       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    285       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    286       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     293      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     294      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     295      , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    287296     
    288297  END SUBROUTINE xios(get_fieldgroup_attr_hdl) 
    289298   
    290299  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   & 
    291     ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  & 
    292     , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  & 
    293     , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     300    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     301    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_  & 
     302    , name_, operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    294303     
    295304    IMPLICIT NONE 
    … …  
    297306      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 
    298307      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 
     308      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    299309      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 
    300310      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_ 
    … …  
    327337      ENDIF 
    328338       
     339      IF (PRESENT(compression_level_)) THEN 
     340        CALL cxios_get_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_) 
     341      ENDIF 
     342       
    329343      IF (PRESENT(default_value_)) THEN 
    330344        CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 
    … …  
    410424   
    411425  SUBROUTINE xios(is_defined_fieldgroup_attr)  & 
    412     ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    413     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    414     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     426    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     427    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     428    , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    415429     
    416430    IMPLICIT NONE 
    … …  
    421435      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    422436      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     437      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     438      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    423439      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    424440      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    462478      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
    463479      CALL xios(is_defined_fieldgroup_attr_hdl_)   & 
    464       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    465       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    466       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     480      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     481      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     482      , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    467483     
    468484  END SUBROUTINE xios(is_defined_fieldgroup_attr) 
    469485   
    470486  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  & 
    471     ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    472     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    473     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     487    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     488    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     489    , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    474490     
    475491    IMPLICIT NONE 
    … …  
    479495      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    480496      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     497      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     498      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    481499      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    482500      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    519537       
    520538      CALL xios(is_defined_fieldgroup_attr_hdl_)  & 
    521       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    522       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    523       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     539      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     540      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     541      , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    524542     
    525543  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 
    526544   
    527545  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   & 
    528     ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  & 
    529     , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  & 
    530     , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     546    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     547    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_  & 
     548    , name_, operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    531549     
    532550    IMPLICIT NONE 
    … …  
    536554      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 
    537555      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 
     556      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
     557      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    538558      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 
    539559      LOGICAL(KIND=C_BOOL) :: default_value__tmp 
    … …  
    585605      ENDIF 
    586606       
     607      IF (PRESENT(compression_level_)) THEN 
     608        compression_level__tmp=cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl%daddr) 
     609        compression_level_=compression_level__tmp 
     610      ENDIF 
     611       
    587612      IF (PRESENT(default_value_)) THEN 
    588613        default_value__tmp=cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.