Changeset 2618 for XIOS2/trunk/src/interface/fortran_attr/ifield_attr.F90
- Timestamp:
- 03/19/24 16:12:21 (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS2/trunk/src/interface/fortran_attr/ifield_attr.F90
r1492 r2618 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 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 16 , freq_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, build_workflow_graph_end, build_workflow_graph_start & 15 , cell_methods, cell_methods_mode, check_if_active, comment, compression_level, conversion_by_netcdf & 16 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 17 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 18 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 19 ) 19 20 20 21 IMPLICIT NONE … … 23 24 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 24 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 26 LOGICAL , OPTIONAL, INTENT(IN) :: build_workflow_graph 27 LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 28 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: build_workflow_graph_end 29 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: build_workflow_graph_start 25 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 26 31 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode … … 29 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 30 35 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 36 LOGICAL , OPTIONAL, INTENT(IN) :: conversion_by_netcdf 37 LOGICAL (KIND=C_BOOL) :: conversion_by_netcdf_tmp 31 38 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 32 39 LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value … … 63 70 (field_id,field_hdl) 64 71 CALL xios(set_field_attr_hdl_) & 65 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 66 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 67 , freq_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 ) 72 ( field_hdl, add_offset, axis_ref, build_workflow_graph, build_workflow_graph_end, build_workflow_graph_start & 73 , cell_methods, cell_methods_mode, check_if_active, comment, compression_level, conversion_by_netcdf & 74 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 75 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 76 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 77 ) 70 78 71 79 END SUBROUTINE xios(set_field_attr) 72 80 73 81 SUBROUTINE xios(set_field_attr_hdl) & 74 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 75 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 76 , freq_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 ) 82 ( field_hdl, add_offset, axis_ref, build_workflow_graph, build_workflow_graph_end, build_workflow_graph_start & 83 , cell_methods, cell_methods_mode, check_if_active, comment, compression_level, conversion_by_netcdf & 84 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 85 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 86 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 87 ) 79 88 80 89 IMPLICIT NONE … … 82 91 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 83 92 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 93 LOGICAL , OPTIONAL, INTENT(IN) :: build_workflow_graph 94 LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 95 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: build_workflow_graph_end 96 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: build_workflow_graph_start 84 97 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 85 98 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode … … 88 101 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 89 102 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 103 LOGICAL , OPTIONAL, INTENT(IN) :: conversion_by_netcdf 104 LOGICAL (KIND=C_BOOL) :: conversion_by_netcdf_tmp 90 105 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 91 106 LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value … … 120 135 121 136 CALL xios(set_field_attr_hdl_) & 122 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 123 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 124 , freq_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 ) 137 ( field_hdl, add_offset, axis_ref, build_workflow_graph, build_workflow_graph_end, build_workflow_graph_start & 138 , cell_methods, cell_methods_mode, check_if_active, comment, compression_level, conversion_by_netcdf & 139 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 140 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 141 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 142 ) 127 143 128 144 END SUBROUTINE xios(set_field_attr_hdl) 129 145 130 146 SUBROUTINE xios(set_field_attr_hdl_) & 131 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_ & 132 , compression_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_ ) 147 ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, build_workflow_graph_end_, build_workflow_graph_start_ & 148 , cell_methods_, cell_methods_mode_, check_if_active_, comment_, compression_level_, conversion_by_netcdf_ & 149 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ & 150 , freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_ & 151 , read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_ & 152 , valid_max_, valid_min_ ) 136 153 137 154 IMPLICIT NONE … … 139 156 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 140 157 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 158 LOGICAL , OPTIONAL, INTENT(IN) :: build_workflow_graph_ 159 LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp 160 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: build_workflow_graph_end_ 161 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: build_workflow_graph_start_ 141 162 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_ 142 163 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_ … … 145 166 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 146 167 INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ 168 LOGICAL , OPTIONAL, INTENT(IN) :: conversion_by_netcdf_ 169 LOGICAL (KIND=C_BOOL) :: conversion_by_netcdf__tmp 147 170 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 148 171 LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value_ … … 186 209 ENDIF 187 210 211 IF (PRESENT(build_workflow_graph_)) THEN 212 build_workflow_graph__tmp = build_workflow_graph_ 213 CALL cxios_set_field_build_workflow_graph & 214 (field_hdl%daddr, build_workflow_graph__tmp) 215 ENDIF 216 217 IF (PRESENT(build_workflow_graph_end_)) THEN 218 CALL cxios_set_field_build_workflow_graph_end & 219 (field_hdl%daddr, build_workflow_graph_end_) 220 ENDIF 221 222 IF (PRESENT(build_workflow_graph_start_)) THEN 223 CALL cxios_set_field_build_workflow_graph_start & 224 (field_hdl%daddr, build_workflow_graph_start_) 225 ENDIF 226 188 227 IF (PRESENT(cell_methods_)) THEN 189 228 CALL cxios_set_field_cell_methods & … … 212 251 ENDIF 213 252 253 IF (PRESENT(conversion_by_netcdf_)) THEN 254 conversion_by_netcdf__tmp = conversion_by_netcdf_ 255 CALL cxios_set_field_conversion_by_netcdf & 256 (field_hdl%daddr, conversion_by_netcdf__tmp) 257 ENDIF 258 214 259 IF (PRESENT(default_value_)) THEN 215 260 CALL cxios_set_field_default_value & … … 345 390 346 391 SUBROUTINE xios(get_field_attr) & 347 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 348 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 349 , freq_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 ) 392 ( field_id, add_offset, axis_ref, build_workflow_graph, build_workflow_graph_end, build_workflow_graph_start & 393 , cell_methods, cell_methods_mode, check_if_active, comment, compression_level, conversion_by_netcdf & 394 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 395 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 396 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 397 ) 352 398 353 399 IMPLICIT NONE … … 356 402 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 357 403 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 404 LOGICAL , OPTIONAL, INTENT(OUT) :: build_workflow_graph 405 LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 406 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: build_workflow_graph_end 407 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: build_workflow_graph_start 358 408 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 359 409 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode … … 362 412 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 363 413 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 414 LOGICAL , OPTIONAL, INTENT(OUT) :: conversion_by_netcdf 415 LOGICAL (KIND=C_BOOL) :: conversion_by_netcdf_tmp 364 416 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 365 417 LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value … … 396 448 (field_id,field_hdl) 397 449 CALL xios(get_field_attr_hdl_) & 398 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 399 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 400 , freq_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 ) 450 ( field_hdl, add_offset, axis_ref, build_workflow_graph, build_workflow_graph_end, build_workflow_graph_start & 451 , cell_methods, cell_methods_mode, check_if_active, comment, compression_level, conversion_by_netcdf & 452 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 453 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 454 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 455 ) 403 456 404 457 END SUBROUTINE xios(get_field_attr) 405 458 406 459 SUBROUTINE xios(get_field_attr_hdl) & 407 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 408 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 409 , freq_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 ) 460 ( field_hdl, add_offset, axis_ref, build_workflow_graph, build_workflow_graph_end, build_workflow_graph_start & 461 , cell_methods, cell_methods_mode, check_if_active, comment, compression_level, conversion_by_netcdf & 462 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 463 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 464 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 465 ) 412 466 413 467 IMPLICIT NONE … … 415 469 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 416 470 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 471 LOGICAL , OPTIONAL, INTENT(OUT) :: build_workflow_graph 472 LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 473 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: build_workflow_graph_end 474 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: build_workflow_graph_start 417 475 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 418 476 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode … … 421 479 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 422 480 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 481 LOGICAL , OPTIONAL, INTENT(OUT) :: conversion_by_netcdf 482 LOGICAL (KIND=C_BOOL) :: conversion_by_netcdf_tmp 423 483 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 424 484 LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value … … 453 513 454 514 CALL xios(get_field_attr_hdl_) & 455 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 456 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 457 , freq_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 ) 515 ( field_hdl, add_offset, axis_ref, build_workflow_graph, build_workflow_graph_end, build_workflow_graph_start & 516 , cell_methods, cell_methods_mode, check_if_active, comment, compression_level, conversion_by_netcdf & 517 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 518 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 519 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 520 ) 460 521 461 522 END SUBROUTINE xios(get_field_attr_hdl) 462 523 463 524 SUBROUTINE xios(get_field_attr_hdl_) & 464 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_ & 465 , compression_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_ ) 525 ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, build_workflow_graph_end_, build_workflow_graph_start_ & 526 , cell_methods_, cell_methods_mode_, check_if_active_, comment_, compression_level_, conversion_by_netcdf_ & 527 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ & 528 , freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_ & 529 , read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_ & 530 , valid_max_, valid_min_ ) 469 531 470 532 IMPLICIT NONE … … 472 534 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 473 535 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 536 LOGICAL , OPTIONAL, INTENT(OUT) :: build_workflow_graph_ 537 LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp 538 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: build_workflow_graph_end_ 539 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: build_workflow_graph_start_ 474 540 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_ 475 541 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_ … … 478 544 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 479 545 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ 546 LOGICAL , OPTIONAL, INTENT(OUT) :: conversion_by_netcdf_ 547 LOGICAL (KIND=C_BOOL) :: conversion_by_netcdf__tmp 480 548 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 481 549 LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value_ … … 519 587 ENDIF 520 588 589 IF (PRESENT(build_workflow_graph_)) THEN 590 CALL cxios_get_field_build_workflow_graph & 591 (field_hdl%daddr, build_workflow_graph__tmp) 592 build_workflow_graph_ = build_workflow_graph__tmp 593 ENDIF 594 595 IF (PRESENT(build_workflow_graph_end_)) THEN 596 CALL cxios_get_field_build_workflow_graph_end & 597 (field_hdl%daddr, build_workflow_graph_end_) 598 ENDIF 599 600 IF (PRESENT(build_workflow_graph_start_)) THEN 601 CALL cxios_get_field_build_workflow_graph_start & 602 (field_hdl%daddr, build_workflow_graph_start_) 603 ENDIF 604 521 605 IF (PRESENT(cell_methods_)) THEN 522 606 CALL cxios_get_field_cell_methods & … … 545 629 ENDIF 546 630 631 IF (PRESENT(conversion_by_netcdf_)) THEN 632 CALL cxios_get_field_conversion_by_netcdf & 633 (field_hdl%daddr, conversion_by_netcdf__tmp) 634 conversion_by_netcdf_ = conversion_by_netcdf__tmp 635 ENDIF 636 547 637 IF (PRESENT(default_value_)) THEN 548 638 CALL cxios_get_field_default_value & … … 678 768 679 769 SUBROUTINE xios(is_defined_field_attr) & 680 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 681 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 682 , freq_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 ) 770 ( field_id, add_offset, axis_ref, build_workflow_graph, build_workflow_graph_end, build_workflow_graph_start & 771 , cell_methods, cell_methods_mode, check_if_active, comment, compression_level, conversion_by_netcdf & 772 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 773 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 774 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 775 ) 685 776 686 777 IMPLICIT NONE … … 691 782 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 692 783 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 784 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph 785 LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp 786 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_end 787 LOGICAL(KIND=C_BOOL) :: build_workflow_graph_end_tmp 788 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_start 789 LOGICAL(KIND=C_BOOL) :: build_workflow_graph_start_tmp 693 790 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 694 791 LOGICAL(KIND=C_BOOL) :: cell_methods_tmp … … 701 798 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 702 799 LOGICAL(KIND=C_BOOL) :: compression_level_tmp 800 LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_netcdf 801 LOGICAL(KIND=C_BOOL) :: conversion_by_netcdf_tmp 703 802 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 704 803 LOGICAL(KIND=C_BOOL) :: default_value_tmp … … 755 854 (field_id,field_hdl) 756 855 CALL xios(is_defined_field_attr_hdl_) & 757 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 758 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 759 , freq_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 ) 856 ( field_hdl, add_offset, axis_ref, build_workflow_graph, build_workflow_graph_end, build_workflow_graph_start & 857 , cell_methods, cell_methods_mode, check_if_active, comment, compression_level, conversion_by_netcdf & 858 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 859 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 860 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 861 ) 762 862 763 863 END SUBROUTINE xios(is_defined_field_attr) 764 864 765 865 SUBROUTINE xios(is_defined_field_attr_hdl) & 766 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 767 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 768 , freq_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 ) 866 ( field_hdl, add_offset, axis_ref, build_workflow_graph, build_workflow_graph_end, build_workflow_graph_start & 867 , cell_methods, cell_methods_mode, check_if_active, comment, compression_level, conversion_by_netcdf & 868 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 869 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 870 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 871 ) 771 872 772 873 IMPLICIT NONE … … 776 877 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 777 878 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 879 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph 880 LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp 881 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_end 882 LOGICAL(KIND=C_BOOL) :: build_workflow_graph_end_tmp 883 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_start 884 LOGICAL(KIND=C_BOOL) :: build_workflow_graph_start_tmp 778 885 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 779 886 LOGICAL(KIND=C_BOOL) :: cell_methods_tmp … … 786 893 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 787 894 LOGICAL(KIND=C_BOOL) :: compression_level_tmp 895 LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_netcdf 896 LOGICAL(KIND=C_BOOL) :: conversion_by_netcdf_tmp 788 897 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 789 898 LOGICAL(KIND=C_BOOL) :: default_value_tmp … … 838 947 839 948 CALL xios(is_defined_field_attr_hdl_) & 840 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 841 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 842 , freq_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 ) 949 ( field_hdl, add_offset, axis_ref, build_workflow_graph, build_workflow_graph_end, build_workflow_graph_start & 950 , cell_methods, cell_methods_mode, check_if_active, comment, compression_level, conversion_by_netcdf & 951 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 952 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 953 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 954 ) 845 955 846 956 END SUBROUTINE xios(is_defined_field_attr_hdl) 847 957 848 958 SUBROUTINE xios(is_defined_field_attr_hdl_) & 849 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_ & 850 , compression_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_ ) 959 ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, build_workflow_graph_end_, build_workflow_graph_start_ & 960 , cell_methods_, cell_methods_mode_, check_if_active_, comment_, compression_level_, conversion_by_netcdf_ & 961 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ & 962 , freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_ & 963 , read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_ & 964 , valid_max_, valid_min_ ) 854 965 855 966 IMPLICIT NONE … … 859 970 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 860 971 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 972 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_ 973 LOGICAL(KIND=C_BOOL) :: build_workflow_graph__tmp 974 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_end_ 975 LOGICAL(KIND=C_BOOL) :: build_workflow_graph_end__tmp 976 LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_start_ 977 LOGICAL(KIND=C_BOOL) :: build_workflow_graph_start__tmp 861 978 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_ 862 979 LOGICAL(KIND=C_BOOL) :: cell_methods__tmp … … 869 986 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 870 987 LOGICAL(KIND=C_BOOL) :: compression_level__tmp 988 LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_netcdf_ 989 LOGICAL(KIND=C_BOOL) :: conversion_by_netcdf__tmp 871 990 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 872 991 LOGICAL(KIND=C_BOOL) :: default_value__tmp … … 932 1051 ENDIF 933 1052 1053 IF (PRESENT(build_workflow_graph_)) THEN 1054 build_workflow_graph__tmp = cxios_is_defined_field_build_workflow_graph & 1055 (field_hdl%daddr) 1056 build_workflow_graph_ = build_workflow_graph__tmp 1057 ENDIF 1058 1059 IF (PRESENT(build_workflow_graph_end_)) THEN 1060 build_workflow_graph_end__tmp = cxios_is_defined_field_build_workflow_graph_end & 1061 (field_hdl%daddr) 1062 build_workflow_graph_end_ = build_workflow_graph_end__tmp 1063 ENDIF 1064 1065 IF (PRESENT(build_workflow_graph_start_)) THEN 1066 build_workflow_graph_start__tmp = cxios_is_defined_field_build_workflow_graph_start & 1067 (field_hdl%daddr) 1068 build_workflow_graph_start_ = build_workflow_graph_start__tmp 1069 ENDIF 1070 934 1071 IF (PRESENT(cell_methods_)) THEN 935 1072 cell_methods__tmp = cxios_is_defined_field_cell_methods & … … 962 1099 ENDIF 963 1100 1101 IF (PRESENT(conversion_by_netcdf_)) THEN 1102 conversion_by_netcdf__tmp = cxios_is_defined_field_conversion_by_netcdf & 1103 (field_hdl%daddr) 1104 conversion_by_netcdf_ = conversion_by_netcdf__tmp 1105 ENDIF 1106 964 1107 IF (PRESENT(default_value_)) THEN 965 1108 default_value__tmp = cxios_is_defined_field_default_value &
Note: See TracChangeset
for help on using the changeset viewer.