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/ifield_attr.F90

    r501 r608  
    1212   
    1313  SUBROUTINE xios(set_field_attr)  & 
    14     ( field_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled, field_ref  & 
    15     , freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor, standard_name  & 
    16     , unit, valid_max, valid_min ) 
     14    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     15    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     16    , 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 
    … …  
    4445      CALL xios(get_field_handle)(field_id,field_hdl) 
    4546      CALL xios(set_field_attr_hdl_)   & 
    46       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    47       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    48       , standard_name, unit, valid_max, valid_min ) 
     47      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     48      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     49      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    4950     
    5051  END SUBROUTINE xios(set_field_attr) 
    5152   
    5253  SUBROUTINE xios(set_field_attr_hdl)  & 
    53     ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    54     , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    55     , standard_name, unit, valid_max, valid_min ) 
     54    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     55    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     56    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    5657     
    5758    IMPLICIT NONE 
    … …  
    5960      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    6061      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     62      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    6163      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    6264      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    8183       
    8284      CALL xios(set_field_attr_hdl_)  & 
    83       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    84       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    85       , standard_name, unit, valid_max, valid_min ) 
     85      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     86      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     87      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    8688     
    8789  END SUBROUTINE xios(set_field_attr_hdl) 
    8890   
    8991  SUBROUTINE xios(set_field_attr_hdl_)   & 
    90     ( field_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_, enabled_  & 
    91     , field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_, operation_, prec_  & 
    92     , scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     92    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     93    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_  & 
     94    , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    9395     
    9496    IMPLICIT NONE 
    … …  
    9698      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 
    9799      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 
     100      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    98101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 
    99102      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_ 
    … …  
    125128      ENDIF 
    126129       
     130      IF (PRESENT(compression_level_)) THEN 
     131        CALL cxios_set_field_compression_level(field_hdl%daddr, compression_level_) 
     132      ENDIF 
     133       
    127134      IF (PRESENT(default_value_)) THEN 
    128135        CALL cxios_set_field_default_value(field_hdl%daddr, default_value_) 
    … …  
    204211   
    205212  SUBROUTINE xios(get_field_attr)  & 
    206     ( field_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled, field_ref  & 
    207     , freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor, standard_name  & 
    208     , unit, valid_max, valid_min ) 
     213    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     214    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     215    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    209216     
    210217    IMPLICIT NONE 
    … …  
    213220      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    214221      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     222      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    215223      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    216224      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    236244      CALL xios(get_field_handle)(field_id,field_hdl) 
    237245      CALL xios(get_field_attr_hdl_)   & 
    238       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    239       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    240       , standard_name, unit, valid_max, valid_min ) 
     246      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     247      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     248      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    241249     
    242250  END SUBROUTINE xios(get_field_attr) 
    243251   
    244252  SUBROUTINE xios(get_field_attr_hdl)  & 
    245     ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    246     , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    247     , standard_name, unit, valid_max, valid_min ) 
     253    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     254    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     255    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    248256     
    249257    IMPLICIT NONE 
    … …  
    251259      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    252260      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     261      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    253262      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    254263      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    273282       
    274283      CALL xios(get_field_attr_hdl_)  & 
    275       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    276       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    277       , standard_name, unit, valid_max, valid_min ) 
     284      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     285      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     286      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    278287     
    279288  END SUBROUTINE xios(get_field_attr_hdl) 
    280289   
    281290  SUBROUTINE xios(get_field_attr_hdl_)   & 
    282     ( field_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_, enabled_  & 
    283     , field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_, operation_, prec_  & 
    284     , scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     291    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     292    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_  & 
     293    , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    285294     
    286295    IMPLICIT NONE 
    … …  
    288297      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 
    289298      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 
     299      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    290300      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 
    291301      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_ 
    … …  
    317327      ENDIF 
    318328       
     329      IF (PRESENT(compression_level_)) THEN 
     330        CALL cxios_get_field_compression_level(field_hdl%daddr, compression_level_) 
     331      ENDIF 
     332       
    319333      IF (PRESENT(default_value_)) THEN 
    320334        CALL cxios_get_field_default_value(field_hdl%daddr, default_value_) 
    … …  
    396410   
    397411  SUBROUTINE xios(is_defined_field_attr)  & 
    398     ( field_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled, field_ref  & 
    399     , freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor, standard_name  & 
    400     , unit, valid_max, valid_min ) 
     412    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     413    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     414    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    401415     
    402416    IMPLICIT NONE 
    … …  
    407421      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    408422      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     423      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     424      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    409425      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    410426      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    446462      CALL xios(get_field_handle)(field_id,field_hdl) 
    447463      CALL xios(is_defined_field_attr_hdl_)   & 
    448       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    449       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    450       , standard_name, unit, valid_max, valid_min ) 
     464      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     465      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     466      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    451467     
    452468  END SUBROUTINE xios(is_defined_field_attr) 
    453469   
    454470  SUBROUTINE xios(is_defined_field_attr_hdl)  & 
    455     ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    456     , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    457     , standard_name, unit, valid_max, valid_min ) 
     471    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     472    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     473    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    458474     
    459475    IMPLICIT NONE 
    … …  
    463479      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    464480      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     481      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     482      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    465483      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    466484      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    501519       
    502520      CALL xios(is_defined_field_attr_hdl_)  & 
    503       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    504       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    505       , standard_name, unit, valid_max, valid_min ) 
     521      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     522      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     523      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    506524     
    507525  END SUBROUTINE xios(is_defined_field_attr_hdl) 
    508526   
    509527  SUBROUTINE xios(is_defined_field_attr_hdl_)   & 
    510     ( field_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_, enabled_  & 
    511     , field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_, operation_, prec_  & 
    512     , scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     528    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     529    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_  & 
     530    , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    513531     
    514532    IMPLICIT NONE 
    … …  
    518536      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 
    519537      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 
     538      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
     539      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    520540      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 
    521541      LOGICAL(KIND=C_BOOL) :: default_value__tmp 
    … …  
    565585      ENDIF 
    566586       
     587      IF (PRESENT(compression_level_)) THEN 
     588        compression_level__tmp=cxios_is_defined_field_compression_level(field_hdl%daddr) 
     589        compression_level_=compression_level__tmp 
     590      ENDIF 
     591       
    567592      IF (PRESENT(default_value_)) THEN 
    568593        default_value__tmp=cxios_is_defined_field_default_value(field_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.