Changeset 779 for XIOS/trunk/src/interface/fortran_attr/ifile_attr.F90
- Timestamp:
- 11/04/15 15:50:20 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/ifile_attr.F90
r711 r779 13 13 SUBROUTINE xios(set_file_attr) & 14 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, time_counter&16 , time series, ts_prefix, type )15 , output_freq, output_level, par_access, record_offset, split_freq, split_freq_format, sync_freq & 16 , time_counter, timeseries, ts_prefix, type ) 17 17 18 18 IMPLICIT NONE … … 33 33 INTEGER , OPTIONAL, INTENT(IN) :: output_level 34 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 35 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 35 36 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq 36 37 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format … … 44 45 CALL xios(set_file_attr_hdl_) & 45 46 ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name & 46 , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq&47 , time_counter, timeseries, ts_prefix, type )47 , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format & 48 , sync_freq, time_counter, timeseries, ts_prefix, type ) 48 49 49 50 END SUBROUTINE xios(set_file_attr) … … 51 52 SUBROUTINE xios(set_file_attr_hdl) & 52 53 ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name & 53 , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq&54 , time_counter, timeseries, ts_prefix, type )54 , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format & 55 , sync_freq, time_counter, timeseries, ts_prefix, type ) 55 56 56 57 IMPLICIT NONE … … 70 71 INTEGER , OPTIONAL, INTENT(IN) :: output_level 71 72 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 73 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 72 74 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq 73 75 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format … … 80 82 CALL xios(set_file_attr_hdl_) & 81 83 ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name & 82 , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq&83 , time_counter, timeseries, ts_prefix, type )84 , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format & 85 , sync_freq, time_counter, timeseries, ts_prefix, type ) 84 86 85 87 END SUBROUTINE xios(set_file_attr_hdl) … … 87 89 SUBROUTINE xios(set_file_attr_hdl_) & 88 90 ( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_ & 89 , name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_ &90 , s ync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )91 , name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_ & 92 , split_freq_format_, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ ) 91 93 92 94 IMPLICIT NONE … … 106 108 INTEGER , OPTIONAL, INTENT(IN) :: output_level_ 107 109 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 110 INTEGER , OPTIONAL, INTENT(IN) :: record_offset_ 108 111 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq_ 109 112 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_ … … 164 167 ENDIF 165 168 169 IF (PRESENT(record_offset_)) THEN 170 CALL cxios_set_file_record_offset(file_hdl%daddr, record_offset_) 171 ENDIF 172 166 173 IF (PRESENT(split_freq_)) THEN 167 174 CALL cxios_set_file_split_freq(file_hdl%daddr, split_freq_) … … 196 203 SUBROUTINE xios(get_file_attr) & 197 204 ( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix & 198 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter&199 , time series, ts_prefix, type )205 , output_freq, output_level, par_access, record_offset, split_freq, split_freq_format, sync_freq & 206 , time_counter, timeseries, ts_prefix, type ) 200 207 201 208 IMPLICIT NONE … … 216 223 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 217 224 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 225 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 218 226 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq 219 227 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format … … 227 235 CALL xios(get_file_attr_hdl_) & 228 236 ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name & 229 , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq&230 , time_counter, timeseries, ts_prefix, type )237 , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format & 238 , sync_freq, time_counter, timeseries, ts_prefix, type ) 231 239 232 240 END SUBROUTINE xios(get_file_attr) … … 234 242 SUBROUTINE xios(get_file_attr_hdl) & 235 243 ( 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 , time_counter, timeseries, ts_prefix, type )244 , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format & 245 , sync_freq, time_counter, timeseries, ts_prefix, type ) 238 246 239 247 IMPLICIT NONE … … 253 261 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 254 262 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 263 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 255 264 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq 256 265 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format … … 263 272 CALL xios(get_file_attr_hdl_) & 264 273 ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name & 265 , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq&266 , time_counter, timeseries, ts_prefix, type )274 , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format & 275 , sync_freq, time_counter, timeseries, ts_prefix, type ) 267 276 268 277 END SUBROUTINE xios(get_file_attr_hdl) … … 270 279 SUBROUTINE xios(get_file_attr_hdl_) & 271 280 ( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_ & 272 , name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_ &273 , s ync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )281 , name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_ & 282 , split_freq_format_, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ ) 274 283 275 284 IMPLICIT NONE … … 289 298 INTEGER , OPTIONAL, INTENT(OUT) :: output_level_ 290 299 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 300 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_ 291 301 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq_ 292 302 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_ … … 347 357 ENDIF 348 358 359 IF (PRESENT(record_offset_)) THEN 360 CALL cxios_get_file_record_offset(file_hdl%daddr, record_offset_) 361 ENDIF 362 349 363 IF (PRESENT(split_freq_)) THEN 350 364 CALL cxios_get_file_split_freq(file_hdl%daddr, split_freq_) … … 379 393 SUBROUTINE xios(is_defined_file_attr) & 380 394 ( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix & 381 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter&382 , time series, ts_prefix, type )395 , output_freq, output_level, par_access, record_offset, split_freq, split_freq_format, sync_freq & 396 , time_counter, timeseries, ts_prefix, type ) 383 397 384 398 IMPLICIT NONE … … 409 423 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 410 424 LOGICAL(KIND=C_BOOL) :: par_access_tmp 425 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 426 LOGICAL(KIND=C_BOOL) :: record_offset_tmp 411 427 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 412 428 LOGICAL(KIND=C_BOOL) :: split_freq_tmp … … 427 443 CALL xios(is_defined_file_attr_hdl_) & 428 444 ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name & 429 , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq&430 , time_counter, timeseries, ts_prefix, type )445 , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format & 446 , sync_freq, time_counter, timeseries, ts_prefix, type ) 431 447 432 448 END SUBROUTINE xios(is_defined_file_attr) … … 434 450 SUBROUTINE xios(is_defined_file_attr_hdl) & 435 451 ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name & 436 , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq&437 , time_counter, timeseries, ts_prefix, type )452 , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format & 453 , sync_freq, time_counter, timeseries, ts_prefix, type ) 438 454 439 455 IMPLICIT NONE … … 463 479 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 464 480 LOGICAL(KIND=C_BOOL) :: par_access_tmp 481 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 482 LOGICAL(KIND=C_BOOL) :: record_offset_tmp 465 483 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 466 484 LOGICAL(KIND=C_BOOL) :: split_freq_tmp … … 480 498 CALL xios(is_defined_file_attr_hdl_) & 481 499 ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name & 482 , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq&483 , time_counter, timeseries, ts_prefix, type )500 , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format & 501 , sync_freq, time_counter, timeseries, ts_prefix, type ) 484 502 485 503 END SUBROUTINE xios(is_defined_file_attr_hdl) … … 487 505 SUBROUTINE xios(is_defined_file_attr_hdl_) & 488 506 ( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_ & 489 , name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_ &490 , s ync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )507 , name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_ & 508 , split_freq_format_, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ ) 491 509 492 510 IMPLICIT NONE … … 516 534 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 517 535 LOGICAL(KIND=C_BOOL) :: par_access__tmp 536 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ 537 LOGICAL(KIND=C_BOOL) :: record_offset__tmp 518 538 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_ 519 539 LOGICAL(KIND=C_BOOL) :: split_freq__tmp … … 591 611 ENDIF 592 612 613 IF (PRESENT(record_offset_)) THEN 614 record_offset__tmp = cxios_is_defined_file_record_offset(file_hdl%daddr) 615 record_offset_ = record_offset__tmp 616 ENDIF 617 593 618 IF (PRESENT(split_freq_)) THEN 594 619 split_freq__tmp = cxios_is_defined_file_split_freq(file_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.