Ignore:
Timestamp:
06/18/18 20:32:55 (6 years ago)
Author:
yushan
Message:

branch_openmp merged with trunk r1544

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/branch_openmp/src/interface/fortran_attr/ifile_attr.F90

    r1205 r1545  
    1212 
    1313  SUBROUTINE xios(set_file_attr)  & 
    14     ( file_id, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    15     , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    16     , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    17     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     14    ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     15    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
     16    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
     17    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     18    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    1819 
    1920    IMPLICIT NONE 
    … …  
    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 
    … …  
    3840      INTEGER  , OPTIONAL, INTENT(IN) :: output_level 
    3941      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 
     42      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par 
     43      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
    4044      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset 
     45      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset 
    4146      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq 
    4247      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 
     48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date 
     49      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset 
    4350      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq 
    4451      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 
    … …  
    5663      (file_id,file_hdl) 
    5764      CALL xios(set_file_attr_hdl_)   & 
    58       ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    59       , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    60       , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    61       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     65      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     66      , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
     67      , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
     68      , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     69      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    6270 
    6371  END SUBROUTINE xios(set_file_attr) 
    6472 
    6573  SUBROUTINE xios(set_file_attr_hdl)  & 
    66     ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    67     , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    68     , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    69     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     74    ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     75    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
     76    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
     77    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     78    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    7079 
    7180    IMPLICIT NONE 
    … …  
    7382      LOGICAL  , OPTIONAL, INTENT(IN) :: append 
    7483      LOGICAL (KIND=C_BOOL) :: append_tmp 
     84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    7585      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    7686      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention 
    … …  
    8999      INTEGER  , OPTIONAL, INTENT(IN) :: output_level 
    90100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 
     101      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par 
     102      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
    91103      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset 
     104      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset 
    92105      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq 
    93106      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 
     107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date 
     108      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset 
    94109      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq 
    95110      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 
    … …  
    105120 
    106121      CALL xios(set_file_attr_hdl_)  & 
    107       ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    108       , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    109       , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    110       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     122      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     123      , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
     124      , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
     125      , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     126      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    111127 
    112128  END SUBROUTINE xios(set_file_attr_hdl) 
    113129 
    114130  SUBROUTINE xios(set_file_attr_hdl_)   & 
    115     ( file_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_  & 
     131    ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_  & 
    116132    , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  & 
    117     , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_  & 
    118     , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
    119     , uuid_name_ ) 
     133    , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  & 
     134    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  & 
     135    , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 
    120136 
    121137    IMPLICIT NONE 
    … …  
    123139      LOGICAL  , OPTIONAL, INTENT(IN) :: append_ 
    124140      LOGICAL (KIND=C_BOOL) :: append__tmp 
     141      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 
    125142      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    126143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_ 
    … …  
    139156      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_ 
    140157      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 
     158      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par_ 
     159      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 
    141160      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset_ 
     161      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset_ 
    142162      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_ 
    143163      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_ 
     164      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date_ 
     165      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset_ 
    144166      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq_ 
    145167      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_ 
    … …  
    160182      ENDIF 
    161183 
     184      IF (PRESENT(comment_)) THEN 
     185        CALL cxios_set_file_comment & 
     186      (file_hdl%daddr, comment_, len(comment_)) 
     187      ENDIF 
     188 
    162189      IF (PRESENT(compression_level_)) THEN 
    163190        CALL cxios_set_file_compression_level & 
    … …  
    232259      ENDIF 
    233260 
     261      IF (PRESENT(read_metadata_par_)) THEN 
     262        read_metadata_par__tmp = read_metadata_par_ 
     263        CALL cxios_set_file_read_metadata_par & 
     264      (file_hdl%daddr, read_metadata_par__tmp) 
     265      ENDIF 
     266 
    234267      IF (PRESENT(record_offset_)) THEN 
    235268        CALL cxios_set_file_record_offset & 
    … …  
    237270      ENDIF 
    238271 
     272      IF (PRESENT(split_end_offset_)) THEN 
     273        CALL cxios_set_file_split_end_offset & 
     274      (file_hdl%daddr, split_end_offset_) 
     275      ENDIF 
     276 
    239277      IF (PRESENT(split_freq_)) THEN 
    240278        CALL cxios_set_file_split_freq & 
    … …  
    247285      ENDIF 
    248286 
     287      IF (PRESENT(split_last_date_)) THEN 
     288        CALL cxios_set_file_split_last_date & 
     289      (file_hdl%daddr, split_last_date_, len(split_last_date_)) 
     290      ENDIF 
     291 
     292      IF (PRESENT(split_start_offset_)) THEN 
     293        CALL cxios_set_file_split_start_offset & 
     294      (file_hdl%daddr, split_start_offset_) 
     295      ENDIF 
     296 
    249297      IF (PRESENT(sync_freq_)) THEN 
    250298        CALL cxios_set_file_sync_freq & 
    … …  
    305353 
    306354  SUBROUTINE xios(get_file_attr)  & 
    307     ( file_id, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    308     , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    309     , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    310     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     355    ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     356    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
     357    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
     358    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     359    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    311360 
    312361    IMPLICIT NONE 
    … …  
    315364      LOGICAL  , OPTIONAL, INTENT(OUT) :: append 
    316365      LOGICAL (KIND=C_BOOL) :: append_tmp 
     366      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    317367      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    318368      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention 
    … …  
    331381      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level 
    332382      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 
     383      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par 
     384      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
    333385      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset 
     386      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset 
    334387      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq 
    335388      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 
     389      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date 
     390      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset 
    336391      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq 
    337392      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 
    … …  
    349404      (file_id,file_hdl) 
    350405      CALL xios(get_file_attr_hdl_)   & 
    351       ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    352       , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    353       , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    354       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     406      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     407      , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
     408      , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
     409      , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     410      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    355411 
    356412  END SUBROUTINE xios(get_file_attr) 
    357413 
    358414  SUBROUTINE xios(get_file_attr_hdl)  & 
    359     ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    360     , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    361     , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    362     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     415    ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     416    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
     417    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
     418    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     419    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    363420 
    364421    IMPLICIT NONE 
    … …  
    366423      LOGICAL  , OPTIONAL, INTENT(OUT) :: append 
    367424      LOGICAL (KIND=C_BOOL) :: append_tmp 
     425      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    368426      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    369427      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention 
    … …  
    382440      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level 
    383441      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 
     442      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par 
     443      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
    384444      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset 
     445      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset 
    385446      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq 
    386447      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 
     448      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date 
     449      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset 
    387450      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq 
    388451      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 
    … …  
    398461 
    399462      CALL xios(get_file_attr_hdl_)  & 
    400       ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    401       , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    402       , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    403       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     463      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     464      , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
     465      , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
     466      , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     467      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    404468 
    405469  END SUBROUTINE xios(get_file_attr_hdl) 
    406470 
    407471  SUBROUTINE xios(get_file_attr_hdl_)   & 
    408     ( file_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_  & 
     472    ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_  & 
    409473    , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  & 
    410     , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_  & 
    411     , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
    412     , uuid_name_ ) 
     474    , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  & 
     475    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  & 
     476    , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 
    413477 
    414478    IMPLICIT NONE 
    … …  
    416480      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_ 
    417481      LOGICAL (KIND=C_BOOL) :: append__tmp 
     482      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 
    418483      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    419484      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_ 
    … …  
    432497      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_ 
    433498      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 
     499      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par_ 
     500      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 
    434501      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset_ 
     502      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset_ 
    435503      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_ 
    436504      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_ 
     505      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date_ 
     506      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset_ 
    437507      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_ 
    438508      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_ 
    … …  
    453523      ENDIF 
    454524 
     525      IF (PRESENT(comment_)) THEN 
     526        CALL cxios_get_file_comment & 
     527      (file_hdl%daddr, comment_, len(comment_)) 
     528      ENDIF 
     529 
    455530      IF (PRESENT(compression_level_)) THEN 
    456531        CALL cxios_get_file_compression_level & 
    … …  
    525600      ENDIF 
    526601 
     602      IF (PRESENT(read_metadata_par_)) THEN 
     603        CALL cxios_get_file_read_metadata_par & 
     604      (file_hdl%daddr, read_metadata_par__tmp) 
     605        read_metadata_par_ = read_metadata_par__tmp 
     606      ENDIF 
     607 
    527608      IF (PRESENT(record_offset_)) THEN 
    528609        CALL cxios_get_file_record_offset & 
    … …  
    530611      ENDIF 
    531612 
     613      IF (PRESENT(split_end_offset_)) THEN 
     614        CALL cxios_get_file_split_end_offset & 
     615      (file_hdl%daddr, split_end_offset_) 
     616      ENDIF 
     617 
    532618      IF (PRESENT(split_freq_)) THEN 
    533619        CALL cxios_get_file_split_freq & 
    … …  
    540626      ENDIF 
    541627 
     628      IF (PRESENT(split_last_date_)) THEN 
     629        CALL cxios_get_file_split_last_date & 
     630      (file_hdl%daddr, split_last_date_, len(split_last_date_)) 
     631      ENDIF 
     632 
     633      IF (PRESENT(split_start_offset_)) THEN 
     634        CALL cxios_get_file_split_start_offset & 
     635      (file_hdl%daddr, split_start_offset_) 
     636      ENDIF 
     637 
    542638      IF (PRESENT(sync_freq_)) THEN 
    543639        CALL cxios_get_file_sync_freq & 
    … …  
    598694 
    599695  SUBROUTINE xios(is_defined_file_attr)  & 
    600     ( file_id, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    601     , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    602     , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    603     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     696    ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     697    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
     698    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
     699    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     700    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    604701 
    605702    IMPLICIT NONE 
    … …  
    608705      LOGICAL, OPTIONAL, INTENT(OUT) :: append 
    609706      LOGICAL(KIND=C_BOOL) :: append_tmp 
     707      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
     708      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    610709      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    611710      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    … …  
    636735      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 
    637736      LOGICAL(KIND=C_BOOL) :: par_access_tmp 
     737      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 
     738      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 
    638739      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 
    639740      LOGICAL(KIND=C_BOOL) :: record_offset_tmp 
     741      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset 
     742      LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp 
    640743      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 
    641744      LOGICAL(KIND=C_BOOL) :: split_freq_tmp 
    642745      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 
    643746      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 
     747      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date 
     748      LOGICAL(KIND=C_BOOL) :: split_last_date_tmp 
     749      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset 
     750      LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp 
    644751      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 
    645752      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp 
    … …  
    668775      (file_id,file_hdl) 
    669776      CALL xios(is_defined_file_attr_hdl_)   & 
    670       ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    671       , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    672       , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    673       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     777      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     778      , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
     779      , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
     780      , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     781      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    674782 
    675783  END SUBROUTINE xios(is_defined_file_attr) 
    676784 
    677785  SUBROUTINE xios(is_defined_file_attr_hdl)  & 
    678     ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    679     , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    680     , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    681     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     786    ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     787    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
     788    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
     789    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     790    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    682791 
    683792    IMPLICIT NONE 
    … …  
    685794      LOGICAL, OPTIONAL, INTENT(OUT) :: append 
    686795      LOGICAL(KIND=C_BOOL) :: append_tmp 
     796      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
     797      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    687798      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    688799      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    … …  
    713824      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 
    714825      LOGICAL(KIND=C_BOOL) :: par_access_tmp 
     826      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 
     827      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 
    715828      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 
    716829      LOGICAL(KIND=C_BOOL) :: record_offset_tmp 
     830      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset 
     831      LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp 
    717832      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 
    718833      LOGICAL(KIND=C_BOOL) :: split_freq_tmp 
    719834      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 
    720835      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 
     836      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date 
     837      LOGICAL(KIND=C_BOOL) :: split_last_date_tmp 
     838      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset 
     839      LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp 
    721840      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 
    722841      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp 
    … …  
    743862 
    744863      CALL xios(is_defined_file_attr_hdl_)  & 
    745       ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled  & 
    746       , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    747       , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    748       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     864      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
     865      , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  & 
     866      , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  & 
     867      , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     868      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    749869 
    750870  END SUBROUTINE xios(is_defined_file_attr_hdl) 
    751871 
    752872  SUBROUTINE xios(is_defined_file_attr_hdl_)   & 
    753     ( file_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_  & 
     873    ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_  & 
    754874    , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  & 
    755     , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_  & 
    756     , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
    757     , uuid_name_ ) 
     875    , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  & 
     876    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  & 
     877    , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 
    758878 
    759879    IMPLICIT NONE 
    … …  
    761881      LOGICAL, OPTIONAL, INTENT(OUT) :: append_ 
    762882      LOGICAL(KIND=C_BOOL) :: append__tmp 
     883      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 
     884      LOGICAL(KIND=C_BOOL) :: comment__tmp 
    763885      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
    764886      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    … …  
    789911      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 
    790912      LOGICAL(KIND=C_BOOL) :: par_access__tmp 
     913      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_ 
     914      LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp 
    791915      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ 
    792916      LOGICAL(KIND=C_BOOL) :: record_offset__tmp 
     917      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset_ 
     918      LOGICAL(KIND=C_BOOL) :: split_end_offset__tmp 
    793919      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_ 
    794920      LOGICAL(KIND=C_BOOL) :: split_freq__tmp 
    795921      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_ 
    796922      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp 
     923      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date_ 
     924      LOGICAL(KIND=C_BOOL) :: split_last_date__tmp 
     925      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset_ 
     926      LOGICAL(KIND=C_BOOL) :: split_start_offset__tmp 
    797927      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_ 
    798928      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp 
    … …  
    824954      ENDIF 
    825955 
     956      IF (PRESENT(comment_)) THEN 
     957        comment__tmp = cxios_is_defined_file_comment & 
     958      (file_hdl%daddr) 
     959        comment_ = comment__tmp 
     960      ENDIF 
     961 
    826962      IF (PRESENT(compression_level_)) THEN 
    827963        compression_level__tmp = cxios_is_defined_file_compression_level & 
    … …  
    9081044      ENDIF 
    9091045 
     1046      IF (PRESENT(read_metadata_par_)) THEN 
     1047        read_metadata_par__tmp = cxios_is_defined_file_read_metadata_par & 
     1048      (file_hdl%daddr) 
     1049        read_metadata_par_ = read_metadata_par__tmp 
     1050      ENDIF 
     1051 
    9101052      IF (PRESENT(record_offset_)) THEN 
    9111053        record_offset__tmp = cxios_is_defined_file_record_offset & 
    … …  
    9141056      ENDIF 
    9151057 
     1058      IF (PRESENT(split_end_offset_)) THEN 
     1059        split_end_offset__tmp = cxios_is_defined_file_split_end_offset & 
     1060      (file_hdl%daddr) 
     1061        split_end_offset_ = split_end_offset__tmp 
     1062      ENDIF 
     1063 
    9161064      IF (PRESENT(split_freq_)) THEN 
    9171065        split_freq__tmp = cxios_is_defined_file_split_freq & 
    … …  
    9261074      ENDIF 
    9271075 
     1076      IF (PRESENT(split_last_date_)) THEN 
     1077        split_last_date__tmp = cxios_is_defined_file_split_last_date & 
     1078      (file_hdl%daddr) 
     1079        split_last_date_ = split_last_date__tmp 
     1080      ENDIF 
     1081 
     1082      IF (PRESENT(split_start_offset_)) THEN 
     1083        split_start_offset__tmp = cxios_is_defined_file_split_start_offset & 
     1084      (file_hdl%daddr) 
     1085        split_start_offset_ = split_start_offset__tmp 
     1086      ENDIF 
     1087 
    9281088      IF (PRESENT(sync_freq_)) THEN 
    9291089        sync_freq__tmp = cxios_is_defined_file_sync_freq & 
Note: See TracChangeset for help on using the changeset viewer.