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.

Location:
XIOS/trunk/src/interface
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/c_attr/icfield_attr.cpp

    r593 r608  
    6767 
    6868 
     69  void cxios_set_field_compression_level(field_Ptr field_hdl, int compression_level) 
     70  { 
     71    CTimer::get("XIOS").resume(); 
     72    field_hdl->compression_level.setValue(compression_level); 
     73    CTimer::get("XIOS").suspend(); 
     74  } 
     75 
     76  void cxios_get_field_compression_level(field_Ptr field_hdl, int* compression_level) 
     77  { 
     78    CTimer::get("XIOS").resume(); 
     79    *compression_level = field_hdl->compression_level.getInheritedValue(); 
     80    CTimer::get("XIOS").suspend(); 
     81  } 
     82 
     83  bool cxios_is_defined_field_compression_level(field_Ptr field_hdl) 
     84  { 
     85     CTimer::get("XIOS").resume(); 
     86     bool isDefined = field_hdl->compression_level.hasInheritedValue(); 
     87     CTimer::get("XIOS").suspend(); 
     88     return isDefined; 
     89  } 
     90 
     91 
    6992  void cxios_set_field_default_value(field_Ptr field_hdl, double default_value) 
    7093  { 

  • XIOS/trunk/src/interface/c_attr/icfieldgroup_attr.cpp

    r593 r608  
    6767 
    6868 
     69  void cxios_set_fieldgroup_compression_level(fieldgroup_Ptr fieldgroup_hdl, int compression_level) 
     70  { 
     71    CTimer::get("XIOS").resume(); 
     72    fieldgroup_hdl->compression_level.setValue(compression_level); 
     73    CTimer::get("XIOS").suspend(); 
     74  } 
     75 
     76  void cxios_get_fieldgroup_compression_level(fieldgroup_Ptr fieldgroup_hdl, int* compression_level) 
     77  { 
     78    CTimer::get("XIOS").resume(); 
     79    *compression_level = fieldgroup_hdl->compression_level.getInheritedValue(); 
     80    CTimer::get("XIOS").suspend(); 
     81  } 
     82 
     83  bool cxios_is_defined_fieldgroup_compression_level(fieldgroup_Ptr fieldgroup_hdl) 
     84  { 
     85     CTimer::get("XIOS").resume(); 
     86     bool isDefined = fieldgroup_hdl->compression_level.hasInheritedValue(); 
     87     CTimer::get("XIOS").suspend(); 
     88     return isDefined; 
     89  } 
     90 
     91 
    6992  void cxios_set_fieldgroup_default_value(fieldgroup_Ptr fieldgroup_hdl, double default_value) 
    7093  { 

  • XIOS/trunk/src/interface/c_attr/icfile_attr.cpp

    r598 r608  
    4141 
    4242 
     43  void cxios_set_file_compression_level(file_Ptr file_hdl, int compression_level) 
     44  { 
     45    CTimer::get("XIOS").resume(); 
     46    file_hdl->compression_level.setValue(compression_level); 
     47    CTimer::get("XIOS").suspend(); 
     48  } 
     49 
     50  void cxios_get_file_compression_level(file_Ptr file_hdl, int* compression_level) 
     51  { 
     52    CTimer::get("XIOS").resume(); 
     53    *compression_level = file_hdl->compression_level.getInheritedValue(); 
     54    CTimer::get("XIOS").suspend(); 
     55  } 
     56 
     57  bool cxios_is_defined_file_compression_level(file_Ptr file_hdl) 
     58  { 
     59     CTimer::get("XIOS").resume(); 
     60     bool isDefined = file_hdl->compression_level.hasInheritedValue(); 
     61     CTimer::get("XIOS").suspend(); 
     62     return isDefined; 
     63  } 
     64 
     65 
    4366  void cxios_set_file_description(file_Ptr file_hdl, const char * description, int description_size) 
    4467  { 

  • XIOS/trunk/src/interface/c_attr/icfilegroup_attr.cpp

    r598 r608  
    4141 
    4242 
     43  void cxios_set_filegroup_compression_level(filegroup_Ptr filegroup_hdl, int compression_level) 
     44  { 
     45    CTimer::get("XIOS").resume(); 
     46    filegroup_hdl->compression_level.setValue(compression_level); 
     47    CTimer::get("XIOS").suspend(); 
     48  } 
     49 
     50  void cxios_get_filegroup_compression_level(filegroup_Ptr filegroup_hdl, int* compression_level) 
     51  { 
     52    CTimer::get("XIOS").resume(); 
     53    *compression_level = filegroup_hdl->compression_level.getInheritedValue(); 
     54    CTimer::get("XIOS").suspend(); 
     55  } 
     56 
     57  bool cxios_is_defined_filegroup_compression_level(filegroup_Ptr filegroup_hdl) 
     58  { 
     59     CTimer::get("XIOS").resume(); 
     60     bool isDefined = filegroup_hdl->compression_level.hasInheritedValue(); 
     61     CTimer::get("XIOS").suspend(); 
     62     return isDefined; 
     63  } 
     64 
     65 
    4366  void cxios_set_filegroup_description(filegroup_Ptr filegroup_hdl, const char * description, int description_size) 
    4467  { 

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

    r593 r608  
    5050 
    5151 
     52    SUBROUTINE cxios_set_field_compression_level(field_hdl, compression_level) BIND(C) 
     53      USE ISO_C_BINDING 
     54      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     55      INTEGER (KIND=C_INT)      , VALUE :: compression_level 
     56    END SUBROUTINE cxios_set_field_compression_level 
     57 
     58    SUBROUTINE cxios_get_field_compression_level(field_hdl, compression_level) BIND(C) 
     59      USE ISO_C_BINDING 
     60      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     61      INTEGER (KIND=C_INT)             :: compression_level 
     62    END SUBROUTINE cxios_get_field_compression_level 
     63 
     64    FUNCTION cxios_is_defined_field_compression_level(field_hdl) BIND(C) 
     65      USE ISO_C_BINDING 
     66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_level 
     67      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     68    END FUNCTION cxios_is_defined_field_compression_level 
     69 
     70 
    5271    SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C) 
    5372      USE ISO_C_BINDING 

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

    r593 r608  
    5050 
    5151 
     52    SUBROUTINE cxios_set_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C) 
     53      USE ISO_C_BINDING 
     54      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     55      INTEGER (KIND=C_INT)      , VALUE :: compression_level 
     56    END SUBROUTINE cxios_set_fieldgroup_compression_level 
     57 
     58    SUBROUTINE cxios_get_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C) 
     59      USE ISO_C_BINDING 
     60      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     61      INTEGER (KIND=C_INT)             :: compression_level 
     62    END SUBROUTINE cxios_get_fieldgroup_compression_level 
     63 
     64    FUNCTION cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl) BIND(C) 
     65      USE ISO_C_BINDING 
     66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_compression_level 
     67      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     68    END FUNCTION cxios_is_defined_fieldgroup_compression_level 
     69 
     70 
    5271    SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) 
    5372      USE ISO_C_BINDING 

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

    r598 r608  
    2929 
    3030 
     31    SUBROUTINE cxios_set_file_compression_level(file_hdl, compression_level) BIND(C) 
     32      USE ISO_C_BINDING 
     33      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     34      INTEGER (KIND=C_INT)      , VALUE :: compression_level 
     35    END SUBROUTINE cxios_set_file_compression_level 
     36 
     37    SUBROUTINE cxios_get_file_compression_level(file_hdl, compression_level) BIND(C) 
     38      USE ISO_C_BINDING 
     39      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     40      INTEGER (KIND=C_INT)             :: compression_level 
     41    END SUBROUTINE cxios_get_file_compression_level 
     42 
     43    FUNCTION cxios_is_defined_file_compression_level(file_hdl) BIND(C) 
     44      USE ISO_C_BINDING 
     45      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_compression_level 
     46      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     47    END FUNCTION cxios_is_defined_file_compression_level 
     48 
     49 
    3150    SUBROUTINE cxios_set_file_description(file_hdl, description, description_size) BIND(C) 
    3251      USE ISO_C_BINDING 

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

    r598 r608  
    2929 
    3030 
     31    SUBROUTINE cxios_set_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C) 
     32      USE ISO_C_BINDING 
     33      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     34      INTEGER (KIND=C_INT)      , VALUE :: compression_level 
     35    END SUBROUTINE cxios_set_filegroup_compression_level 
     36 
     37    SUBROUTINE cxios_get_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C) 
     38      USE ISO_C_BINDING 
     39      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     40      INTEGER (KIND=C_INT)             :: compression_level 
     41    END SUBROUTINE cxios_get_filegroup_compression_level 
     42 
     43    FUNCTION cxios_is_defined_filegroup_compression_level(filegroup_hdl) BIND(C) 
     44      USE ISO_C_BINDING 
     45      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_compression_level 
     46      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     47    END FUNCTION cxios_is_defined_filegroup_compression_level 
     48 
     49 
    3150    SUBROUTINE cxios_set_filegroup_description(filegroup_hdl, description, description_size) BIND(C) 
    3251      USE ISO_C_BINDING 

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

    r593 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, read_access, scale_factor  & 
    16     , standard_name, 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    , read_access, 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 
    … …  
    4647      CALL xios(get_field_handle)(field_id,field_hdl) 
    4748      CALL xios(set_field_attr_hdl_)   & 
    48       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    49       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, read_access  & 
    50       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     49      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     50      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     51      , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
    5152 
    5253  END SUBROUTINE xios(set_field_attr) 
    5354 
    5455  SUBROUTINE xios(set_field_attr_hdl)  & 
    55     ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    56     , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, read_access  & 
    57     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     56    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     57    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     58    , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
    5859 
    5960    IMPLICIT NONE 
    … …  
    6162      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    6263      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     64      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    6365      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    6466      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    8587 
    8688      CALL xios(set_field_attr_hdl_)  & 
    87       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    88       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, read_access  & 
    89       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     89      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     90      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     91      , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
    9092 
    9193  END SUBROUTINE xios(set_field_attr_hdl) 
    9294 
    9395  SUBROUTINE xios(set_field_attr_hdl_)   & 
    94     ( field_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_, enabled_  & 
    95     , field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_, operation_, prec_  & 
    96     , read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     96    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     97    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_  & 
     98    , operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  & 
     99     ) 
    97100 
    98101    IMPLICIT NONE 
    … …  
    100103      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 
    101104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 
     105      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    102106      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 
    103107      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_ 
    … …  
    131135      ENDIF 
    132136 
     137      IF (PRESENT(compression_level_)) THEN 
     138        CALL cxios_set_field_compression_level(field_hdl%daddr, compression_level_) 
     139      ENDIF 
     140 
    133141      IF (PRESENT(default_value_)) THEN 
    134142        CALL cxios_set_field_default_value(field_hdl%daddr, default_value_) 
    … …  
    213221 
    214222  SUBROUTINE xios(get_field_attr)  & 
    215     ( field_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled, field_ref  & 
    216     , freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, read_access, scale_factor  & 
    217     , standard_name, unit, valid_max, valid_min ) 
     223    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     224    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     225    , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
    218226 
    219227    IMPLICIT NONE 
    … …  
    222230      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    223231      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     232      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    224233      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    225234      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    247256      CALL xios(get_field_handle)(field_id,field_hdl) 
    248257      CALL xios(get_field_attr_hdl_)   & 
    249       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    250       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, read_access  & 
    251       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     258      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     259      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     260      , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
    252261 
    253262  END SUBROUTINE xios(get_field_attr) 
    254263 
    255264  SUBROUTINE xios(get_field_attr_hdl)  & 
    256     ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    257     , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, read_access  & 
    258     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     265    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     266    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     267    , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
    259268 
    260269    IMPLICIT NONE 
    … …  
    262271      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    263272      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     273      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    264274      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    265275      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    286296 
    287297      CALL xios(get_field_attr_hdl_)  & 
    288       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    289       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, read_access  & 
    290       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     298      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     299      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     300      , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
    291301 
    292302  END SUBROUTINE xios(get_field_attr_hdl) 
    293303 
    294304  SUBROUTINE xios(get_field_attr_hdl_)   & 
    295     ( field_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_, enabled_  & 
    296     , field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_, operation_, prec_  & 
    297     , read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     305    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     306    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_  & 
     307    , operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  & 
     308     ) 
    298309 
    299310    IMPLICIT NONE 
    … …  
    301312      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 
    302313      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 
     314      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    303315      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 
    304316      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_ 
    … …  
    332344      ENDIF 
    333345 
     346      IF (PRESENT(compression_level_)) THEN 
     347        CALL cxios_get_field_compression_level(field_hdl%daddr, compression_level_) 
     348      ENDIF 
     349 
    334350      IF (PRESENT(default_value_)) THEN 
    335351        CALL cxios_get_field_default_value(field_hdl%daddr, default_value_) 
    … …  
    414430 
    415431  SUBROUTINE xios(is_defined_field_attr)  & 
    416     ( field_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled, field_ref  & 
    417     , freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, read_access, scale_factor  & 
    418     , standard_name, unit, valid_max, valid_min ) 
     432    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     433    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     434    , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
    419435 
    420436    IMPLICIT NONE 
    … …  
    425441      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    426442      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     443      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     444      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    427445      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    428446      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    466484      CALL xios(get_field_handle)(field_id,field_hdl) 
    467485      CALL xios(is_defined_field_attr_hdl_)   & 
    468       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    469       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, read_access  & 
    470       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     486      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     487      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     488      , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
    471489 
    472490  END SUBROUTINE xios(is_defined_field_attr) 
    473491 
    474492  SUBROUTINE xios(is_defined_field_attr_hdl)  & 
    475     ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    476     , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, read_access  & 
    477     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     493    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     494    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     495    , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
    478496 
    479497    IMPLICIT NONE 
    … …  
    483501      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    484502      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     503      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     504      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    485505      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    486506      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    523543 
    524544      CALL xios(is_defined_field_attr_hdl_)  & 
    525       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    526       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, read_access  & 
    527       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     545      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     546      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     547      , read_access, scale_factor, standard_name, unit, valid_max, valid_min ) 
    528548 
    529549  END SUBROUTINE xios(is_defined_field_attr_hdl) 
    530550 
    531551  SUBROUTINE xios(is_defined_field_attr_hdl_)   & 
    532     ( field_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_, enabled_  & 
    533     , field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_, operation_, prec_  & 
    534     , read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     552    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     553    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_  & 
     554    , operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  & 
     555     ) 
    535556 
    536557    IMPLICIT NONE 
    … …  
    540561      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 
    541562      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 
     563      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
     564      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    542565      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 
    543566      LOGICAL(KIND=C_BOOL) :: default_value__tmp 
    … …  
    589612      ENDIF 
    590613 
     614      IF (PRESENT(compression_level_)) THEN 
     615        compression_level__tmp = cxios_is_defined_field_compression_level(field_hdl%daddr) 
     616        compression_level_ = compression_level__tmp 
     617      ENDIF 
     618 
    591619      IF (PRESENT(default_value_)) THEN 
    592620        default_value__tmp = cxios_is_defined_field_default_value(field_hdl%daddr) 

  • 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) 

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

    r598 r608  
    1212 
    1313  SUBROUTINE xios(set_file_attr)  & 
    14     ( file_id, append, description, enabled, format, min_digits, mode, name, name_suffix, output_freq  & 
    15     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     14    ( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix  & 
     15    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    1616 
    1717    IMPLICIT NONE 
    … …  
    2020      LOGICAL  , OPTIONAL, INTENT(IN) :: append 
    2121      LOGICAL (KIND=C_BOOL) :: append_tmp 
     22      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2223      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    2324      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    … …  
    3839      CALL xios(get_file_handle)(file_id,file_hdl) 
    3940      CALL xios(set_file_attr_hdl_)   & 
    40       ( file_hdl, append, description, enabled, format, min_digits, mode, name, name_suffix, output_freq  & 
    41       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     41      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  & 
     42      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     43      , type ) 
    4244 
    4345  END SUBROUTINE xios(set_file_attr) 
    4446 
    4547  SUBROUTINE xios(set_file_attr_hdl)  & 
    46     ( file_hdl, append, description, enabled, format, min_digits, mode, name, name_suffix, output_freq  & 
    47     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     48    ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  & 
     49    , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     50    , type ) 
    4851 
    4952    IMPLICIT NONE 
    … …  
    5154      LOGICAL  , OPTIONAL, INTENT(IN) :: append 
    5255      LOGICAL (KIND=C_BOOL) :: append_tmp 
     56      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    5357      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    5458      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    … …  
    6872 
    6973      CALL xios(set_file_attr_hdl_)  & 
    70       ( file_hdl, append, description, enabled, format, min_digits, mode, name, name_suffix, output_freq  & 
    71       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     74      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  & 
     75      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     76      , type ) 
    7277 
    7378  END SUBROUTINE xios(set_file_attr_hdl) 
    7479 
    7580  SUBROUTINE xios(set_file_attr_hdl_)   & 
    76     ( file_hdl, append_, description_, enabled_, format_, min_digits_, mode_, name_, name_suffix_  & 
    77     , output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_  & 
    78     ) 
     81    ( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_  & 
     82    , name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  & 
     83    , sync_freq_, type_ ) 
    7984 
    8085    IMPLICIT NONE 
    … …  
    8287      LOGICAL  , OPTIONAL, INTENT(IN) :: append_ 
    8388      LOGICAL (KIND=C_BOOL) :: append__tmp 
     89      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    8490      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ 
    8591      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_ 
    … …  
    103109      ENDIF 
    104110 
     111      IF (PRESENT(compression_level_)) THEN 
     112        CALL cxios_set_file_compression_level(file_hdl%daddr, compression_level_) 
     113      ENDIF 
     114 
    105115      IF (PRESENT(description_)) THEN 
    106116        CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_)) 
    … …  
    163173 
    164174  SUBROUTINE xios(get_file_attr)  & 
    165     ( file_id, append, description, enabled, format, min_digits, mode, name, name_suffix, output_freq  & 
    166     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     175    ( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix  & 
     176    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    167177 
    168178    IMPLICIT NONE 
    … …  
    171181      LOGICAL  , OPTIONAL, INTENT(OUT) :: append 
    172182      LOGICAL (KIND=C_BOOL) :: append_tmp 
     183      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    173184      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    174185      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    … …  
    189200      CALL xios(get_file_handle)(file_id,file_hdl) 
    190201      CALL xios(get_file_attr_hdl_)   & 
    191       ( file_hdl, append, description, enabled, format, min_digits, mode, name, name_suffix, output_freq  & 
    192       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     202      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  & 
     203      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     204      , type ) 
    193205 
    194206  END SUBROUTINE xios(get_file_attr) 
    195207 
    196208  SUBROUTINE xios(get_file_attr_hdl)  & 
    197     ( file_hdl, append, description, enabled, format, min_digits, mode, name, name_suffix, output_freq  & 
    198     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     209    ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  & 
     210    , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     211    , type ) 
    199212 
    200213    IMPLICIT NONE 
    … …  
    202215      LOGICAL  , OPTIONAL, INTENT(OUT) :: append 
    203216      LOGICAL (KIND=C_BOOL) :: append_tmp 
     217      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    204218      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    205219      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    … …  
    219233 
    220234      CALL xios(get_file_attr_hdl_)  & 
    221       ( file_hdl, append, description, enabled, format, min_digits, mode, name, name_suffix, output_freq  & 
    222       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     235      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  & 
     236      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     237      , type ) 
    223238 
    224239  END SUBROUTINE xios(get_file_attr_hdl) 
    225240 
    226241  SUBROUTINE xios(get_file_attr_hdl_)   & 
    227     ( file_hdl, append_, description_, enabled_, format_, min_digits_, mode_, name_, name_suffix_  & 
    228     , output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_  & 
    229     ) 
     242    ( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_  & 
     243    , name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  & 
     244    , sync_freq_, type_ ) 
    230245 
    231246    IMPLICIT NONE 
    … …  
    233248      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_ 
    234249      LOGICAL (KIND=C_BOOL) :: append__tmp 
     250      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    235251      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ 
    236252      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_ 
    … …  
    254270      ENDIF 
    255271 
     272      IF (PRESENT(compression_level_)) THEN 
     273        CALL cxios_get_file_compression_level(file_hdl%daddr, compression_level_) 
     274      ENDIF 
     275 
    256276      IF (PRESENT(description_)) THEN 
    257277        CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_)) 
    … …  
    314334 
    315335  SUBROUTINE xios(is_defined_file_attr)  & 
    316     ( file_id, append, description, enabled, format, min_digits, mode, name, name_suffix, output_freq  & 
    317     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     336    ( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix  & 
     337    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    318338 
    319339    IMPLICIT NONE 
    … …  
    322342      LOGICAL, OPTIONAL, INTENT(OUT) :: append 
    323343      LOGICAL(KIND=C_BOOL) :: append_tmp 
     344      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     345      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    324346      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    325347      LOGICAL(KIND=C_BOOL) :: description_tmp 
    … …  
    353375      CALL xios(get_file_handle)(file_id,file_hdl) 
    354376      CALL xios(is_defined_file_attr_hdl_)   & 
    355       ( file_hdl, append, description, enabled, format, min_digits, mode, name, name_suffix, output_freq  & 
    356       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     377      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  & 
     378      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     379      , type ) 
    357380 
    358381  END SUBROUTINE xios(is_defined_file_attr) 
    359382 
    360383  SUBROUTINE xios(is_defined_file_attr_hdl)  & 
    361     ( file_hdl, append, description, enabled, format, min_digits, mode, name, name_suffix, output_freq  & 
    362     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     384    ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  & 
     385    , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     386    , type ) 
    363387 
    364388    IMPLICIT NONE 
    … …  
    366390      LOGICAL, OPTIONAL, INTENT(OUT) :: append 
    367391      LOGICAL(KIND=C_BOOL) :: append_tmp 
     392      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     393      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    368394      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    369395      LOGICAL(KIND=C_BOOL) :: description_tmp 
    … …  
    396422 
    397423      CALL xios(is_defined_file_attr_hdl_)  & 
    398       ( file_hdl, append, description, enabled, format, min_digits, mode, name, name_suffix, output_freq  & 
    399       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     424      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  & 
     425      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     426      , type ) 
    400427 
    401428  END SUBROUTINE xios(is_defined_file_attr_hdl) 
    402429 
    403430  SUBROUTINE xios(is_defined_file_attr_hdl_)   & 
    404     ( file_hdl, append_, description_, enabled_, format_, min_digits_, mode_, name_, name_suffix_  & 
    405     , output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_  & 
    406     ) 
     431    ( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_  & 
     432    , name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  & 
     433    , sync_freq_, type_ ) 
    407434 
    408435    IMPLICIT NONE 
    … …  
    410437      LOGICAL, OPTIONAL, INTENT(OUT) :: append_ 
    411438      LOGICAL(KIND=C_BOOL) :: append__tmp 
     439      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
     440      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    412441      LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 
    413442      LOGICAL(KIND=C_BOOL) :: description__tmp 
    … …  
    444473      ENDIF 
    445474 
     475      IF (PRESENT(compression_level_)) THEN 
     476        compression_level__tmp = cxios_is_defined_file_compression_level(file_hdl%daddr) 
     477        compression_level_ = compression_level__tmp 
     478      ENDIF 
     479 
    446480      IF (PRESENT(description_)) THEN 
    447481        description__tmp = cxios_is_defined_file_description(file_hdl%daddr) 

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

    r598 r608  
    1212 
    1313  SUBROUTINE xios(set_filegroup_attr)  & 
    14     ( filegroup_id, append, description, enabled, format, group_ref, min_digits, mode, name, name_suffix  & 
    15     , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     14    ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     15    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  & 
     16    , sync_freq, type ) 
    1617 
    1718    IMPLICIT NONE 
    … …  
    2021      LOGICAL  , OPTIONAL, INTENT(IN) :: append 
    2122      LOGICAL (KIND=C_BOOL) :: append_tmp 
     23      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2224      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    2325      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    … …  
    3941      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    4042      CALL xios(set_filegroup_attr_hdl_)   & 
    41       ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, mode, name, name_suffix  & 
    42       , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     43      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     44      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  & 
     45      , sync_freq, type ) 
    4346 
    4447  END SUBROUTINE xios(set_filegroup_attr) 
    4548 
    4649  SUBROUTINE xios(set_filegroup_attr_hdl)  & 
    47     ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, mode, name, name_suffix  & 
    48     , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     50    ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     51    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  & 
     52    , sync_freq, type ) 
    4953 
    5054    IMPLICIT NONE 
    … …  
    5256      LOGICAL  , OPTIONAL, INTENT(IN) :: append 
    5357      LOGICAL (KIND=C_BOOL) :: append_tmp 
     58      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    5459      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    5560      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    … …  
    7075 
    7176      CALL xios(set_filegroup_attr_hdl_)  & 
    72       ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, mode, name, name_suffix  & 
    73       , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     77      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     78      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  & 
     79      , sync_freq, type ) 
    7480 
    7581  END SUBROUTINE xios(set_filegroup_attr_hdl) 
    7682 
    7783  SUBROUTINE xios(set_filegroup_attr_hdl_)   & 
    78     ( filegroup_hdl, append_, description_, enabled_, format_, group_ref_, min_digits_, mode_, name_  & 
    79     , name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_  & 
    80     , type_ ) 
     84    ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  & 
     85    , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  & 
     86    , sync_freq_, type_ ) 
    8187 
    8288    IMPLICIT NONE 
    … …  
    8490      LOGICAL  , OPTIONAL, INTENT(IN) :: append_ 
    8591      LOGICAL (KIND=C_BOOL) :: append__tmp 
     92      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    8693      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ 
    8794      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_ 
    … …  
    106113      ENDIF 
    107114 
     115      IF (PRESENT(compression_level_)) THEN 
     116        CALL cxios_set_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) 
     117      ENDIF 
     118 
    108119      IF (PRESENT(description_)) THEN 
    109120        CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
    … …  
    170181 
    171182  SUBROUTINE xios(get_filegroup_attr)  & 
    172     ( filegroup_id, append, description, enabled, format, group_ref, min_digits, mode, name, name_suffix  & 
    173     , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     183    ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     184    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  & 
     185    , sync_freq, type ) 
    174186 
    175187    IMPLICIT NONE 
    … …  
    178190      LOGICAL  , OPTIONAL, INTENT(OUT) :: append 
    179191      LOGICAL (KIND=C_BOOL) :: append_tmp 
     192      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    180193      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    181194      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    … …  
    197210      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    198211      CALL xios(get_filegroup_attr_hdl_)   & 
    199       ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, mode, name, name_suffix  & 
    200       , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     212      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     213      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  & 
     214      , sync_freq, type ) 
    201215 
    202216  END SUBROUTINE xios(get_filegroup_attr) 
    203217 
    204218  SUBROUTINE xios(get_filegroup_attr_hdl)  & 
    205     ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, mode, name, name_suffix  & 
    206     , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     219    ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     220    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  & 
     221    , sync_freq, type ) 
    207222 
    208223    IMPLICIT NONE 
    … …  
    210225      LOGICAL  , OPTIONAL, INTENT(OUT) :: append 
    211226      LOGICAL (KIND=C_BOOL) :: append_tmp 
     227      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    212228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    213229      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    … …  
    228244 
    229245      CALL xios(get_filegroup_attr_hdl_)  & 
    230       ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, mode, name, name_suffix  & 
    231       , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     246      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     247      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  & 
     248      , sync_freq, type ) 
    232249 
    233250  END SUBROUTINE xios(get_filegroup_attr_hdl) 
    234251 
    235252  SUBROUTINE xios(get_filegroup_attr_hdl_)   & 
    236     ( filegroup_hdl, append_, description_, enabled_, format_, group_ref_, min_digits_, mode_, name_  & 
    237     , name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_  & 
    238     , type_ ) 
     253    ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  & 
     254    , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  & 
     255    , sync_freq_, type_ ) 
    239256 
    240257    IMPLICIT NONE 
    … …  
    242259      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_ 
    243260      LOGICAL (KIND=C_BOOL) :: append__tmp 
     261      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    244262      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ 
    245263      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_ 
    … …  
    264282      ENDIF 
    265283 
     284      IF (PRESENT(compression_level_)) THEN 
     285        CALL cxios_get_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) 
     286      ENDIF 
     287 
    266288      IF (PRESENT(description_)) THEN 
    267289        CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
    … …  
    328350 
    329351  SUBROUTINE xios(is_defined_filegroup_attr)  & 
    330     ( filegroup_id, append, description, enabled, format, group_ref, min_digits, mode, name, name_suffix  & 
    331     , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     352    ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     353    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  & 
     354    , sync_freq, type ) 
    332355 
    333356    IMPLICIT NONE 
    … …  
    336359      LOGICAL, OPTIONAL, INTENT(OUT) :: append 
    337360      LOGICAL(KIND=C_BOOL) :: append_tmp 
     361      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     362      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    338363      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    339364      LOGICAL(KIND=C_BOOL) :: description_tmp 
    … …  
    369394      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    370395      CALL xios(is_defined_filegroup_attr_hdl_)   & 
    371       ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, mode, name, name_suffix  & 
    372       , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     396      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     397      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  & 
     398      , sync_freq, type ) 
    373399 
    374400  END SUBROUTINE xios(is_defined_filegroup_attr) 
    375401 
    376402  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  & 
    377     ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, mode, name, name_suffix  & 
    378     , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     403    ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     404    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  & 
     405    , sync_freq, type ) 
    379406 
    380407    IMPLICIT NONE 
    … …  
    382409      LOGICAL, OPTIONAL, INTENT(OUT) :: append 
    383410      LOGICAL(KIND=C_BOOL) :: append_tmp 
     411      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     412      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    384413      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    385414      LOGICAL(KIND=C_BOOL) :: description_tmp 
    … …  
    414443 
    415444      CALL xios(is_defined_filegroup_attr_hdl_)  & 
    416       ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, mode, name, name_suffix  & 
    417       , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     445      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     446      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  & 
     447      , sync_freq, type ) 
    418448 
    419449  END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 
    420450 
    421451  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   & 
    422     ( filegroup_hdl, append_, description_, enabled_, format_, group_ref_, min_digits_, mode_, name_  & 
    423     , name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_  & 
    424     , type_ ) 
     452    ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  & 
     453    , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  & 
     454    , sync_freq_, type_ ) 
    425455 
    426456    IMPLICIT NONE 
    … …  
    428458      LOGICAL, OPTIONAL, INTENT(OUT) :: append_ 
    429459      LOGICAL(KIND=C_BOOL) :: append__tmp 
     460      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
     461      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    430462      LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 
    431463      LOGICAL(KIND=C_BOOL) :: description__tmp 
    … …  
    464496      ENDIF 
    465497 
     498      IF (PRESENT(compression_level_)) THEN 
     499        compression_level__tmp = cxios_is_defined_filegroup_compression_level(filegroup_hdl%daddr) 
     500        compression_level_ = compression_level__tmp 
     501      ENDIF 
     502 
    466503      IF (PRESENT(description_)) THEN 
    467504        description__tmp = cxios_is_defined_filegroup_description(filegroup_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.