- Timestamp:
- 06/28/22 11:44:19 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/ifield_attr.F90
r1492 r2338 12 12 13 13 SUBROUTINE xios(set_field_attr) & 14 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&15 , com pression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref&16 , f req_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation&17 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit&18 , valid_max, valid_min )14 ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 15 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 16 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 17 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 18 , unit, valid_max, valid_min ) 19 19 20 20 IMPLICIT NONE … … 23 23 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 24 24 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 25 LOGICAL , OPTIONAL, INTENT(IN) :: build_workflow_graph 26 LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 25 27 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 26 28 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode … … 63 65 (field_id,field_hdl) 64 66 CALL xios(set_field_attr_hdl_) & 65 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&66 , com pression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref&67 , f req_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation&68 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit&69 , valid_max, valid_min )67 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 68 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 69 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 70 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 71 , unit, valid_max, valid_min ) 70 72 71 73 END SUBROUTINE xios(set_field_attr) 72 74 73 75 SUBROUTINE xios(set_field_attr_hdl) & 74 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&75 , com pression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref&76 , f req_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation&77 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit&78 , valid_max, valid_min )76 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 77 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 78 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 79 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 80 , unit, valid_max, valid_min ) 79 81 80 82 IMPLICIT NONE … … 82 84 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 83 85 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 86 LOGICAL , OPTIONAL, INTENT(IN) :: build_workflow_graph 87 LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 84 88 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 85 89 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode … … 120 124 121 125 CALL xios(set_field_attr_hdl_) & 122 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&123 , com pression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref&124 , f req_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation&125 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit&126 , valid_max, valid_min )126 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 127 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 128 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 129 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 130 , unit, valid_max, valid_min ) 127 131 128 132 END SUBROUTINE xios(set_field_attr_hdl) 129 133 130 134 SUBROUTINE xios(set_field_attr_hdl_) & 131 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_ &132 , c ompression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ &133 , freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_ &134 , operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ &135 , unit_, valid_max_, valid_min_ )135 ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ & 136 , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ & 137 , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_ & 138 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & 139 , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 136 140 137 141 IMPLICIT NONE … … 139 143 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 140 144 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 145 LOGICAL , OPTIONAL, INTENT(IN) :: build_workflow_graph_ 146 LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp 141 147 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_ 142 148 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_ … … 186 192 ENDIF 187 193 194 IF (PRESENT(build_workflow_graph_)) THEN 195 build_workflow_graph__tmp = build_workflow_graph_ 196 CALL cxios_set_field_build_workflow_graph & 197 (field_hdl%daddr, build_workflow_graph__tmp) 198 ENDIF 199 188 200 IF (PRESENT(cell_methods_)) THEN 189 201 CALL cxios_set_field_cell_methods & … … 345 357 346 358 SUBROUTINE xios(get_field_attr) & 347 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&348 , com pression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref&349 , f req_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation&350 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit&351 , valid_max, valid_min )359 ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 360 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 361 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 362 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 363 , unit, valid_max, valid_min ) 352 364 353 365 IMPLICIT NONE … … 356 368 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 357 369 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 370 LOGICAL , OPTIONAL, INTENT(OUT) :: build_workflow_graph 371 LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 358 372 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 359 373 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode … … 396 410 (field_id,field_hdl) 397 411 CALL xios(get_field_attr_hdl_) & 398 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&399 , com pression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref&400 , f req_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation&401 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit&402 , valid_max, valid_min )412 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 413 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 414 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 415 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 416 , unit, valid_max, valid_min ) 403 417 404 418 END SUBROUTINE xios(get_field_attr) 405 419 406 420 SUBROUTINE xios(get_field_attr_hdl) & 407 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&408 , com pression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref&409 , f req_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation&410 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit&411 , valid_max, valid_min )421 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 422 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 423 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 424 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 425 , unit, valid_max, valid_min ) 412 426 413 427 IMPLICIT NONE … … 415 429 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 416 430 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 431 LOGICAL , OPTIONAL, INTENT(OUT) :: build_workflow_graph 432 LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 417 433 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 418 434 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode … … 453 469 454 470 CALL xios(get_field_attr_hdl_) & 455 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&456 , com pression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref&457 , f req_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation&458 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit&459 , valid_max, valid_min )471 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 472 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 473 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 474 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 475 , unit, valid_max, valid_min ) 460 476 461 477 END SUBROUTINE xios(get_field_attr_hdl) 462 478 463 479 SUBROUTINE xios(get_field_attr_hdl_) & 464 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_ &465 , c ompression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ &466 , freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_ &467 , operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ &468 , unit_, valid_max_, valid_min_ )480 ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ & 481 , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ & 482 , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_ & 483 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & 484 , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 469 485 470 486 IMPLICIT NONE … … 472 488 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 473 489 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 490 LOGICAL , OPTIONAL, INTENT(OUT) :: build_workflow_graph_ 491 LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp 474 492 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_ 475 493 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_ … … 519 537 ENDIF 520 538 539 IF (PRESENT(build_workflow_graph_)) THEN 540 CALL cxios_get_field_build_workflow_graph & 541 (field_hdl%daddr, build_workflow_graph__tmp) 542 build_workflow_graph_ = build_workflow_graph__tmp 543 ENDIF 544 521 545 IF (PRESENT(cell_methods_)) THEN 522 546 CALL cxios_get_field_cell_methods & … … 678 702 679 703 SUBROUTINE xios(is_defined_field_attr) & 680 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&681 , com pression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref&682 , f req_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation&683 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit&684 , valid_max, valid_min )704 ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 705 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 706 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 707 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 708 , unit, valid_max, valid_min ) 685 709 686 710 IMPLICIT NONE … … 691 715 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 692 716 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 717 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph 718 LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp 693 719 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 694 720 LOGICAL(KIND=C_BOOL) :: cell_methods_tmp … … 755 781 (field_id,field_hdl) 756 782 CALL xios(is_defined_field_attr_hdl_) & 757 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&758 , com pression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref&759 , f req_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation&760 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit&761 , valid_max, valid_min )783 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 784 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 785 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 786 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 787 , unit, valid_max, valid_min ) 762 788 763 789 END SUBROUTINE xios(is_defined_field_attr) 764 790 765 791 SUBROUTINE xios(is_defined_field_attr_hdl) & 766 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&767 , com pression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref&768 , f req_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation&769 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit&770 , valid_max, valid_min )792 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 793 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 794 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 795 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 796 , unit, valid_max, valid_min ) 771 797 772 798 IMPLICIT NONE … … 776 802 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 777 803 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 804 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph 805 LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp 778 806 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 779 807 LOGICAL(KIND=C_BOOL) :: cell_methods_tmp … … 838 866 839 867 CALL xios(is_defined_field_attr_hdl_) & 840 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&841 , com pression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref&842 , f req_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation&843 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit&844 , valid_max, valid_min )868 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 869 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 870 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 871 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 872 , unit, valid_max, valid_min ) 845 873 846 874 END SUBROUTINE xios(is_defined_field_attr_hdl) 847 875 848 876 SUBROUTINE xios(is_defined_field_attr_hdl_) & 849 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_ &850 , c ompression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ &851 , freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_ &852 , operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ &853 , unit_, valid_max_, valid_min_ )877 ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ & 878 , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ & 879 , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_ & 880 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & 881 , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 854 882 855 883 IMPLICIT NONE … … 859 887 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 860 888 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 889 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_ 890 LOGICAL(KIND=C_BOOL) :: build_workflow_graph__tmp 861 891 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_ 862 892 LOGICAL(KIND=C_BOOL) :: cell_methods__tmp … … 932 962 ENDIF 933 963 964 IF (PRESENT(build_workflow_graph_)) THEN 965 build_workflow_graph__tmp = cxios_is_defined_field_build_workflow_graph & 966 (field_hdl%daddr) 967 build_workflow_graph_ = build_workflow_graph__tmp 968 ENDIF 969 934 970 IF (PRESENT(cell_methods_)) THEN 935 971 cell_methods__tmp = cxios_is_defined_field_cell_methods &
Note: See TracChangeset
for help on using the changeset viewer.