- Timestamp:
- 07/10/17 18:17:04 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/ifile_attr.F90
r1052 r1205 12 12 13 13 SUBROUTINE xios(set_file_attr) & 14 ( file_id, append, compression_level, convention, c yclic, description, enabled, format, min_digits&15 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq&16 , split_freq _format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name&17 , time_ units, timeseries, ts_prefix, type, uuid_format, uuid_name )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 ) 18 18 19 19 IMPLICIT NONE … … 24 24 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 25 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str 26 27 LOGICAL , OPTIONAL, INTENT(IN) :: cyclic 27 28 LOGICAL (KIND=C_BOOL) :: cyclic_tmp … … 55 56 (file_id,file_hdl) 56 57 CALL xios(set_file_attr_hdl_) & 57 ( file_hdl, append, compression_level, convention, c yclic, description, enabled, format, min_digits&58 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq&59 , split_freq _format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name&60 , time_ units, timeseries, ts_prefix, type, uuid_format, uuid_name )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 ) 61 62 62 63 END SUBROUTINE xios(set_file_attr) 63 64 64 65 SUBROUTINE xios(set_file_attr_hdl) & 65 ( file_hdl, append, compression_level, convention, c yclic, description, enabled, format, min_digits&66 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq&67 , split_freq _format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name&68 , time_ units, timeseries, ts_prefix, type, uuid_format, uuid_name )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 ) 69 70 70 71 IMPLICIT NONE … … 74 75 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 75 76 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention 77 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str 76 78 LOGICAL , OPTIONAL, INTENT(IN) :: cyclic 77 79 LOGICAL (KIND=C_BOOL) :: cyclic_tmp … … 103 105 104 106 CALL xios(set_file_attr_hdl_) & 105 ( file_hdl, append, compression_level, convention, c yclic, description, enabled, format, min_digits&106 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq&107 , split_freq _format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name&108 , time_ units, timeseries, ts_prefix, type, uuid_format, uuid_name )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 ) 109 111 110 112 END SUBROUTINE xios(set_file_attr_hdl) 111 113 112 114 SUBROUTINE xios(set_file_attr_hdl_) & 113 ( file_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_ & 114 , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_ & 115 , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_ & 116 , time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 115 ( file_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_ & 116 , 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_ ) 117 120 118 121 IMPLICIT NONE … … 122 125 INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ 123 126 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_ 127 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str_ 124 128 LOGICAL , OPTIONAL, INTENT(IN) :: cyclic_ 125 129 LOGICAL (KIND=C_BOOL) :: cyclic__tmp … … 166 170 ENDIF 167 171 172 IF (PRESENT(convention_str_)) THEN 173 CALL cxios_set_file_convention_str & 174 (file_hdl%daddr, convention_str_, len(convention_str_)) 175 ENDIF 176 168 177 IF (PRESENT(cyclic_)) THEN 169 178 cyclic__tmp = cyclic_ … … 296 305 297 306 SUBROUTINE xios(get_file_attr) & 298 ( file_id, append, compression_level, convention, c yclic, description, enabled, format, min_digits&299 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq&300 , split_freq _format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name&301 , time_ units, timeseries, ts_prefix, type, uuid_format, uuid_name )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 ) 302 311 303 312 IMPLICIT NONE … … 308 317 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 309 318 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention 319 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str 310 320 LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic 311 321 LOGICAL (KIND=C_BOOL) :: cyclic_tmp … … 339 349 (file_id,file_hdl) 340 350 CALL xios(get_file_attr_hdl_) & 341 ( file_hdl, append, compression_level, convention, c yclic, description, enabled, format, min_digits&342 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq&343 , split_freq _format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name&344 , time_ units, timeseries, ts_prefix, type, uuid_format, uuid_name )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 ) 345 355 346 356 END SUBROUTINE xios(get_file_attr) 347 357 348 358 SUBROUTINE xios(get_file_attr_hdl) & 349 ( file_hdl, append, compression_level, convention, c yclic, description, enabled, format, min_digits&350 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq&351 , split_freq _format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name&352 , time_ units, timeseries, ts_prefix, type, uuid_format, uuid_name )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 ) 353 363 354 364 IMPLICIT NONE … … 358 368 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 359 369 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention 370 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str 360 371 LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic 361 372 LOGICAL (KIND=C_BOOL) :: cyclic_tmp … … 387 398 388 399 CALL xios(get_file_attr_hdl_) & 389 ( file_hdl, append, compression_level, convention, c yclic, description, enabled, format, min_digits&390 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq&391 , split_freq _format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name&392 , time_ units, timeseries, ts_prefix, type, uuid_format, uuid_name )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 ) 393 404 394 405 END SUBROUTINE xios(get_file_attr_hdl) 395 406 396 407 SUBROUTINE xios(get_file_attr_hdl_) & 397 ( file_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_ & 398 , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_ & 399 , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_ & 400 , time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 408 ( file_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_ & 409 , 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_ ) 401 413 402 414 IMPLICIT NONE … … 406 418 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ 407 419 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_ 420 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str_ 408 421 LOGICAL , OPTIONAL, INTENT(OUT) :: cyclic_ 409 422 LOGICAL (KIND=C_BOOL) :: cyclic__tmp … … 450 463 ENDIF 451 464 465 IF (PRESENT(convention_str_)) THEN 466 CALL cxios_get_file_convention_str & 467 (file_hdl%daddr, convention_str_, len(convention_str_)) 468 ENDIF 469 452 470 IF (PRESENT(cyclic_)) THEN 453 471 CALL cxios_get_file_cyclic & … … 580 598 581 599 SUBROUTINE xios(is_defined_file_attr) & 582 ( file_id, append, compression_level, convention, c yclic, description, enabled, format, min_digits&583 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq&584 , split_freq _format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name&585 , time_ units, timeseries, ts_prefix, type, uuid_format, uuid_name )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 ) 586 604 587 605 IMPLICIT NONE … … 594 612 LOGICAL, OPTIONAL, INTENT(OUT) :: convention 595 613 LOGICAL(KIND=C_BOOL) :: convention_tmp 614 LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str 615 LOGICAL(KIND=C_BOOL) :: convention_str_tmp 596 616 LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic 597 617 LOGICAL(KIND=C_BOOL) :: cyclic_tmp … … 648 668 (file_id,file_hdl) 649 669 CALL xios(is_defined_file_attr_hdl_) & 650 ( file_hdl, append, compression_level, convention, c yclic, description, enabled, format, min_digits&651 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq&652 , split_freq _format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name&653 , time_ units, timeseries, ts_prefix, type, uuid_format, uuid_name )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 ) 654 674 655 675 END SUBROUTINE xios(is_defined_file_attr) 656 676 657 677 SUBROUTINE xios(is_defined_file_attr_hdl) & 658 ( file_hdl, append, compression_level, convention, c yclic, description, enabled, format, min_digits&659 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq&660 , split_freq _format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name&661 , time_ units, timeseries, ts_prefix, type, uuid_format, uuid_name )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 ) 662 682 663 683 IMPLICIT NONE … … 669 689 LOGICAL, OPTIONAL, INTENT(OUT) :: convention 670 690 LOGICAL(KIND=C_BOOL) :: convention_tmp 691 LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str 692 LOGICAL(KIND=C_BOOL) :: convention_str_tmp 671 693 LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic 672 694 LOGICAL(KIND=C_BOOL) :: cyclic_tmp … … 721 743 722 744 CALL xios(is_defined_file_attr_hdl_) & 723 ( file_hdl, append, compression_level, convention, c yclic, description, enabled, format, min_digits&724 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq&725 , split_freq _format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name&726 , time_ units, timeseries, ts_prefix, type, uuid_format, uuid_name )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 ) 727 749 728 750 END SUBROUTINE xios(is_defined_file_attr_hdl) 729 751 730 752 SUBROUTINE xios(is_defined_file_attr_hdl_) & 731 ( file_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_ & 732 , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_ & 733 , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_ & 734 , time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 753 ( file_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_ & 754 , 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_ ) 735 758 736 759 IMPLICIT NONE … … 742 765 LOGICAL, OPTIONAL, INTENT(OUT) :: convention_ 743 766 LOGICAL(KIND=C_BOOL) :: convention__tmp 767 LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str_ 768 LOGICAL(KIND=C_BOOL) :: convention_str__tmp 744 769 LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic_ 745 770 LOGICAL(KIND=C_BOOL) :: cyclic__tmp … … 811 836 ENDIF 812 837 838 IF (PRESENT(convention_str_)) THEN 839 convention_str__tmp = cxios_is_defined_file_convention_str & 840 (file_hdl%daddr) 841 convention_str_ = convention_str__tmp 842 ENDIF 843 813 844 IF (PRESENT(cyclic_)) THEN 814 845 cyclic__tmp = cxios_is_defined_file_cyclic &
Note: See TracChangeset
for help on using the changeset viewer.