Changeset 608


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

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

Location:
XIOS
Files:
24 edited

Legend:

Unmodified
Added
Removed
  • XIOS/branchs/xios-1.0/src/interface/c_attr/icfield_attr.cpp

    r581 r608  
    6868   
    6969   
     70  void cxios_set_field_compression_level(field_Ptr field_hdl, int compression_level) 
     71  { 
     72     CTimer::get("XIOS").resume(); 
     73    field_hdl->compression_level.setValue(compression_level); 
     74    field_hdl->sendAttributToServer(field_hdl->compression_level); 
     75     CTimer::get("XIOS").suspend(); 
     76  } 
     77   
     78  void cxios_get_field_compression_level(field_Ptr field_hdl, int* compression_level) 
     79  { 
     80    *compression_level = field_hdl->compression_level.getInheritedValue(); 
     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   
     92   
    7093  void cxios_set_field_default_value(field_Ptr field_hdl, double default_value) 
    7194  { 
  • XIOS/branchs/xios-1.0/src/interface/c_attr/icfieldgroup_attr.cpp

    r581 r608  
    6868   
    6969   
     70  void cxios_set_fieldgroup_compression_level(fieldgroup_Ptr fieldgroup_hdl, int compression_level) 
     71  { 
     72     CTimer::get("XIOS").resume(); 
     73    fieldgroup_hdl->compression_level.setValue(compression_level); 
     74    fieldgroup_hdl->sendAttributToServer(fieldgroup_hdl->compression_level); 
     75     CTimer::get("XIOS").suspend(); 
     76  } 
     77   
     78  void cxios_get_fieldgroup_compression_level(fieldgroup_Ptr fieldgroup_hdl, int* compression_level) 
     79  { 
     80    *compression_level = fieldgroup_hdl->compression_level.getInheritedValue(); 
     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   
     92   
    7093  void cxios_set_fieldgroup_default_value(fieldgroup_Ptr fieldgroup_hdl, double default_value) 
    7194  { 
  • XIOS/branchs/xios-1.0/src/interface/c_attr/icfile_attr.cpp

    r581 r608  
    1717  typedef xios::CFile*  file_Ptr; 
    1818   
     19  void cxios_set_file_compression_level(file_Ptr file_hdl, int compression_level) 
     20  { 
     21     CTimer::get("XIOS").resume(); 
     22    file_hdl->compression_level.setValue(compression_level); 
     23    file_hdl->sendAttributToServer(file_hdl->compression_level); 
     24     CTimer::get("XIOS").suspend(); 
     25  } 
     26   
     27  void cxios_get_file_compression_level(file_Ptr file_hdl, int* compression_level) 
     28  { 
     29    *compression_level = file_hdl->compression_level.getInheritedValue(); 
     30  } 
     31   
     32  bool cxios_is_defined_file_compression_level(file_Ptr file_hdl ) 
     33  { 
     34    CTimer::get("XIOS").resume(); 
     35    bool isDefined = file_hdl->compression_level.hasInheritedValue(); 
     36    CTimer::get("XIOS").suspend(); 
     37    return isDefined; 
     38  } 
     39   
     40   
     41   
    1942  void cxios_set_file_description(file_Ptr file_hdl, const char * description, int description_size) 
    2043  { 
  • XIOS/branchs/xios-1.0/src/interface/c_attr/icfilegroup_attr.cpp

    r581 r608  
    1717  typedef xios::CFileGroup*  filegroup_Ptr; 
    1818   
     19  void cxios_set_filegroup_compression_level(filegroup_Ptr filegroup_hdl, int compression_level) 
     20  { 
     21     CTimer::get("XIOS").resume(); 
     22    filegroup_hdl->compression_level.setValue(compression_level); 
     23    filegroup_hdl->sendAttributToServer(filegroup_hdl->compression_level); 
     24     CTimer::get("XIOS").suspend(); 
     25  } 
     26   
     27  void cxios_get_filegroup_compression_level(filegroup_Ptr filegroup_hdl, int* compression_level) 
     28  { 
     29    *compression_level = filegroup_hdl->compression_level.getInheritedValue(); 
     30  } 
     31   
     32  bool cxios_is_defined_filegroup_compression_level(filegroup_Ptr filegroup_hdl ) 
     33  { 
     34    CTimer::get("XIOS").resume(); 
     35    bool isDefined = filegroup_hdl->compression_level.hasInheritedValue(); 
     36    CTimer::get("XIOS").suspend(); 
     37    return isDefined; 
     38  } 
     39   
     40   
     41   
    1942  void cxios_set_filegroup_description(filegroup_Ptr filegroup_hdl, const char * description, int description_size) 
    2043  { 
  • XIOS/branchs/xios-1.0/src/interface/fortran_attr/field_interface_attr.f90

    r501 r608  
    4949     
    5050     
     51    SUBROUTINE cxios_set_field_compression_level(field_hdl, compression_level) BIND(C) 
     52      USE ISO_C_BINDING 
     53      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     54      INTEGER (KIND=C_INT)      , VALUE :: compression_level 
     55    END SUBROUTINE cxios_set_field_compression_level 
     56     
     57    SUBROUTINE cxios_get_field_compression_level(field_hdl, compression_level) BIND(C) 
     58      USE ISO_C_BINDING 
     59      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     60      INTEGER (KIND=C_INT)             :: compression_level 
     61    END SUBROUTINE cxios_get_field_compression_level 
     62     
     63    FUNCTION cxios_is_defined_field_compression_level(field_hdl ) BIND(C) 
     64      USE ISO_C_BINDING 
     65      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_level 
     66      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     67    END FUNCTION cxios_is_defined_field_compression_level 
     68     
     69     
    5170    SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C) 
    5271      USE ISO_C_BINDING 
  • XIOS/branchs/xios-1.0/src/interface/fortran_attr/fieldgroup_interface_attr.f90

    r501 r608  
    4949     
    5050     
     51    SUBROUTINE cxios_set_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C) 
     52      USE ISO_C_BINDING 
     53      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     54      INTEGER (KIND=C_INT)      , VALUE :: compression_level 
     55    END SUBROUTINE cxios_set_fieldgroup_compression_level 
     56     
     57    SUBROUTINE cxios_get_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C) 
     58      USE ISO_C_BINDING 
     59      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     60      INTEGER (KIND=C_INT)             :: compression_level 
     61    END SUBROUTINE cxios_get_fieldgroup_compression_level 
     62     
     63    FUNCTION cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl ) BIND(C) 
     64      USE ISO_C_BINDING 
     65      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_compression_level 
     66      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     67    END FUNCTION cxios_is_defined_fieldgroup_compression_level 
     68     
     69     
    5170    SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) 
    5271      USE ISO_C_BINDING 
  • XIOS/branchs/xios-1.0/src/interface/fortran_attr/file_interface_attr.f90

    r501 r608  
    99     
    1010     
     11    SUBROUTINE cxios_set_file_compression_level(file_hdl, compression_level) BIND(C) 
     12      USE ISO_C_BINDING 
     13      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     14      INTEGER (KIND=C_INT)      , VALUE :: compression_level 
     15    END SUBROUTINE cxios_set_file_compression_level 
     16     
     17    SUBROUTINE cxios_get_file_compression_level(file_hdl, compression_level) BIND(C) 
     18      USE ISO_C_BINDING 
     19      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     20      INTEGER (KIND=C_INT)             :: compression_level 
     21    END SUBROUTINE cxios_get_file_compression_level 
     22     
     23    FUNCTION cxios_is_defined_file_compression_level(file_hdl ) BIND(C) 
     24      USE ISO_C_BINDING 
     25      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_compression_level 
     26      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     27    END FUNCTION cxios_is_defined_file_compression_level 
     28     
     29     
    1130    SUBROUTINE cxios_set_file_description(file_hdl, description, description_size) BIND(C) 
    1231      USE ISO_C_BINDING 
  • XIOS/branchs/xios-1.0/src/interface/fortran_attr/filegroup_interface_attr.f90

    r501 r608  
    99     
    1010     
     11    SUBROUTINE cxios_set_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C) 
     12      USE ISO_C_BINDING 
     13      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     14      INTEGER (KIND=C_INT)      , VALUE :: compression_level 
     15    END SUBROUTINE cxios_set_filegroup_compression_level 
     16     
     17    SUBROUTINE cxios_get_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C) 
     18      USE ISO_C_BINDING 
     19      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     20      INTEGER (KIND=C_INT)             :: compression_level 
     21    END SUBROUTINE cxios_get_filegroup_compression_level 
     22     
     23    FUNCTION cxios_is_defined_filegroup_compression_level(filegroup_hdl ) BIND(C) 
     24      USE ISO_C_BINDING 
     25      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_compression_level 
     26      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     27    END FUNCTION cxios_is_defined_filegroup_compression_level 
     28     
     29     
    1130    SUBROUTINE cxios_set_filegroup_description(filegroup_hdl, description, description_size) BIND(C) 
    1231      USE ISO_C_BINDING 
  • 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) 
  • 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) 
  • XIOS/branchs/xios-1.0/src/interface/fortran_attr/ifile_attr.F90

    r501 r608  
    1212   
    1313  SUBROUTINE xios(set_file_attr)  & 
    14     ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    15     , split_freq, split_freq_format, sync_freq, type ) 
     14    ( file_id, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     15    , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    1616     
    1717    IMPLICIT NONE 
    1818      TYPE(txios(file))  :: file_hdl 
    1919      CHARACTER(LEN=*), INTENT(IN) ::file_id 
     20      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2021      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    2122      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
     
    3435      CALL xios(get_file_handle)(file_id,file_hdl) 
    3536      CALL xios(set_file_attr_hdl_)   & 
    36       ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    37       , split_freq, split_freq_format, sync_freq, type ) 
     37      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     38      , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    3839     
    3940  END SUBROUTINE xios(set_file_attr) 
    4041   
    4142  SUBROUTINE xios(set_file_attr_hdl)  & 
    42     ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    43     , split_freq, split_freq_format, sync_freq, type ) 
    44      
    45     IMPLICIT NONE 
    46       TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     43    ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     44    , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     45     
     46    IMPLICIT NONE 
     47      TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     48      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    4749      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    4850      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
     
    6062       
    6163      CALL xios(set_file_attr_hdl_)  & 
    62       ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    63       , split_freq, split_freq_format, sync_freq, type ) 
     64      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     65      , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    6466     
    6567  END SUBROUTINE xios(set_file_attr_hdl) 
    6668   
    6769  SUBROUTINE xios(set_file_attr_hdl_)   & 
    68     ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_  & 
    69     , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
    70      
    71     IMPLICIT NONE 
    72       TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     70    ( file_hdl, compression_level_, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_  & 
     71    , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
     72     
     73    IMPLICIT NONE 
     74      TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     75      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    7376      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ 
    7477      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_ 
     
    8588      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    8689       
     90      IF (PRESENT(compression_level_)) THEN 
     91        CALL cxios_set_file_compression_level(file_hdl%daddr, compression_level_) 
     92      ENDIF 
     93       
    8794      IF (PRESENT(description_)) THEN 
    8895        CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_)) 
     
    139146   
    140147  SUBROUTINE xios(get_file_attr)  & 
    141     ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    142     , split_freq, split_freq_format, sync_freq, type ) 
     148    ( file_id, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     149    , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    143150     
    144151    IMPLICIT NONE 
    145152      TYPE(txios(file))  :: file_hdl 
    146153      CHARACTER(LEN=*), INTENT(IN) ::file_id 
     154      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    147155      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    148156      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
     
    161169      CALL xios(get_file_handle)(file_id,file_hdl) 
    162170      CALL xios(get_file_attr_hdl_)   & 
    163       ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    164       , split_freq, split_freq_format, sync_freq, type ) 
     171      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     172      , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    165173     
    166174  END SUBROUTINE xios(get_file_attr) 
    167175   
    168176  SUBROUTINE xios(get_file_attr_hdl)  & 
    169     ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    170     , split_freq, split_freq_format, sync_freq, type ) 
    171      
    172     IMPLICIT NONE 
    173       TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     177    ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     178    , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     179     
     180    IMPLICIT NONE 
     181      TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     182      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    174183      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    175184      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
     
    187196       
    188197      CALL xios(get_file_attr_hdl_)  & 
    189       ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    190       , split_freq, split_freq_format, sync_freq, type ) 
     198      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     199      , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    191200     
    192201  END SUBROUTINE xios(get_file_attr_hdl) 
    193202   
    194203  SUBROUTINE xios(get_file_attr_hdl_)   & 
    195     ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_  & 
    196     , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
    197      
    198     IMPLICIT NONE 
    199       TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     204    ( file_hdl, compression_level_, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_  & 
     205    , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
     206     
     207    IMPLICIT NONE 
     208      TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     209      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    200210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ 
    201211      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_ 
     
    212222      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    213223       
     224      IF (PRESENT(compression_level_)) THEN 
     225        CALL cxios_get_file_compression_level(file_hdl%daddr, compression_level_) 
     226      ENDIF 
     227       
    214228      IF (PRESENT(description_)) THEN 
    215229        CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_)) 
     
    266280   
    267281  SUBROUTINE xios(is_defined_file_attr)  & 
    268     ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    269     , split_freq, split_freq_format, sync_freq, type ) 
     282    ( file_id, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     283    , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    270284     
    271285    IMPLICIT NONE 
    272286      TYPE(txios(file))  :: file_hdl 
    273287      CHARACTER(LEN=*), INTENT(IN) ::file_id 
     288      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     289      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    274290      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    275291      LOGICAL(KIND=C_BOOL) :: description_tmp 
     
    299315      CALL xios(get_file_handle)(file_id,file_hdl) 
    300316      CALL xios(is_defined_file_attr_hdl_)   & 
    301       ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    302       , split_freq, split_freq_format, sync_freq, type ) 
     317      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     318      , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    303319     
    304320  END SUBROUTINE xios(is_defined_file_attr) 
    305321   
    306322  SUBROUTINE xios(is_defined_file_attr_hdl)  & 
    307     ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    308     , split_freq, split_freq_format, sync_freq, type ) 
    309      
    310     IMPLICIT NONE 
    311       TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     323    ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     324    , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     325     
     326    IMPLICIT NONE 
     327      TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     328      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     329      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    312330      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    313331      LOGICAL(KIND=C_BOOL) :: description_tmp 
     
    336354       
    337355      CALL xios(is_defined_file_attr_hdl_)  & 
    338       ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    339       , split_freq, split_freq_format, sync_freq, type ) 
     356      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     357      , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    340358     
    341359  END SUBROUTINE xios(is_defined_file_attr_hdl) 
    342360   
    343361  SUBROUTINE xios(is_defined_file_attr_hdl_)   & 
    344     ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_  & 
    345     , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
    346      
    347     IMPLICIT NONE 
    348       TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     362    ( file_hdl, compression_level_, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_  & 
     363    , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
     364     
     365    IMPLICIT NONE 
     366      TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     367      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
     368      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    349369      LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 
    350370      LOGICAL(KIND=C_BOOL) :: description__tmp 
     
    372392      LOGICAL(KIND=C_BOOL) :: type__tmp 
    373393       
     394      IF (PRESENT(compression_level_)) THEN 
     395        compression_level__tmp=cxios_is_defined_file_compression_level(file_hdl%daddr) 
     396        compression_level_=compression_level__tmp 
     397      ENDIF 
     398       
    374399      IF (PRESENT(description_)) THEN 
    375400        description__tmp=cxios_is_defined_file_description(file_hdl%daddr) 
  • XIOS/branchs/xios-1.0/src/interface/fortran_attr/ifilegroup_attr.F90

    r501 r608  
    1212   
    1313  SUBROUTINE xios(set_filegroup_attr)  & 
    14     ( filegroup_id, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    15     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     14    ( filegroup_id, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     15    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    1616     
    1717    IMPLICIT NONE 
    1818      TYPE(txios(filegroup))  :: filegroup_hdl 
    1919      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id 
     20      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2021      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    2122      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
     
    3536      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    3637      CALL xios(set_filegroup_attr_hdl_)   & 
    37       ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    38       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     38      ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     39      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    3940     
    4041  END SUBROUTINE xios(set_filegroup_attr) 
    4142   
    4243  SUBROUTINE xios(set_filegroup_attr_hdl)  & 
    43     ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    44     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    45      
    46     IMPLICIT NONE 
    47       TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     44    ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     45    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     46     
     47    IMPLICIT NONE 
     48      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     49      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    4850      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    4951      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
     
    6264       
    6365      CALL xios(set_filegroup_attr_hdl_)  & 
    64       ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    65       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     66      ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     67      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    6668     
    6769  END SUBROUTINE xios(set_filegroup_attr_hdl) 
    6870   
    6971  SUBROUTINE xios(set_filegroup_attr_hdl_)   & 
    70     ( filegroup_hdl, description_, enabled_, group_ref_, min_digits_, name_, name_suffix_, output_freq_  & 
    71     , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
    72      
    73     IMPLICIT NONE 
    74       TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     72    ( filegroup_hdl, compression_level_, description_, enabled_, group_ref_, min_digits_, name_  & 
     73    , name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_  & 
     74    , type_ ) 
     75     
     76    IMPLICIT NONE 
     77      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     78      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    7579      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ 
    7680      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_ 
     
    8892      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    8993       
     94      IF (PRESENT(compression_level_)) THEN 
     95        CALL cxios_set_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) 
     96      ENDIF 
     97       
    9098      IF (PRESENT(description_)) THEN 
    9199        CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
     
    146154   
    147155  SUBROUTINE xios(get_filegroup_attr)  & 
    148     ( filegroup_id, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    149     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     156    ( filegroup_id, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     157    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    150158     
    151159    IMPLICIT NONE 
    152160      TYPE(txios(filegroup))  :: filegroup_hdl 
    153161      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id 
     162      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    154163      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    155164      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
     
    169178      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    170179      CALL xios(get_filegroup_attr_hdl_)   & 
    171       ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    172       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     180      ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     181      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    173182     
    174183  END SUBROUTINE xios(get_filegroup_attr) 
    175184   
    176185  SUBROUTINE xios(get_filegroup_attr_hdl)  & 
    177     ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    178     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    179      
    180     IMPLICIT NONE 
    181       TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     186    ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     187    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     188     
     189    IMPLICIT NONE 
     190      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     191      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    182192      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    183193      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
     
    196206       
    197207      CALL xios(get_filegroup_attr_hdl_)  & 
    198       ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    199       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     208      ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     209      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    200210     
    201211  END SUBROUTINE xios(get_filegroup_attr_hdl) 
    202212   
    203213  SUBROUTINE xios(get_filegroup_attr_hdl_)   & 
    204     ( filegroup_hdl, description_, enabled_, group_ref_, min_digits_, name_, name_suffix_, output_freq_  & 
    205     , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
    206      
    207     IMPLICIT NONE 
    208       TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     214    ( filegroup_hdl, compression_level_, description_, enabled_, group_ref_, min_digits_, name_  & 
     215    , name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_  & 
     216    , type_ ) 
     217     
     218    IMPLICIT NONE 
     219      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     220      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    209221      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ 
    210222      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_ 
     
    222234      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    223235       
     236      IF (PRESENT(compression_level_)) THEN 
     237        CALL cxios_get_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) 
     238      ENDIF 
     239       
    224240      IF (PRESENT(description_)) THEN 
    225241        CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
     
    280296   
    281297  SUBROUTINE xios(is_defined_filegroup_attr)  & 
    282     ( filegroup_id, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    283     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     298    ( filegroup_id, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     299    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    284300     
    285301    IMPLICIT NONE 
    286302      TYPE(txios(filegroup))  :: filegroup_hdl 
    287303      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id 
     304      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     305      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    288306      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    289307      LOGICAL(KIND=C_BOOL) :: description_tmp 
     
    315333      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    316334      CALL xios(is_defined_filegroup_attr_hdl_)   & 
    317       ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    318       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     335      ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     336      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    319337     
    320338  END SUBROUTINE xios(is_defined_filegroup_attr) 
    321339   
    322340  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  & 
    323     ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    324     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    325      
    326     IMPLICIT NONE 
    327       TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     341    ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     342    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     343     
     344    IMPLICIT NONE 
     345      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     346      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     347      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    328348      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    329349      LOGICAL(KIND=C_BOOL) :: description_tmp 
     
    354374       
    355375      CALL xios(is_defined_filegroup_attr_hdl_)  & 
    356       ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    357       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     376      ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     377      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    358378     
    359379  END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 
    360380   
    361381  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   & 
    362     ( filegroup_hdl, description_, enabled_, group_ref_, min_digits_, name_, name_suffix_, output_freq_  & 
    363     , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
    364      
    365     IMPLICIT NONE 
    366       TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     382    ( filegroup_hdl, compression_level_, description_, enabled_, group_ref_, min_digits_, name_  & 
     383    , name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_  & 
     384    , type_ ) 
     385     
     386    IMPLICIT NONE 
     387      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     388      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
     389      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    367390      LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 
    368391      LOGICAL(KIND=C_BOOL) :: description__tmp 
     
    392415      LOGICAL(KIND=C_BOOL) :: type__tmp 
    393416       
     417      IF (PRESENT(compression_level_)) THEN 
     418        compression_level__tmp=cxios_is_defined_filegroup_compression_level(filegroup_hdl%daddr) 
     419        compression_level_=compression_level__tmp 
     420      ENDIF 
     421       
    394422      IF (PRESENT(description_)) THEN 
    395423        description__tmp=cxios_is_defined_filegroup_description(filegroup_hdl%daddr) 
  • 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.