Changeset 2338 for XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr
- Timestamp:
- 06/28/22 11:44:19 (2 years ago)
- Location:
- XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr
- Files:
-
- 2 added
- 12 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/field_interface_attr.F90
r1492 r2338 50 50 51 51 52 SUBROUTINE cxios_set_field_build_workflow_graph(field_hdl, build_workflow_graph) BIND(C) 53 USE ISO_C_BINDING 54 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 55 LOGICAL (KIND=C_BOOL) , VALUE :: build_workflow_graph 56 END SUBROUTINE cxios_set_field_build_workflow_graph 57 58 SUBROUTINE cxios_get_field_build_workflow_graph(field_hdl, build_workflow_graph) BIND(C) 59 USE ISO_C_BINDING 60 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 61 LOGICAL (KIND=C_BOOL) :: build_workflow_graph 62 END SUBROUTINE cxios_get_field_build_workflow_graph 63 64 FUNCTION cxios_is_defined_field_build_workflow_graph(field_hdl) BIND(C) 65 USE ISO_C_BINDING 66 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_build_workflow_graph 67 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 68 END FUNCTION cxios_is_defined_field_build_workflow_graph 69 70 52 71 SUBROUTINE cxios_set_field_cell_methods(field_hdl, cell_methods, cell_methods_size) BIND(C) 53 72 USE ISO_C_BINDING -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/fieldgroup_interface_attr.F90
r1492 r2338 50 50 51 51 52 SUBROUTINE cxios_set_fieldgroup_build_workflow_graph(fieldgroup_hdl, build_workflow_graph) BIND(C) 53 USE ISO_C_BINDING 54 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 55 LOGICAL (KIND=C_BOOL) , VALUE :: build_workflow_graph 56 END SUBROUTINE cxios_set_fieldgroup_build_workflow_graph 57 58 SUBROUTINE cxios_get_fieldgroup_build_workflow_graph(fieldgroup_hdl, build_workflow_graph) BIND(C) 59 USE ISO_C_BINDING 60 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 61 LOGICAL (KIND=C_BOOL) :: build_workflow_graph 62 END SUBROUTINE cxios_get_fieldgroup_build_workflow_graph 63 64 FUNCTION cxios_is_defined_fieldgroup_build_workflow_graph(fieldgroup_hdl) BIND(C) 65 USE ISO_C_BINDING 66 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_build_workflow_graph 67 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 68 END FUNCTION cxios_is_defined_fieldgroup_build_workflow_graph 69 70 52 71 SUBROUTINE cxios_set_fieldgroup_cell_methods(fieldgroup_hdl, cell_methods, cell_methods_size) BIND(C) 53 72 USE ISO_C_BINDING -
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 & -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/ifieldgroup_attr.F90
r1492 r2338 12 12 13 13 SUBROUTINE xios(set_fieldgroup_attr) & 14 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&15 , c ompression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &16 , freq_offset, freq_op, grid_path, grid_ref, group_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 )14 ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 15 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 16 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 17 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 18 , ts_enabled, ts_split_freq, 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 … … 64 66 (fieldgroup_id,fieldgroup_hdl) 65 67 CALL xios(set_fieldgroup_attr_hdl_) & 66 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&67 , c ompression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &68 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name&69 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq&70 , unit, valid_max, valid_min )68 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 69 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 70 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 71 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 72 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 71 73 72 74 END SUBROUTINE xios(set_fieldgroup_attr) 73 75 74 76 SUBROUTINE xios(set_fieldgroup_attr_hdl) & 75 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&76 , c ompression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &77 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name&78 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq&79 , unit, valid_max, valid_min )77 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 78 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 79 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 80 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 81 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 80 82 81 83 IMPLICIT NONE … … 83 85 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 84 86 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 87 LOGICAL , OPTIONAL, INTENT(IN) :: build_workflow_graph 88 LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 85 89 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 86 90 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode … … 122 126 123 127 CALL xios(set_fieldgroup_attr_hdl_) & 124 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&125 , c ompression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &126 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name&127 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq&128 , unit, valid_max, valid_min )128 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 129 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 130 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 131 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 132 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 129 133 130 134 END SUBROUTINE xios(set_fieldgroup_attr_hdl) 131 135 132 136 SUBROUTINE xios(set_fieldgroup_attr_hdl_) & 133 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_ &134 , c omment_, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_ &135 , e xpr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_ &137 ( fieldgroup_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ & 138 , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ & 139 , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_ & 136 140 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & 137 141 , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) … … 141 145 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 142 146 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 147 LOGICAL , OPTIONAL, INTENT(IN) :: build_workflow_graph_ 148 LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp 143 149 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_ 144 150 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_ … … 189 195 ENDIF 190 196 197 IF (PRESENT(build_workflow_graph_)) THEN 198 build_workflow_graph__tmp = build_workflow_graph_ 199 CALL cxios_set_fieldgroup_build_workflow_graph & 200 (fieldgroup_hdl%daddr, build_workflow_graph__tmp) 201 ENDIF 202 191 203 IF (PRESENT(cell_methods_)) THEN 192 204 CALL cxios_set_fieldgroup_cell_methods & … … 353 365 354 366 SUBROUTINE xios(get_fieldgroup_attr) & 355 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&356 , c ompression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &357 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name&358 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq&359 , unit, valid_max, valid_min )367 ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 368 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 369 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 370 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 371 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 360 372 361 373 IMPLICIT NONE … … 364 376 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 365 377 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 378 LOGICAL , OPTIONAL, INTENT(OUT) :: build_workflow_graph 379 LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 366 380 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 367 381 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode … … 405 419 (fieldgroup_id,fieldgroup_hdl) 406 420 CALL xios(get_fieldgroup_attr_hdl_) & 407 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&408 , c ompression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &409 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name&410 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq&411 , unit, valid_max, valid_min )421 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 422 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 423 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 424 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 425 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 412 426 413 427 END SUBROUTINE xios(get_fieldgroup_attr) 414 428 415 429 SUBROUTINE xios(get_fieldgroup_attr_hdl) & 416 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&417 , c ompression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &418 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name&419 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq&420 , unit, valid_max, valid_min )430 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 431 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 432 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 433 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 434 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 421 435 422 436 IMPLICIT NONE … … 424 438 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 425 439 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 440 LOGICAL , OPTIONAL, INTENT(OUT) :: build_workflow_graph 441 LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 426 442 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 427 443 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode … … 463 479 464 480 CALL xios(get_fieldgroup_attr_hdl_) & 465 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&466 , c ompression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &467 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name&468 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq&469 , unit, valid_max, valid_min )481 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 482 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 483 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 484 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 485 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 470 486 471 487 END SUBROUTINE xios(get_fieldgroup_attr_hdl) 472 488 473 489 SUBROUTINE xios(get_fieldgroup_attr_hdl_) & 474 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_ &475 , c omment_, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_ &476 , e xpr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_ &490 ( fieldgroup_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ & 491 , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ & 492 , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_ & 477 493 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & 478 494 , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) … … 482 498 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 483 499 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 500 LOGICAL , OPTIONAL, INTENT(OUT) :: build_workflow_graph_ 501 LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp 484 502 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_ 485 503 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_ … … 530 548 ENDIF 531 549 550 IF (PRESENT(build_workflow_graph_)) THEN 551 CALL cxios_get_fieldgroup_build_workflow_graph & 552 (fieldgroup_hdl%daddr, build_workflow_graph__tmp) 553 build_workflow_graph_ = build_workflow_graph__tmp 554 ENDIF 555 532 556 IF (PRESENT(cell_methods_)) THEN 533 557 CALL cxios_get_fieldgroup_cell_methods & … … 694 718 695 719 SUBROUTINE xios(is_defined_fieldgroup_attr) & 696 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&697 , c ompression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &698 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name&699 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq&700 , unit, valid_max, valid_min )720 ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 721 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 722 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 723 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 724 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 701 725 702 726 IMPLICIT NONE … … 707 731 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 708 732 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 733 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph 734 LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp 709 735 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 710 736 LOGICAL(KIND=C_BOOL) :: cell_methods_tmp … … 773 799 (fieldgroup_id,fieldgroup_hdl) 774 800 CALL xios(is_defined_fieldgroup_attr_hdl_) & 775 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&776 , c ompression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &777 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name&778 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq&779 , unit, valid_max, valid_min )801 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 802 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 803 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 804 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 805 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 780 806 781 807 END SUBROUTINE xios(is_defined_fieldgroup_attr) 782 808 783 809 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) & 784 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&785 , c ompression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &786 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name&787 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq&788 , unit, valid_max, valid_min )810 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 811 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 812 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 813 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 814 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 789 815 790 816 IMPLICIT NONE … … 794 820 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 795 821 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 822 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph 823 LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp 796 824 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 797 825 LOGICAL(KIND=C_BOOL) :: cell_methods_tmp … … 858 886 859 887 CALL xios(is_defined_fieldgroup_attr_hdl_) & 860 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment&861 , c ompression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref &862 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name&863 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq&864 , unit, valid_max, valid_min )888 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 889 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 890 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 891 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 892 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 865 893 866 894 END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 867 895 868 896 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) & 869 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_ &870 , c omment_, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_ &871 , e xpr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_ &897 ( fieldgroup_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ & 898 , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ & 899 , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_ & 872 900 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & 873 901 , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) … … 879 907 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 880 908 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 909 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_ 910 LOGICAL(KIND=C_BOOL) :: build_workflow_graph__tmp 881 911 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_ 882 912 LOGICAL(KIND=C_BOOL) :: cell_methods__tmp … … 954 984 ENDIF 955 985 986 IF (PRESENT(build_workflow_graph_)) THEN 987 build_workflow_graph__tmp = cxios_is_defined_fieldgroup_build_workflow_graph & 988 (fieldgroup_hdl%daddr) 989 build_workflow_graph_ = build_workflow_graph__tmp 990 ENDIF 991 956 992 IF (PRESENT(cell_methods_)) THEN 957 993 cell_methods__tmp = cxios_is_defined_fieldgroup_cell_methods & -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/iinterpolate_axis_attr.F90
r966 r2338 12 12 13 13 SUBROUTINE xios(set_interpolate_axis_attr) & 14 ( interpolate_axis_id, coordinate, order, type ) 14 ( interpolate_axis_id, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type & 15 ) 15 16 16 17 IMPLICIT NONE … … 18 19 CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id 19 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate 21 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_dst 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_src 23 LOGICAL , OPTIONAL, INTENT(IN) :: extrapolate 24 LOGICAL (KIND=C_BOOL) :: extrapolate_tmp 20 25 INTEGER , OPTIONAL, INTENT(IN) :: order 21 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 24 29 (interpolate_axis_id,interpolate_axis_hdl) 25 30 CALL xios(set_interpolate_axis_attr_hdl_) & 26 ( interpolate_axis_hdl, coordinate, order, type ) 31 ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type & 32 ) 27 33 28 34 END SUBROUTINE xios(set_interpolate_axis_attr) 29 35 30 36 SUBROUTINE xios(set_interpolate_axis_attr_hdl) & 31 ( interpolate_axis_hdl, coordinate, order, type ) 37 ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type & 38 ) 32 39 33 40 IMPLICIT NONE 34 41 TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl 35 42 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate 43 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_dst 44 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_src 45 LOGICAL , OPTIONAL, INTENT(IN) :: extrapolate 46 LOGICAL (KIND=C_BOOL) :: extrapolate_tmp 36 47 INTEGER , OPTIONAL, INTENT(IN) :: order 37 48 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 38 49 39 50 CALL xios(set_interpolate_axis_attr_hdl_) & 40 ( interpolate_axis_hdl, coordinate, order, type ) 51 ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type & 52 ) 41 53 42 54 END SUBROUTINE xios(set_interpolate_axis_attr_hdl) 43 55 44 56 SUBROUTINE xios(set_interpolate_axis_attr_hdl_) & 45 ( interpolate_axis_hdl, coordinate_, order_, type_ ) 57 ( interpolate_axis_hdl, coordinate_, coordinate_dst_, coordinate_src_, extrapolate_, order_ & 58 , type_ ) 46 59 47 60 IMPLICIT NONE 48 61 TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl 49 62 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_ 63 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_dst_ 64 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_src_ 65 LOGICAL , OPTIONAL, INTENT(IN) :: extrapolate_ 66 LOGICAL (KIND=C_BOOL) :: extrapolate__tmp 50 67 INTEGER , OPTIONAL, INTENT(IN) :: order_ 51 68 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ … … 56 73 ENDIF 57 74 75 IF (PRESENT(coordinate_dst_)) THEN 76 CALL cxios_set_interpolate_axis_coordinate_dst & 77 (interpolate_axis_hdl%daddr, coordinate_dst_, len(coordinate_dst_)) 78 ENDIF 79 80 IF (PRESENT(coordinate_src_)) THEN 81 CALL cxios_set_interpolate_axis_coordinate_src & 82 (interpolate_axis_hdl%daddr, coordinate_src_, len(coordinate_src_)) 83 ENDIF 84 85 IF (PRESENT(extrapolate_)) THEN 86 extrapolate__tmp = extrapolate_ 87 CALL cxios_set_interpolate_axis_extrapolate & 88 (interpolate_axis_hdl%daddr, extrapolate__tmp) 89 ENDIF 90 58 91 IF (PRESENT(order_)) THEN 59 92 CALL cxios_set_interpolate_axis_order & … … 69 102 70 103 SUBROUTINE xios(get_interpolate_axis_attr) & 71 ( interpolate_axis_id, coordinate, order, type ) 104 ( interpolate_axis_id, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type & 105 ) 72 106 73 107 IMPLICIT NONE … … 75 109 CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id 76 110 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate 111 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_dst 112 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_src 113 LOGICAL , OPTIONAL, INTENT(OUT) :: extrapolate 114 LOGICAL (KIND=C_BOOL) :: extrapolate_tmp 77 115 INTEGER , OPTIONAL, INTENT(OUT) :: order 78 116 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 81 119 (interpolate_axis_id,interpolate_axis_hdl) 82 120 CALL xios(get_interpolate_axis_attr_hdl_) & 83 ( interpolate_axis_hdl, coordinate, order, type ) 121 ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type & 122 ) 84 123 85 124 END SUBROUTINE xios(get_interpolate_axis_attr) 86 125 87 126 SUBROUTINE xios(get_interpolate_axis_attr_hdl) & 88 ( interpolate_axis_hdl, coordinate, order, type ) 127 ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type & 128 ) 89 129 90 130 IMPLICIT NONE 91 131 TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl 92 132 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate 133 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_dst 134 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_src 135 LOGICAL , OPTIONAL, INTENT(OUT) :: extrapolate 136 LOGICAL (KIND=C_BOOL) :: extrapolate_tmp 93 137 INTEGER , OPTIONAL, INTENT(OUT) :: order 94 138 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 95 139 96 140 CALL xios(get_interpolate_axis_attr_hdl_) & 97 ( interpolate_axis_hdl, coordinate, order, type ) 141 ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type & 142 ) 98 143 99 144 END SUBROUTINE xios(get_interpolate_axis_attr_hdl) 100 145 101 146 SUBROUTINE xios(get_interpolate_axis_attr_hdl_) & 102 ( interpolate_axis_hdl, coordinate_, order_, type_ ) 147 ( interpolate_axis_hdl, coordinate_, coordinate_dst_, coordinate_src_, extrapolate_, order_ & 148 , type_ ) 103 149 104 150 IMPLICIT NONE 105 151 TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl 106 152 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_ 153 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_dst_ 154 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_src_ 155 LOGICAL , OPTIONAL, INTENT(OUT) :: extrapolate_ 156 LOGICAL (KIND=C_BOOL) :: extrapolate__tmp 107 157 INTEGER , OPTIONAL, INTENT(OUT) :: order_ 108 158 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ … … 113 163 ENDIF 114 164 165 IF (PRESENT(coordinate_dst_)) THEN 166 CALL cxios_get_interpolate_axis_coordinate_dst & 167 (interpolate_axis_hdl%daddr, coordinate_dst_, len(coordinate_dst_)) 168 ENDIF 169 170 IF (PRESENT(coordinate_src_)) THEN 171 CALL cxios_get_interpolate_axis_coordinate_src & 172 (interpolate_axis_hdl%daddr, coordinate_src_, len(coordinate_src_)) 173 ENDIF 174 175 IF (PRESENT(extrapolate_)) THEN 176 CALL cxios_get_interpolate_axis_extrapolate & 177 (interpolate_axis_hdl%daddr, extrapolate__tmp) 178 extrapolate_ = extrapolate__tmp 179 ENDIF 180 115 181 IF (PRESENT(order_)) THEN 116 182 CALL cxios_get_interpolate_axis_order & … … 126 192 127 193 SUBROUTINE xios(is_defined_interpolate_axis_attr) & 128 ( interpolate_axis_id, coordinate, order, type ) 194 ( interpolate_axis_id, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type & 195 ) 129 196 130 197 IMPLICIT NONE … … 133 200 LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate 134 201 LOGICAL(KIND=C_BOOL) :: coordinate_tmp 202 LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_dst 203 LOGICAL(KIND=C_BOOL) :: coordinate_dst_tmp 204 LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_src 205 LOGICAL(KIND=C_BOOL) :: coordinate_src_tmp 206 LOGICAL, OPTIONAL, INTENT(OUT) :: extrapolate 207 LOGICAL(KIND=C_BOOL) :: extrapolate_tmp 135 208 LOGICAL, OPTIONAL, INTENT(OUT) :: order 136 209 LOGICAL(KIND=C_BOOL) :: order_tmp … … 141 214 (interpolate_axis_id,interpolate_axis_hdl) 142 215 CALL xios(is_defined_interpolate_axis_attr_hdl_) & 143 ( interpolate_axis_hdl, coordinate, order, type ) 216 ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type & 217 ) 144 218 145 219 END SUBROUTINE xios(is_defined_interpolate_axis_attr) 146 220 147 221 SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl) & 148 ( interpolate_axis_hdl, coordinate, order, type ) 222 ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type & 223 ) 149 224 150 225 IMPLICIT NONE … … 152 227 LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate 153 228 LOGICAL(KIND=C_BOOL) :: coordinate_tmp 229 LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_dst 230 LOGICAL(KIND=C_BOOL) :: coordinate_dst_tmp 231 LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_src 232 LOGICAL(KIND=C_BOOL) :: coordinate_src_tmp 233 LOGICAL, OPTIONAL, INTENT(OUT) :: extrapolate 234 LOGICAL(KIND=C_BOOL) :: extrapolate_tmp 154 235 LOGICAL, OPTIONAL, INTENT(OUT) :: order 155 236 LOGICAL(KIND=C_BOOL) :: order_tmp … … 158 239 159 240 CALL xios(is_defined_interpolate_axis_attr_hdl_) & 160 ( interpolate_axis_hdl, coordinate, order, type ) 241 ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type & 242 ) 161 243 162 244 END SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl) 163 245 164 246 SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl_) & 165 ( interpolate_axis_hdl, coordinate_, order_, type_ ) 247 ( interpolate_axis_hdl, coordinate_, coordinate_dst_, coordinate_src_, extrapolate_, order_ & 248 , type_ ) 166 249 167 250 IMPLICIT NONE … … 169 252 LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_ 170 253 LOGICAL(KIND=C_BOOL) :: coordinate__tmp 254 LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_dst_ 255 LOGICAL(KIND=C_BOOL) :: coordinate_dst__tmp 256 LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_src_ 257 LOGICAL(KIND=C_BOOL) :: coordinate_src__tmp 258 LOGICAL, OPTIONAL, INTENT(OUT) :: extrapolate_ 259 LOGICAL(KIND=C_BOOL) :: extrapolate__tmp 171 260 LOGICAL, OPTIONAL, INTENT(OUT) :: order_ 172 261 LOGICAL(KIND=C_BOOL) :: order__tmp … … 180 269 ENDIF 181 270 271 IF (PRESENT(coordinate_dst_)) THEN 272 coordinate_dst__tmp = cxios_is_defined_interpolate_axis_coordinate_dst & 273 (interpolate_axis_hdl%daddr) 274 coordinate_dst_ = coordinate_dst__tmp 275 ENDIF 276 277 IF (PRESENT(coordinate_src_)) THEN 278 coordinate_src__tmp = cxios_is_defined_interpolate_axis_coordinate_src & 279 (interpolate_axis_hdl%daddr) 280 coordinate_src_ = coordinate_src__tmp 281 ENDIF 282 283 IF (PRESENT(extrapolate_)) THEN 284 extrapolate__tmp = cxios_is_defined_interpolate_axis_extrapolate & 285 (interpolate_axis_hdl%daddr) 286 extrapolate_ = extrapolate__tmp 287 ENDIF 288 182 289 IF (PRESENT(order_)) THEN 183 290 order__tmp = cxios_is_defined_interpolate_axis_order & -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/interpolate_axis_interface_attr.F90
r891 r2338 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl 30 30 END FUNCTION cxios_is_defined_interpolate_axis_coordinate 31 32 33 SUBROUTINE cxios_set_interpolate_axis_coordinate_dst(interpolate_axis_hdl, coordinate_dst, coordinate_dst_size) BIND(C) 34 USE ISO_C_BINDING 35 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl 36 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: coordinate_dst 37 INTEGER (kind = C_INT) , VALUE :: coordinate_dst_size 38 END SUBROUTINE cxios_set_interpolate_axis_coordinate_dst 39 40 SUBROUTINE cxios_get_interpolate_axis_coordinate_dst(interpolate_axis_hdl, coordinate_dst, coordinate_dst_size) BIND(C) 41 USE ISO_C_BINDING 42 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl 43 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: coordinate_dst 44 INTEGER (kind = C_INT) , VALUE :: coordinate_dst_size 45 END SUBROUTINE cxios_get_interpolate_axis_coordinate_dst 46 47 FUNCTION cxios_is_defined_interpolate_axis_coordinate_dst(interpolate_axis_hdl) BIND(C) 48 USE ISO_C_BINDING 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_axis_coordinate_dst 50 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl 51 END FUNCTION cxios_is_defined_interpolate_axis_coordinate_dst 52 53 54 SUBROUTINE cxios_set_interpolate_axis_coordinate_src(interpolate_axis_hdl, coordinate_src, coordinate_src_size) BIND(C) 55 USE ISO_C_BINDING 56 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl 57 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: coordinate_src 58 INTEGER (kind = C_INT) , VALUE :: coordinate_src_size 59 END SUBROUTINE cxios_set_interpolate_axis_coordinate_src 60 61 SUBROUTINE cxios_get_interpolate_axis_coordinate_src(interpolate_axis_hdl, coordinate_src, coordinate_src_size) BIND(C) 62 USE ISO_C_BINDING 63 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl 64 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: coordinate_src 65 INTEGER (kind = C_INT) , VALUE :: coordinate_src_size 66 END SUBROUTINE cxios_get_interpolate_axis_coordinate_src 67 68 FUNCTION cxios_is_defined_interpolate_axis_coordinate_src(interpolate_axis_hdl) BIND(C) 69 USE ISO_C_BINDING 70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_axis_coordinate_src 71 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl 72 END FUNCTION cxios_is_defined_interpolate_axis_coordinate_src 73 74 75 SUBROUTINE cxios_set_interpolate_axis_extrapolate(interpolate_axis_hdl, extrapolate) BIND(C) 76 USE ISO_C_BINDING 77 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl 78 LOGICAL (KIND=C_BOOL) , VALUE :: extrapolate 79 END SUBROUTINE cxios_set_interpolate_axis_extrapolate 80 81 SUBROUTINE cxios_get_interpolate_axis_extrapolate(interpolate_axis_hdl, extrapolate) BIND(C) 82 USE ISO_C_BINDING 83 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl 84 LOGICAL (KIND=C_BOOL) :: extrapolate 85 END SUBROUTINE cxios_get_interpolate_axis_extrapolate 86 87 FUNCTION cxios_is_defined_interpolate_axis_extrapolate(interpolate_axis_hdl) BIND(C) 88 USE ISO_C_BINDING 89 LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_axis_extrapolate 90 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_axis_hdl 91 END FUNCTION cxios_is_defined_interpolate_axis_extrapolate 31 92 32 93 -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/ireduce_axis_to_scalar_attr.F90
r966 r2338 12 12 13 13 SUBROUTINE xios(set_reduce_axis_to_scalar_attr) & 14 ( reduce_axis_to_scalar_id, operation )14 ( reduce_axis_to_scalar_id, local, operation ) 15 15 16 16 IMPLICIT NONE 17 17 TYPE(txios(reduce_axis_to_scalar)) :: reduce_axis_to_scalar_hdl 18 18 CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id 19 LOGICAL , OPTIONAL, INTENT(IN) :: local 20 LOGICAL (KIND=C_BOOL) :: local_tmp 19 21 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation 20 22 … … 22 24 (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl) 23 25 CALL xios(set_reduce_axis_to_scalar_attr_hdl_) & 24 ( reduce_axis_to_scalar_hdl, operation )26 ( reduce_axis_to_scalar_hdl, local, operation ) 25 27 26 28 END SUBROUTINE xios(set_reduce_axis_to_scalar_attr) 27 29 28 30 SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl) & 29 ( reduce_axis_to_scalar_hdl, operation )31 ( reduce_axis_to_scalar_hdl, local, operation ) 30 32 31 33 IMPLICIT NONE 32 34 TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl 35 LOGICAL , OPTIONAL, INTENT(IN) :: local 36 LOGICAL (KIND=C_BOOL) :: local_tmp 33 37 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation 34 38 35 39 CALL xios(set_reduce_axis_to_scalar_attr_hdl_) & 36 ( reduce_axis_to_scalar_hdl, operation )40 ( reduce_axis_to_scalar_hdl, local, operation ) 37 41 38 42 END SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl) 39 43 40 44 SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl_) & 41 ( reduce_axis_to_scalar_hdl, operation_ )45 ( reduce_axis_to_scalar_hdl, local_, operation_ ) 42 46 43 47 IMPLICIT NONE 44 48 TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl 49 LOGICAL , OPTIONAL, INTENT(IN) :: local_ 50 LOGICAL (KIND=C_BOOL) :: local__tmp 45 51 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_ 52 53 IF (PRESENT(local_)) THEN 54 local__tmp = local_ 55 CALL cxios_set_reduce_axis_to_scalar_local & 56 (reduce_axis_to_scalar_hdl%daddr, local__tmp) 57 ENDIF 46 58 47 59 IF (PRESENT(operation_)) THEN … … 53 65 54 66 SUBROUTINE xios(get_reduce_axis_to_scalar_attr) & 55 ( reduce_axis_to_scalar_id, operation )67 ( reduce_axis_to_scalar_id, local, operation ) 56 68 57 69 IMPLICIT NONE 58 70 TYPE(txios(reduce_axis_to_scalar)) :: reduce_axis_to_scalar_hdl 59 71 CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id 72 LOGICAL , OPTIONAL, INTENT(OUT) :: local 73 LOGICAL (KIND=C_BOOL) :: local_tmp 60 74 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation 61 75 … … 63 77 (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl) 64 78 CALL xios(get_reduce_axis_to_scalar_attr_hdl_) & 65 ( reduce_axis_to_scalar_hdl, operation )79 ( reduce_axis_to_scalar_hdl, local, operation ) 66 80 67 81 END SUBROUTINE xios(get_reduce_axis_to_scalar_attr) 68 82 69 83 SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl) & 70 ( reduce_axis_to_scalar_hdl, operation )84 ( reduce_axis_to_scalar_hdl, local, operation ) 71 85 72 86 IMPLICIT NONE 73 87 TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl 88 LOGICAL , OPTIONAL, INTENT(OUT) :: local 89 LOGICAL (KIND=C_BOOL) :: local_tmp 74 90 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation 75 91 76 92 CALL xios(get_reduce_axis_to_scalar_attr_hdl_) & 77 ( reduce_axis_to_scalar_hdl, operation )93 ( reduce_axis_to_scalar_hdl, local, operation ) 78 94 79 95 END SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl) 80 96 81 97 SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl_) & 82 ( reduce_axis_to_scalar_hdl, operation_ )98 ( reduce_axis_to_scalar_hdl, local_, operation_ ) 83 99 84 100 IMPLICIT NONE 85 101 TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl 102 LOGICAL , OPTIONAL, INTENT(OUT) :: local_ 103 LOGICAL (KIND=C_BOOL) :: local__tmp 86 104 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_ 105 106 IF (PRESENT(local_)) THEN 107 CALL cxios_get_reduce_axis_to_scalar_local & 108 (reduce_axis_to_scalar_hdl%daddr, local__tmp) 109 local_ = local__tmp 110 ENDIF 87 111 88 112 IF (PRESENT(operation_)) THEN … … 94 118 95 119 SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr) & 96 ( reduce_axis_to_scalar_id, operation )120 ( reduce_axis_to_scalar_id, local, operation ) 97 121 98 122 IMPLICIT NONE 99 123 TYPE(txios(reduce_axis_to_scalar)) :: reduce_axis_to_scalar_hdl 100 124 CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id 125 LOGICAL, OPTIONAL, INTENT(OUT) :: local 126 LOGICAL(KIND=C_BOOL) :: local_tmp 101 127 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 102 128 LOGICAL(KIND=C_BOOL) :: operation_tmp … … 105 131 (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl) 106 132 CALL xios(is_defined_reduce_axis_to_scalar_attr_hdl_) & 107 ( reduce_axis_to_scalar_hdl, operation )133 ( reduce_axis_to_scalar_hdl, local, operation ) 108 134 109 135 END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr) 110 136 111 137 SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl) & 112 ( reduce_axis_to_scalar_hdl, operation )138 ( reduce_axis_to_scalar_hdl, local, operation ) 113 139 114 140 IMPLICIT NONE 115 141 TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl 142 LOGICAL, OPTIONAL, INTENT(OUT) :: local 143 LOGICAL(KIND=C_BOOL) :: local_tmp 116 144 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 117 145 LOGICAL(KIND=C_BOOL) :: operation_tmp 118 146 119 147 CALL xios(is_defined_reduce_axis_to_scalar_attr_hdl_) & 120 ( reduce_axis_to_scalar_hdl, operation )148 ( reduce_axis_to_scalar_hdl, local, operation ) 121 149 122 150 END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl) 123 151 124 152 SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl_) & 125 ( reduce_axis_to_scalar_hdl, operation_ )153 ( reduce_axis_to_scalar_hdl, local_, operation_ ) 126 154 127 155 IMPLICIT NONE 128 156 TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl 157 LOGICAL, OPTIONAL, INTENT(OUT) :: local_ 158 LOGICAL(KIND=C_BOOL) :: local__tmp 129 159 LOGICAL, OPTIONAL, INTENT(OUT) :: operation_ 130 160 LOGICAL(KIND=C_BOOL) :: operation__tmp 161 162 IF (PRESENT(local_)) THEN 163 local__tmp = cxios_is_defined_reduce_axis_to_scalar_local & 164 (reduce_axis_to_scalar_hdl%daddr) 165 local_ = local__tmp 166 ENDIF 131 167 132 168 IF (PRESENT(operation_)) THEN -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/iscalar_attr.F90
r1941 r2338 12 12 13 13 SUBROUTINE xios(set_scalar_attr) & 14 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, mask, n ame, positive &14 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, mask, n, name, positive & 15 15 , prec, scalar_ref, standard_name, unit, value ) 16 16 … … 26 26 LOGICAL , OPTIONAL, INTENT(IN) :: mask 27 27 LOGICAL (KIND=C_BOOL) :: mask_tmp 28 INTEGER , OPTIONAL, INTENT(IN) :: n 28 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 29 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive … … 37 38 (scalar_id,scalar_hdl) 38 39 CALL xios(set_scalar_attr_hdl_) & 39 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n ame, positive &40 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n, name, positive & 40 41 , prec, scalar_ref, standard_name, unit, value ) 41 42 … … 43 44 44 45 SUBROUTINE xios(set_scalar_attr_hdl) & 45 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n ame, positive &46 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n, name, positive & 46 47 , prec, scalar_ref, standard_name, unit, value ) 47 48 … … 56 57 LOGICAL , OPTIONAL, INTENT(IN) :: mask 57 58 LOGICAL (KIND=C_BOOL) :: mask_tmp 59 INTEGER , OPTIONAL, INTENT(IN) :: n 58 60 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 59 61 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive … … 65 67 66 68 CALL xios(set_scalar_attr_hdl_) & 67 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n ame, positive &69 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n, name, positive & 68 70 , prec, scalar_ref, standard_name, unit, value ) 69 71 … … 71 73 72 74 SUBROUTINE xios(set_scalar_attr_hdl_) & 73 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, mask_, n ame_ &75 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, mask_, n_, name_ & 74 76 , positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 75 77 … … 84 86 LOGICAL , OPTIONAL, INTENT(IN) :: mask_ 85 87 LOGICAL (KIND=C_BOOL) :: mask__tmp 88 INTEGER , OPTIONAL, INTENT(IN) :: n_ 86 89 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 87 90 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ … … 128 131 ENDIF 129 132 133 IF (PRESENT(n_)) THEN 134 CALL cxios_set_scalar_n & 135 (scalar_hdl%daddr, n_) 136 ENDIF 137 130 138 IF (PRESENT(name_)) THEN 131 139 CALL cxios_set_scalar_name & … … 166 174 167 175 SUBROUTINE xios(get_scalar_attr) & 168 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, mask, n ame, positive &176 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, mask, n, name, positive & 169 177 , prec, scalar_ref, standard_name, unit, value ) 170 178 … … 180 188 LOGICAL , OPTIONAL, INTENT(OUT) :: mask 181 189 LOGICAL (KIND=C_BOOL) :: mask_tmp 190 INTEGER , OPTIONAL, INTENT(OUT) :: n 182 191 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 183 192 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive … … 191 200 (scalar_id,scalar_hdl) 192 201 CALL xios(get_scalar_attr_hdl_) & 193 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n ame, positive &202 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n, name, positive & 194 203 , prec, scalar_ref, standard_name, unit, value ) 195 204 … … 197 206 198 207 SUBROUTINE xios(get_scalar_attr_hdl) & 199 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n ame, positive &208 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n, name, positive & 200 209 , prec, scalar_ref, standard_name, unit, value ) 201 210 … … 210 219 LOGICAL , OPTIONAL, INTENT(OUT) :: mask 211 220 LOGICAL (KIND=C_BOOL) :: mask_tmp 221 INTEGER , OPTIONAL, INTENT(OUT) :: n 212 222 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 213 223 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive … … 219 229 220 230 CALL xios(get_scalar_attr_hdl_) & 221 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n ame, positive &231 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n, name, positive & 222 232 , prec, scalar_ref, standard_name, unit, value ) 223 233 … … 225 235 226 236 SUBROUTINE xios(get_scalar_attr_hdl_) & 227 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, mask_, n ame_ &237 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, mask_, n_, name_ & 228 238 , positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 229 239 … … 238 248 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_ 239 249 LOGICAL (KIND=C_BOOL) :: mask__tmp 250 INTEGER , OPTIONAL, INTENT(OUT) :: n_ 240 251 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 241 252 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ … … 282 293 ENDIF 283 294 295 IF (PRESENT(n_)) THEN 296 CALL cxios_get_scalar_n & 297 (scalar_hdl%daddr, n_) 298 ENDIF 299 284 300 IF (PRESENT(name_)) THEN 285 301 CALL cxios_get_scalar_name & … … 320 336 321 337 SUBROUTINE xios(is_defined_scalar_attr) & 322 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, mask, n ame, positive &338 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, mask, n, name, positive & 323 339 , prec, scalar_ref, standard_name, unit, value ) 324 340 … … 340 356 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 341 357 LOGICAL(KIND=C_BOOL) :: mask_tmp 358 LOGICAL, OPTIONAL, INTENT(OUT) :: n 359 LOGICAL(KIND=C_BOOL) :: n_tmp 342 360 LOGICAL, OPTIONAL, INTENT(OUT) :: name 343 361 LOGICAL(KIND=C_BOOL) :: name_tmp … … 358 376 (scalar_id,scalar_hdl) 359 377 CALL xios(is_defined_scalar_attr_hdl_) & 360 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n ame, positive &378 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n, name, positive & 361 379 , prec, scalar_ref, standard_name, unit, value ) 362 380 … … 364 382 365 383 SUBROUTINE xios(is_defined_scalar_attr_hdl) & 366 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n ame, positive &384 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n, name, positive & 367 385 , prec, scalar_ref, standard_name, unit, value ) 368 386 … … 383 401 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 384 402 LOGICAL(KIND=C_BOOL) :: mask_tmp 403 LOGICAL, OPTIONAL, INTENT(OUT) :: n 404 LOGICAL(KIND=C_BOOL) :: n_tmp 385 405 LOGICAL, OPTIONAL, INTENT(OUT) :: name 386 406 LOGICAL(KIND=C_BOOL) :: name_tmp … … 399 419 400 420 CALL xios(is_defined_scalar_attr_hdl_) & 401 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n ame, positive &421 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, n, name, positive & 402 422 , prec, scalar_ref, standard_name, unit, value ) 403 423 … … 405 425 406 426 SUBROUTINE xios(is_defined_scalar_attr_hdl_) & 407 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, mask_, n ame_ &427 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, mask_, n_, name_ & 408 428 , positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 409 429 … … 424 444 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 425 445 LOGICAL(KIND=C_BOOL) :: mask__tmp 446 LOGICAL, OPTIONAL, INTENT(OUT) :: n_ 447 LOGICAL(KIND=C_BOOL) :: n__tmp 426 448 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 427 449 LOGICAL(KIND=C_BOOL) :: name__tmp … … 481 503 ENDIF 482 504 505 IF (PRESENT(n_)) THEN 506 n__tmp = cxios_is_defined_scalar_n & 507 (scalar_hdl%daddr) 508 n_ = n__tmp 509 ENDIF 510 483 511 IF (PRESENT(name_)) THEN 484 512 name__tmp = cxios_is_defined_scalar_name & -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/iscalargroup_attr.F90
r1941 r2338 13 13 SUBROUTINE xios(set_scalargroup_attr) & 14 14 ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 15 , n ame, positive, prec, scalar_ref, standard_name, unit, value )15 , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 16 16 17 17 IMPLICIT NONE … … 27 27 LOGICAL , OPTIONAL, INTENT(IN) :: mask 28 28 LOGICAL (KIND=C_BOOL) :: mask_tmp 29 INTEGER , OPTIONAL, INTENT(IN) :: n 29 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 30 31 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive … … 39 40 CALL xios(set_scalargroup_attr_hdl_) & 40 41 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 41 , n ame, positive, prec, scalar_ref, standard_name, unit, value )42 , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 42 43 43 44 END SUBROUTINE xios(set_scalargroup_attr) … … 45 46 SUBROUTINE xios(set_scalargroup_attr_hdl) & 46 47 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 47 , n ame, positive, prec, scalar_ref, standard_name, unit, value )48 , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 48 49 49 50 IMPLICIT NONE … … 58 59 LOGICAL , OPTIONAL, INTENT(IN) :: mask 59 60 LOGICAL (KIND=C_BOOL) :: mask_tmp 61 INTEGER , OPTIONAL, INTENT(IN) :: n 60 62 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 61 63 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive … … 68 70 CALL xios(set_scalargroup_attr_hdl_) & 69 71 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 70 , n ame, positive, prec, scalar_ref, standard_name, unit, value )72 , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 71 73 72 74 END SUBROUTINE xios(set_scalargroup_attr_hdl) … … 74 76 SUBROUTINE xios(set_scalargroup_attr_hdl_) & 75 77 ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_ & 76 , mask_, n ame_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )78 , mask_, n_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 77 79 78 80 IMPLICIT NONE … … 87 89 LOGICAL , OPTIONAL, INTENT(IN) :: mask_ 88 90 LOGICAL (KIND=C_BOOL) :: mask__tmp 91 INTEGER , OPTIONAL, INTENT(IN) :: n_ 89 92 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 90 93 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ … … 136 139 ENDIF 137 140 141 IF (PRESENT(n_)) THEN 142 CALL cxios_set_scalargroup_n & 143 (scalargroup_hdl%daddr, n_) 144 ENDIF 145 138 146 IF (PRESENT(name_)) THEN 139 147 CALL cxios_set_scalargroup_name & … … 175 183 SUBROUTINE xios(get_scalargroup_attr) & 176 184 ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 177 , n ame, positive, prec, scalar_ref, standard_name, unit, value )185 , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 178 186 179 187 IMPLICIT NONE … … 189 197 LOGICAL , OPTIONAL, INTENT(OUT) :: mask 190 198 LOGICAL (KIND=C_BOOL) :: mask_tmp 199 INTEGER , OPTIONAL, INTENT(OUT) :: n 191 200 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 192 201 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive … … 201 210 CALL xios(get_scalargroup_attr_hdl_) & 202 211 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 203 , n ame, positive, prec, scalar_ref, standard_name, unit, value )212 , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 204 213 205 214 END SUBROUTINE xios(get_scalargroup_attr) … … 207 216 SUBROUTINE xios(get_scalargroup_attr_hdl) & 208 217 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 209 , n ame, positive, prec, scalar_ref, standard_name, unit, value )218 , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 210 219 211 220 IMPLICIT NONE … … 220 229 LOGICAL , OPTIONAL, INTENT(OUT) :: mask 221 230 LOGICAL (KIND=C_BOOL) :: mask_tmp 231 INTEGER , OPTIONAL, INTENT(OUT) :: n 222 232 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 223 233 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive … … 230 240 CALL xios(get_scalargroup_attr_hdl_) & 231 241 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 232 , n ame, positive, prec, scalar_ref, standard_name, unit, value )242 , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 233 243 234 244 END SUBROUTINE xios(get_scalargroup_attr_hdl) … … 236 246 SUBROUTINE xios(get_scalargroup_attr_hdl_) & 237 247 ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_ & 238 , mask_, n ame_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )248 , mask_, n_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 239 249 240 250 IMPLICIT NONE … … 249 259 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_ 250 260 LOGICAL (KIND=C_BOOL) :: mask__tmp 261 INTEGER , OPTIONAL, INTENT(OUT) :: n_ 251 262 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 252 263 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ … … 298 309 ENDIF 299 310 311 IF (PRESENT(n_)) THEN 312 CALL cxios_get_scalargroup_n & 313 (scalargroup_hdl%daddr, n_) 314 ENDIF 315 300 316 IF (PRESENT(name_)) THEN 301 317 CALL cxios_get_scalargroup_name & … … 337 353 SUBROUTINE xios(is_defined_scalargroup_attr) & 338 354 ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 339 , n ame, positive, prec, scalar_ref, standard_name, unit, value )355 , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 340 356 341 357 IMPLICIT NONE … … 358 374 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 359 375 LOGICAL(KIND=C_BOOL) :: mask_tmp 376 LOGICAL, OPTIONAL, INTENT(OUT) :: n 377 LOGICAL(KIND=C_BOOL) :: n_tmp 360 378 LOGICAL, OPTIONAL, INTENT(OUT) :: name 361 379 LOGICAL(KIND=C_BOOL) :: name_tmp … … 377 395 CALL xios(is_defined_scalargroup_attr_hdl_) & 378 396 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 379 , n ame, positive, prec, scalar_ref, standard_name, unit, value )397 , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 380 398 381 399 END SUBROUTINE xios(is_defined_scalargroup_attr) … … 383 401 SUBROUTINE xios(is_defined_scalargroup_attr_hdl) & 384 402 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 385 , n ame, positive, prec, scalar_ref, standard_name, unit, value )403 , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 386 404 387 405 IMPLICIT NONE … … 403 421 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 404 422 LOGICAL(KIND=C_BOOL) :: mask_tmp 423 LOGICAL, OPTIONAL, INTENT(OUT) :: n 424 LOGICAL(KIND=C_BOOL) :: n_tmp 405 425 LOGICAL, OPTIONAL, INTENT(OUT) :: name 406 426 LOGICAL(KIND=C_BOOL) :: name_tmp … … 420 440 CALL xios(is_defined_scalargroup_attr_hdl_) & 421 441 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 422 , n ame, positive, prec, scalar_ref, standard_name, unit, value )442 , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 423 443 424 444 END SUBROUTINE xios(is_defined_scalargroup_attr_hdl) … … 426 446 SUBROUTINE xios(is_defined_scalargroup_attr_hdl_) & 427 447 ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_ & 428 , mask_, n ame_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )448 , mask_, n_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 429 449 430 450 IMPLICIT NONE … … 446 466 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 447 467 LOGICAL(KIND=C_BOOL) :: mask__tmp 468 LOGICAL, OPTIONAL, INTENT(OUT) :: n_ 469 LOGICAL(KIND=C_BOOL) :: n__tmp 448 470 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 449 471 LOGICAL(KIND=C_BOOL) :: name__tmp … … 509 531 ENDIF 510 532 533 IF (PRESENT(n_)) THEN 534 n__tmp = cxios_is_defined_scalargroup_n & 535 (scalargroup_hdl%daddr) 536 n_ = n__tmp 537 ENDIF 538 511 539 IF (PRESENT(name_)) THEN 512 540 name__tmp = cxios_is_defined_scalargroup_name & -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/reduce_axis_to_scalar_interface_attr.F90
r891 r2338 9 9 INTERFACE 10 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 SUBROUTINE cxios_set_reduce_axis_to_scalar_local(reduce_axis_to_scalar_hdl, local) BIND(C) 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: reduce_axis_to_scalar_hdl 15 LOGICAL (KIND=C_BOOL) , VALUE :: local 16 END SUBROUTINE cxios_set_reduce_axis_to_scalar_local 17 18 SUBROUTINE cxios_get_reduce_axis_to_scalar_local(reduce_axis_to_scalar_hdl, local) BIND(C) 19 USE ISO_C_BINDING 20 INTEGER (kind = C_INTPTR_T), VALUE :: reduce_axis_to_scalar_hdl 21 LOGICAL (KIND=C_BOOL) :: local 22 END SUBROUTINE cxios_get_reduce_axis_to_scalar_local 23 24 FUNCTION cxios_is_defined_reduce_axis_to_scalar_local(reduce_axis_to_scalar_hdl) BIND(C) 25 USE ISO_C_BINDING 26 LOGICAL(kind=C_BOOL) :: cxios_is_defined_reduce_axis_to_scalar_local 27 INTEGER (kind = C_INTPTR_T), VALUE :: reduce_axis_to_scalar_hdl 28 END FUNCTION cxios_is_defined_reduce_axis_to_scalar_local 29 11 30 12 31 SUBROUTINE cxios_set_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_hdl, operation, operation_size) BIND(C) -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/scalar_interface_attr.F90
r1941 r2338 155 155 156 156 157 SUBROUTINE cxios_set_scalar_n(scalar_hdl, n) BIND(C) 158 USE ISO_C_BINDING 159 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 160 INTEGER (KIND=C_INT) , VALUE :: n 161 END SUBROUTINE cxios_set_scalar_n 162 163 SUBROUTINE cxios_get_scalar_n(scalar_hdl, n) BIND(C) 164 USE ISO_C_BINDING 165 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 166 INTEGER (KIND=C_INT) :: n 167 END SUBROUTINE cxios_get_scalar_n 168 169 FUNCTION cxios_is_defined_scalar_n(scalar_hdl) BIND(C) 170 USE ISO_C_BINDING 171 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalar_n 172 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 173 END FUNCTION cxios_is_defined_scalar_n 174 175 157 176 SUBROUTINE cxios_set_scalar_name(scalar_hdl, name, name_size) BIND(C) 158 177 USE ISO_C_BINDING -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/scalargroup_interface_attr.F90
r1941 r2338 176 176 177 177 178 SUBROUTINE cxios_set_scalargroup_n(scalargroup_hdl, n) BIND(C) 179 USE ISO_C_BINDING 180 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 181 INTEGER (KIND=C_INT) , VALUE :: n 182 END SUBROUTINE cxios_set_scalargroup_n 183 184 SUBROUTINE cxios_get_scalargroup_n(scalargroup_hdl, n) BIND(C) 185 USE ISO_C_BINDING 186 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 187 INTEGER (KIND=C_INT) :: n 188 END SUBROUTINE cxios_get_scalargroup_n 189 190 FUNCTION cxios_is_defined_scalargroup_n(scalargroup_hdl) BIND(C) 191 USE ISO_C_BINDING 192 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_n 193 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 194 END FUNCTION cxios_is_defined_scalargroup_n 195 196 178 197 SUBROUTINE cxios_set_scalargroup_name(scalargroup_hdl, name, name_size) BIND(C) 179 198 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.