- Timestamp:
- 01/25/17 16:25:17 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan/src/interface/fortran_attr/ifieldgroup_attr.F90
r1005 r1037 12 12 13 13 SUBROUTINE xios(set_fieldgroup_attr) & 14 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 15 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 16 , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 17 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 18 ) 14 ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value & 15 , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 16 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 17 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 19 18 20 19 IMPLICIT NONE … … 23 22 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 24 23 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode27 24 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 28 25 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value … … 32 29 LOGICAL , OPTIONAL, INTENT(IN) :: enabled 33 30 LOGICAL (KIND=C_BOOL) :: enabled_tmp 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr35 31 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref 36 32 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset … … 61 57 (fieldgroup_id,fieldgroup_hdl) 62 58 CALL xios(set_fieldgroup_attr_hdl_) & 63 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 64 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 65 , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 66 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 67 ) 59 ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value & 60 , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 61 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 62 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 68 63 69 64 END SUBROUTINE xios(set_fieldgroup_attr) 70 65 71 66 SUBROUTINE xios(set_fieldgroup_attr_hdl) & 72 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 73 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 74 , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 75 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 76 ) 67 ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value & 68 , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 69 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 70 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 77 71 78 72 IMPLICIT NONE … … 80 74 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 81 75 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 82 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods83 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode84 76 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 85 77 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value … … 89 81 LOGICAL , OPTIONAL, INTENT(IN) :: enabled 90 82 LOGICAL (KIND=C_BOOL) :: enabled_tmp 91 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr92 83 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref 93 84 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset … … 116 107 117 108 CALL xios(set_fieldgroup_attr_hdl_) & 118 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 119 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 120 , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 121 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 122 ) 109 ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value & 110 , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 111 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 112 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 123 113 124 114 END SUBROUTINE xios(set_fieldgroup_attr_hdl) 125 115 126 116 SUBROUTINE xios(set_fieldgroup_attr_hdl_) & 127 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_ & 128 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ & 129 , freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_ & 130 , prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ & 131 , unit_, valid_max_, valid_min_ ) 117 ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_ & 118 , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_ & 119 , indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_ & 120 , standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 132 121 133 122 IMPLICIT NONE … … 135 124 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 136 125 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 137 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_138 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_139 126 INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ 140 127 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ … … 144 131 LOGICAL , OPTIONAL, INTENT(IN) :: enabled_ 145 132 LOGICAL (KIND=C_BOOL) :: enabled__tmp 146 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr_147 133 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_ 148 134 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset_ … … 180 166 ENDIF 181 167 182 IF (PRESENT(cell_methods_)) THEN183 CALL cxios_set_fieldgroup_cell_methods &184 (fieldgroup_hdl%daddr, cell_methods_, len(cell_methods_))185 ENDIF186 187 IF (PRESENT(cell_methods_mode_)) THEN188 CALL cxios_set_fieldgroup_cell_methods_mode &189 (fieldgroup_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_))190 ENDIF191 192 168 IF (PRESENT(compression_level_)) THEN 193 169 CALL cxios_set_fieldgroup_compression_level & … … 217 193 ENDIF 218 194 219 IF (PRESENT(expr_)) THEN220 CALL cxios_set_fieldgroup_expr &221 (fieldgroup_hdl%daddr, expr_, len(expr_))222 ENDIF223 224 195 IF (PRESENT(field_ref_)) THEN 225 196 CALL cxios_set_fieldgroup_field_ref & … … 333 304 334 305 SUBROUTINE xios(get_fieldgroup_attr) & 335 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 336 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 337 , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 338 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 339 ) 306 ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value & 307 , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 308 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 309 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 340 310 341 311 IMPLICIT NONE … … 344 314 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 345 315 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 346 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods347 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode348 316 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 349 317 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value … … 353 321 LOGICAL , OPTIONAL, INTENT(OUT) :: enabled 354 322 LOGICAL (KIND=C_BOOL) :: enabled_tmp 355 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr356 323 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref 357 324 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset … … 382 349 (fieldgroup_id,fieldgroup_hdl) 383 350 CALL xios(get_fieldgroup_attr_hdl_) & 384 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 385 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 386 , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 387 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 388 ) 351 ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value & 352 , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 353 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 354 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 389 355 390 356 END SUBROUTINE xios(get_fieldgroup_attr) 391 357 392 358 SUBROUTINE xios(get_fieldgroup_attr_hdl) & 393 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 394 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 395 , grid_ref, group_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 ) 359 ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value & 360 , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 361 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 362 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 398 363 399 364 IMPLICIT NONE … … 401 366 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 402 367 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 403 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods404 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode405 368 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 406 369 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value … … 410 373 LOGICAL , OPTIONAL, INTENT(OUT) :: enabled 411 374 LOGICAL (KIND=C_BOOL) :: enabled_tmp 412 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr413 375 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref 414 376 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset … … 437 399 438 400 CALL xios(get_fieldgroup_attr_hdl_) & 439 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 440 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 441 , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 442 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 443 ) 401 ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value & 402 , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 403 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 404 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 444 405 445 406 END SUBROUTINE xios(get_fieldgroup_attr_hdl) 446 407 447 408 SUBROUTINE xios(get_fieldgroup_attr_hdl_) & 448 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_ & 449 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ & 450 , freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_ & 451 , prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ & 452 , unit_, valid_max_, valid_min_ ) 409 ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_ & 410 , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_ & 411 , indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_ & 412 , standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 453 413 454 414 IMPLICIT NONE … … 456 416 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 457 417 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 458 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_459 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_460 418 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ 461 419 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ … … 465 423 LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_ 466 424 LOGICAL (KIND=C_BOOL) :: enabled__tmp 467 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr_468 425 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_ 469 426 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset_ … … 501 458 ENDIF 502 459 503 IF (PRESENT(cell_methods_)) THEN504 CALL cxios_get_fieldgroup_cell_methods &505 (fieldgroup_hdl%daddr, cell_methods_, len(cell_methods_))506 ENDIF507 508 IF (PRESENT(cell_methods_mode_)) THEN509 CALL cxios_get_fieldgroup_cell_methods_mode &510 (fieldgroup_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_))511 ENDIF512 513 460 IF (PRESENT(compression_level_)) THEN 514 461 CALL cxios_get_fieldgroup_compression_level & … … 538 485 ENDIF 539 486 540 IF (PRESENT(expr_)) THEN541 CALL cxios_get_fieldgroup_expr &542 (fieldgroup_hdl%daddr, expr_, len(expr_))543 ENDIF544 545 487 IF (PRESENT(field_ref_)) THEN 546 488 CALL cxios_get_fieldgroup_field_ref & … … 654 596 655 597 SUBROUTINE xios(is_defined_fieldgroup_attr) & 656 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 657 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 658 , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 659 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 660 ) 598 ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value & 599 , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 600 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 601 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 661 602 662 603 IMPLICIT NONE … … 667 608 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 668 609 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 669 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods670 LOGICAL(KIND=C_BOOL) :: cell_methods_tmp671 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode672 LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp673 610 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 674 611 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 681 618 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 682 619 LOGICAL(KIND=C_BOOL) :: enabled_tmp 683 LOGICAL, OPTIONAL, INTENT(OUT) :: expr684 LOGICAL(KIND=C_BOOL) :: expr_tmp685 620 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref 686 621 LOGICAL(KIND=C_BOOL) :: field_ref_tmp … … 729 664 (fieldgroup_id,fieldgroup_hdl) 730 665 CALL xios(is_defined_fieldgroup_attr_hdl_) & 731 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 732 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 733 , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 734 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 735 ) 666 ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value & 667 , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 668 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 669 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 736 670 737 671 END SUBROUTINE xios(is_defined_fieldgroup_attr) 738 672 739 673 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) & 740 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 741 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 742 , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 743 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 744 ) 674 ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value & 675 , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 676 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 677 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 745 678 746 679 IMPLICIT NONE … … 750 683 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 751 684 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 752 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods753 LOGICAL(KIND=C_BOOL) :: cell_methods_tmp754 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode755 LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp756 685 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 757 686 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 764 693 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 765 694 LOGICAL(KIND=C_BOOL) :: enabled_tmp 766 LOGICAL, OPTIONAL, INTENT(OUT) :: expr767 LOGICAL(KIND=C_BOOL) :: expr_tmp768 695 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref 769 696 LOGICAL(KIND=C_BOOL) :: field_ref_tmp … … 810 737 811 738 CALL xios(is_defined_fieldgroup_attr_hdl_) & 812 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 813 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 814 , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 815 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 816 ) 739 ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value & 740 , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 741 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 742 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 817 743 818 744 END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 819 745 820 746 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) & 821 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_ & 822 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ & 823 , freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_ & 824 , prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ & 825 , unit_, valid_max_, valid_min_ ) 747 ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_ & 748 , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_ & 749 , indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_ & 750 , standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 826 751 827 752 IMPLICIT NONE … … 831 756 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 832 757 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 833 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_834 LOGICAL(KIND=C_BOOL) :: cell_methods__tmp835 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode_836 LOGICAL(KIND=C_BOOL) :: cell_methods_mode__tmp837 758 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 838 759 LOGICAL(KIND=C_BOOL) :: compression_level__tmp … … 845 766 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ 846 767 LOGICAL(KIND=C_BOOL) :: enabled__tmp 847 LOGICAL, OPTIONAL, INTENT(OUT) :: expr_848 LOGICAL(KIND=C_BOOL) :: expr__tmp849 768 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_ 850 769 LOGICAL(KIND=C_BOOL) :: field_ref__tmp … … 902 821 ENDIF 903 822 904 IF (PRESENT(cell_methods_)) THEN905 cell_methods__tmp = cxios_is_defined_fieldgroup_cell_methods &906 (fieldgroup_hdl%daddr)907 cell_methods_ = cell_methods__tmp908 ENDIF909 910 IF (PRESENT(cell_methods_mode_)) THEN911 cell_methods_mode__tmp = cxios_is_defined_fieldgroup_cell_methods_mode &912 (fieldgroup_hdl%daddr)913 cell_methods_mode_ = cell_methods_mode__tmp914 ENDIF915 916 823 IF (PRESENT(compression_level_)) THEN 917 824 compression_level__tmp = cxios_is_defined_fieldgroup_compression_level & … … 944 851 ENDIF 945 852 946 IF (PRESENT(expr_)) THEN947 expr__tmp = cxios_is_defined_fieldgroup_expr &948 (fieldgroup_hdl%daddr)949 expr_ = expr__tmp950 ENDIF951 952 853 IF (PRESENT(field_ref_)) THEN 953 854 field_ref__tmp = cxios_is_defined_fieldgroup_field_ref &
Note: See TracChangeset
for help on using the changeset viewer.