Ignore:
Timestamp:
04/24/18 18:03:18 (6 years ago)
Author:
oabramkina
Message:

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ifilegroup_attr.F90

    r1201 r1492  
    1212 
    1313  SUBROUTINE xios(set_filegroup_attr)  & 
    14     ( filegroup_id, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    15     , format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    16     , record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     14    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     15    , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     16    , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
     17    , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    1718    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    1819 
    … …  
    2223      LOGICAL  , OPTIONAL, INTENT(IN) :: append 
    2324      LOGICAL (KIND=C_BOOL) :: append_tmp 
     25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    2426      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2527      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention 
    … …  
    3941      INTEGER  , OPTIONAL, INTENT(IN) :: output_level 
    4042      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 
     43      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par 
     44      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
    4145      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset 
     46      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset 
    4247      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq 
    4348      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 
     49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date 
     50      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset 
    4451      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq 
    4552      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 
    … …  
    5764      (filegroup_id,filegroup_hdl) 
    5865      CALL xios(set_filegroup_attr_hdl_)   & 
    59       ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description  & 
     66      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    6067      , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    61       , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name  & 
    62       , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name  & 
    63       ) 
     68      , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
     69      , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     70      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    6471 
    6572  END SUBROUTINE xios(set_filegroup_attr) 
    6673 
    6774  SUBROUTINE xios(set_filegroup_attr_hdl)  & 
    68     ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description  & 
     75    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    6976    , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    70     , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name  & 
    71     , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name  & 
    72     ) 
     77    , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
     78    , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     79    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    7380 
    7481    IMPLICIT NONE 
    … …  
    7683      LOGICAL  , OPTIONAL, INTENT(IN) :: append 
    7784      LOGICAL (KIND=C_BOOL) :: append_tmp 
     85      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    7886      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    7987      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention 
    … …  
    93101      INTEGER  , OPTIONAL, INTENT(IN) :: output_level 
    94102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 
     103      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par 
     104      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
    95105      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset 
     106      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset 
    96107      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq 
    97108      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 
     109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date 
     110      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset 
    98111      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq 
    99112      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 
    … …  
    109122 
    110123      CALL xios(set_filegroup_attr_hdl_)  & 
    111       ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description  & 
     124      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    112125      , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    113       , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name  & 
    114       , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name  & 
    115       ) 
     126      , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
     127      , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     128      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    116129 
    117130  END SUBROUTINE xios(set_filegroup_attr_hdl) 
    118131 
    119132  SUBROUTINE xios(set_filegroup_attr_hdl_)   & 
    120     ( filegroup_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_  & 
    121     , enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_  & 
    122     , par_access_, record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_  & 
     133    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  & 
     134    , description_, enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_  & 
     135    , output_level_, par_access_, read_metadata_par_, record_offset_, split_end_offset_, split_freq_  & 
     136    , split_freq_format_, split_last_date_, split_start_offset_, sync_freq_, time_counter_, time_counter_name_  & 
    123137    , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
    124138    , uuid_name_ ) 
    … …  
    128142      LOGICAL  , OPTIONAL, INTENT(IN) :: append_ 
    129143      LOGICAL (KIND=C_BOOL) :: append__tmp 
     144      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 
    130145      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    131146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_ 
    … …  
    145160      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_ 
    146161      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 
     162      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par_ 
     163      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 
    147164      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset_ 
     165      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset_ 
    148166      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_ 
    149167      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_ 
     168      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date_ 
     169      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset_ 
    150170      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq_ 
    151171      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_ 
    … …  
    166186      ENDIF 
    167187 
     188      IF (PRESENT(comment_)) THEN 
     189        CALL cxios_set_filegroup_comment & 
     190      (filegroup_hdl%daddr, comment_, len(comment_)) 
     191      ENDIF 
     192 
    168193      IF (PRESENT(compression_level_)) THEN 
    169194        CALL cxios_set_filegroup_compression_level & 
    … …  
    243268      ENDIF 
    244269 
     270      IF (PRESENT(read_metadata_par_)) THEN 
     271        read_metadata_par__tmp = read_metadata_par_ 
     272        CALL cxios_set_filegroup_read_metadata_par & 
     273      (filegroup_hdl%daddr, read_metadata_par__tmp) 
     274      ENDIF 
     275 
    245276      IF (PRESENT(record_offset_)) THEN 
    246277        CALL cxios_set_filegroup_record_offset & 
    … …  
    248279      ENDIF 
    249280 
     281      IF (PRESENT(split_end_offset_)) THEN 
     282        CALL cxios_set_filegroup_split_end_offset & 
     283      (filegroup_hdl%daddr, split_end_offset_) 
     284      ENDIF 
     285 
    250286      IF (PRESENT(split_freq_)) THEN 
    251287        CALL cxios_set_filegroup_split_freq & 
    … …  
    258294      ENDIF 
    259295 
     296      IF (PRESENT(split_last_date_)) THEN 
     297        CALL cxios_set_filegroup_split_last_date & 
     298      (filegroup_hdl%daddr, split_last_date_, len(split_last_date_)) 
     299      ENDIF 
     300 
     301      IF (PRESENT(split_start_offset_)) THEN 
     302        CALL cxios_set_filegroup_split_start_offset & 
     303      (filegroup_hdl%daddr, split_start_offset_) 
     304      ENDIF 
     305 
    260306      IF (PRESENT(sync_freq_)) THEN 
    261307        CALL cxios_set_filegroup_sync_freq & 
    … …  
    316362 
    317363  SUBROUTINE xios(get_filegroup_attr)  & 
    318     ( filegroup_id, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    319     , format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    320     , record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     364    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     365    , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     366    , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
     367    , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    321368    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    322369 
    … …  
    326373      LOGICAL  , OPTIONAL, INTENT(OUT) :: append 
    327374      LOGICAL (KIND=C_BOOL) :: append_tmp 
     375      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    328376      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    329377      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention 
    … …  
    343391      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level 
    344392      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 
     393      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par 
     394      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
    345395      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset 
     396      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset 
    346397      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq 
    347398      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 
     399      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date 
     400      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset 
    348401      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq 
    349402      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 
    … …  
    361414      (filegroup_id,filegroup_hdl) 
    362415      CALL xios(get_filegroup_attr_hdl_)   & 
    363       ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description  & 
     416      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    364417      , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    365       , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name  & 
    366       , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name  & 
    367       ) 
     418      , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
     419      , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     420      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    368421 
    369422  END SUBROUTINE xios(get_filegroup_attr) 
    370423 
    371424  SUBROUTINE xios(get_filegroup_attr_hdl)  & 
    372     ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description  & 
     425    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    373426    , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    374     , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name  & 
    375     , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name  & 
    376     ) 
     427    , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
     428    , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     429    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    377430 
    378431    IMPLICIT NONE 
    … …  
    380433      LOGICAL  , OPTIONAL, INTENT(OUT) :: append 
    381434      LOGICAL (KIND=C_BOOL) :: append_tmp 
     435      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    382436      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    383437      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention 
    … …  
    397451      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level 
    398452      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 
     453      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par 
     454      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
    399455      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset 
     456      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset 
    400457      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq 
    401458      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 
     459      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date 
     460      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset 
    402461      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq 
    403462      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 
    … …  
    413472 
    414473      CALL xios(get_filegroup_attr_hdl_)  & 
    415       ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description  & 
     474      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    416475      , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    417       , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name  & 
    418       , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name  & 
    419       ) 
     476      , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
     477      , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     478      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    420479 
    421480  END SUBROUTINE xios(get_filegroup_attr_hdl) 
    422481 
    423482  SUBROUTINE xios(get_filegroup_attr_hdl_)   & 
    424     ( filegroup_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_  & 
    425     , enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_  & 
    426     , par_access_, record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_  & 
     483    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  & 
     484    , description_, enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_  & 
     485    , output_level_, par_access_, read_metadata_par_, record_offset_, split_end_offset_, split_freq_  & 
     486    , split_freq_format_, split_last_date_, split_start_offset_, sync_freq_, time_counter_, time_counter_name_  & 
    427487    , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
    428488    , uuid_name_ ) 
    … …  
    432492      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_ 
    433493      LOGICAL (KIND=C_BOOL) :: append__tmp 
     494      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 
    434495      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    435496      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_ 
    … …  
    449510      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_ 
    450511      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 
     512      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par_ 
     513      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 
    451514      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset_ 
     515      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset_ 
    452516      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_ 
    453517      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_ 
     518      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date_ 
     519      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset_ 
    454520      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_ 
    455521      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_ 
    … …  
    470536      ENDIF 
    471537 
     538      IF (PRESENT(comment_)) THEN 
     539        CALL cxios_get_filegroup_comment & 
     540      (filegroup_hdl%daddr, comment_, len(comment_)) 
     541      ENDIF 
     542 
    472543      IF (PRESENT(compression_level_)) THEN 
    473544        CALL cxios_get_filegroup_compression_level & 
    … …  
    547618      ENDIF 
    548619 
     620      IF (PRESENT(read_metadata_par_)) THEN 
     621        CALL cxios_get_filegroup_read_metadata_par & 
     622      (filegroup_hdl%daddr, read_metadata_par__tmp) 
     623        read_metadata_par_ = read_metadata_par__tmp 
     624      ENDIF 
     625 
    549626      IF (PRESENT(record_offset_)) THEN 
    550627        CALL cxios_get_filegroup_record_offset & 
    … …  
    552629      ENDIF 
    553630 
     631      IF (PRESENT(split_end_offset_)) THEN 
     632        CALL cxios_get_filegroup_split_end_offset & 
     633      (filegroup_hdl%daddr, split_end_offset_) 
     634      ENDIF 
     635 
    554636      IF (PRESENT(split_freq_)) THEN 
    555637        CALL cxios_get_filegroup_split_freq & 
    … …  
    562644      ENDIF 
    563645 
     646      IF (PRESENT(split_last_date_)) THEN 
     647        CALL cxios_get_filegroup_split_last_date & 
     648      (filegroup_hdl%daddr, split_last_date_, len(split_last_date_)) 
     649      ENDIF 
     650 
     651      IF (PRESENT(split_start_offset_)) THEN 
     652        CALL cxios_get_filegroup_split_start_offset & 
     653      (filegroup_hdl%daddr, split_start_offset_) 
     654      ENDIF 
     655 
    564656      IF (PRESENT(sync_freq_)) THEN 
    565657        CALL cxios_get_filegroup_sync_freq & 
    … …  
    620712 
    621713  SUBROUTINE xios(is_defined_filegroup_attr)  & 
    622     ( filegroup_id, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    623     , format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
    624     , record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     714    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     715    , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     716    , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
     717    , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    625718    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    626719 
    … …  
    630723      LOGICAL, OPTIONAL, INTENT(OUT) :: append 
    631724      LOGICAL(KIND=C_BOOL) :: append_tmp 
     725      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
     726      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    632727      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    633728      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    … …  
    660755      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 
    661756      LOGICAL(KIND=C_BOOL) :: par_access_tmp 
     757      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 
     758      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 
    662759      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 
    663760      LOGICAL(KIND=C_BOOL) :: record_offset_tmp 
     761      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset 
     762      LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp 
    664763      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 
    665764      LOGICAL(KIND=C_BOOL) :: split_freq_tmp 
    666765      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 
    667766      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 
     767      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date 
     768      LOGICAL(KIND=C_BOOL) :: split_last_date_tmp 
     769      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset 
     770      LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp 
    668771      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 
    669772      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp 
    … …  
    692795      (filegroup_id,filegroup_hdl) 
    693796      CALL xios(is_defined_filegroup_attr_hdl_)   & 
    694       ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description  & 
     797      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    695798      , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    696       , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name  & 
    697       , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name  & 
    698       ) 
     799      , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
     800      , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     801      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    699802 
    700803  END SUBROUTINE xios(is_defined_filegroup_attr) 
    701804 
    702805  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  & 
    703     ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description  & 
     806    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    704807    , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    705     , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name  & 
    706     , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name  & 
    707     ) 
     808    , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
     809    , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     810    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    708811 
    709812    IMPLICIT NONE 
    … …  
    711814      LOGICAL, OPTIONAL, INTENT(OUT) :: append 
    712815      LOGICAL(KIND=C_BOOL) :: append_tmp 
     816      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
     817      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    713818      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    714819      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    … …  
    741846      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 
    742847      LOGICAL(KIND=C_BOOL) :: par_access_tmp 
     848      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 
     849      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 
    743850      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 
    744851      LOGICAL(KIND=C_BOOL) :: record_offset_tmp 
     852      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset 
     853      LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp 
    745854      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 
    746855      LOGICAL(KIND=C_BOOL) :: split_freq_tmp 
    747856      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 
    748857      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 
     858      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date 
     859      LOGICAL(KIND=C_BOOL) :: split_last_date_tmp 
     860      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset 
     861      LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp 
    749862      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 
    750863      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp 
    … …  
    771884 
    772885      CALL xios(is_defined_filegroup_attr_hdl_)  & 
    773       ( filegroup_hdl, append, compression_level, convention, convention_str, cyclic, description  & 
     886      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    774887      , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    775       , par_access, record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name  & 
    776       , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name  & 
    777       ) 
     888      , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
     889      , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     890      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    778891 
    779892  END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 
    780893 
    781894  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   & 
    782     ( filegroup_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_  & 
    783     , enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_  & 
    784     , par_access_, record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_  & 
     895    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  & 
     896    , description_, enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_  & 
     897    , output_level_, par_access_, read_metadata_par_, record_offset_, split_end_offset_, split_freq_  & 
     898    , split_freq_format_, split_last_date_, split_start_offset_, sync_freq_, time_counter_, time_counter_name_  & 
    785899    , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
    786900    , uuid_name_ ) 
    … …  
    790904      LOGICAL, OPTIONAL, INTENT(OUT) :: append_ 
    791905      LOGICAL(KIND=C_BOOL) :: append__tmp 
     906      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 
     907      LOGICAL(KIND=C_BOOL) :: comment__tmp 
    792908      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
    793909      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    … …  
    820936      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 
    821937      LOGICAL(KIND=C_BOOL) :: par_access__tmp 
     938      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_ 
     939      LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp 
    822940      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ 
    823941      LOGICAL(KIND=C_BOOL) :: record_offset__tmp 
     942      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset_ 
     943      LOGICAL(KIND=C_BOOL) :: split_end_offset__tmp 
    824944      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_ 
    825945      LOGICAL(KIND=C_BOOL) :: split_freq__tmp 
    826946      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_ 
    827947      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp 
     948      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date_ 
     949      LOGICAL(KIND=C_BOOL) :: split_last_date__tmp 
     950      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset_ 
     951      LOGICAL(KIND=C_BOOL) :: split_start_offset__tmp 
    828952      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_ 
    829953      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp 
    … …  
    855979      ENDIF 
    856980 
     981      IF (PRESENT(comment_)) THEN 
     982        comment__tmp = cxios_is_defined_filegroup_comment & 
     983      (filegroup_hdl%daddr) 
     984        comment_ = comment__tmp 
     985      ENDIF 
     986 
    857987      IF (PRESENT(compression_level_)) THEN 
    858988        compression_level__tmp = cxios_is_defined_filegroup_compression_level & 
    … …  
    9451075      ENDIF 
    9461076 
     1077      IF (PRESENT(read_metadata_par_)) THEN 
     1078        read_metadata_par__tmp = cxios_is_defined_filegroup_read_metadata_par & 
     1079      (filegroup_hdl%daddr) 
     1080        read_metadata_par_ = read_metadata_par__tmp 
     1081      ENDIF 
     1082 
    9471083      IF (PRESENT(record_offset_)) THEN 
    9481084        record_offset__tmp = cxios_is_defined_filegroup_record_offset & 
    … …  
    9511087      ENDIF 
    9521088 
     1089      IF (PRESENT(split_end_offset_)) THEN 
     1090        split_end_offset__tmp = cxios_is_defined_filegroup_split_end_offset & 
     1091      (filegroup_hdl%daddr) 
     1092        split_end_offset_ = split_end_offset__tmp 
     1093      ENDIF 
     1094 
    9531095      IF (PRESENT(split_freq_)) THEN 
    9541096        split_freq__tmp = cxios_is_defined_filegroup_split_freq & 
    … …  
    9631105      ENDIF 
    9641106 
     1107      IF (PRESENT(split_last_date_)) THEN 
     1108        split_last_date__tmp = cxios_is_defined_filegroup_split_last_date & 
     1109      (filegroup_hdl%daddr) 
     1110        split_last_date_ = split_last_date__tmp 
     1111      ENDIF 
     1112 
     1113      IF (PRESENT(split_start_offset_)) THEN 
     1114        split_start_offset__tmp = cxios_is_defined_filegroup_split_start_offset & 
     1115      (filegroup_hdl%daddr) 
     1116        split_start_offset_ = split_start_offset__tmp 
     1117      ENDIF 
     1118 
    9651119      IF (PRESENT(sync_freq_)) THEN 
    9661120        sync_freq__tmp = cxios_is_defined_filegroup_sync_freq & 
Note: See TracChangeset for help on using the changeset viewer.