- Timestamp:
- 11/04/15 17:05:07 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90
r690 r781 13 13 SUBROUTINE xios(set_domaingroup_attr) & 14 14 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 15 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&16 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&17 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &18 , type)15 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 16 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 17 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 18 ) 19 19 20 20 IMPLICIT NONE … … 33 33 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 34 34 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref36 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 37 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src … … 62 61 CALL xios(set_domaingroup_attr_hdl_) & 63 62 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 64 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&65 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&66 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &67 , type)63 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 64 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 65 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 66 ) 68 67 69 68 END SUBROUTINE xios(set_domaingroup_attr) … … 71 70 SUBROUTINE xios(set_domaingroup_attr_hdl) & 72 71 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 73 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&74 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&75 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &76 , type)72 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 73 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 74 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 75 ) 77 76 78 77 IMPLICIT NONE … … 90 89 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 91 90 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 92 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref93 91 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 94 92 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src … … 118 116 CALL xios(set_domaingroup_attr_hdl_) & 119 117 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 120 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&121 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&122 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &123 , type)118 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 119 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 120 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 121 ) 124 122 125 123 END SUBROUTINE xios(set_domaingroup_attr_hdl) … … 127 125 SUBROUTINE xios(set_domaingroup_attr_hdl_) & 128 126 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 129 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ group_ref_ &130 , domain_ ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &127 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 128 , domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ & 131 129 , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ & 132 130 , nvertex_, standard_name_, type_ ) … … 146 144 INTEGER , OPTIONAL, INTENT(IN) :: data_ni_ 147 145 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ 148 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_149 146 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 150 147 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src_ … … 220 217 ENDIF 221 218 222 IF (PRESENT(domain_group_ref_)) THEN223 CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))224 ENDIF225 226 219 IF (PRESENT(domain_ref_)) THEN 227 220 CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) … … 320 313 SUBROUTINE xios(get_domaingroup_attr) & 321 314 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 322 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&323 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&324 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &325 , type)315 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 316 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 317 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 318 ) 326 319 327 320 IMPLICIT NONE … … 340 333 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 341 334 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 342 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref343 335 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 344 336 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src … … 369 361 CALL xios(get_domaingroup_attr_hdl_) & 370 362 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 371 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&372 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&373 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &374 , type)363 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 364 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 365 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 366 ) 375 367 376 368 END SUBROUTINE xios(get_domaingroup_attr) … … 378 370 SUBROUTINE xios(get_domaingroup_attr_hdl) & 379 371 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 380 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&381 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&382 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &383 , type)372 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 373 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 374 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 375 ) 384 376 385 377 IMPLICIT NONE … … 397 389 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 398 390 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 399 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref400 391 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 401 392 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src … … 425 416 CALL xios(get_domaingroup_attr_hdl_) & 426 417 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 427 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&428 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&429 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &430 , type)418 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 419 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 420 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 421 ) 431 422 432 423 END SUBROUTINE xios(get_domaingroup_attr_hdl) … … 434 425 SUBROUTINE xios(get_domaingroup_attr_hdl_) & 435 426 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 436 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ group_ref_ &437 , domain_ ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &427 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 428 , domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ & 438 429 , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ & 439 430 , nvertex_, standard_name_, type_ ) … … 453 444 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_ 454 445 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ 455 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_456 446 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 457 447 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src_ … … 527 517 ENDIF 528 518 529 IF (PRESENT(domain_group_ref_)) THEN530 CALL cxios_get_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))531 ENDIF532 533 519 IF (PRESENT(domain_ref_)) THEN 534 520 CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) … … 627 613 SUBROUTINE xios(is_defined_domaingroup_attr) & 628 614 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 629 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&630 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&631 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &632 , type)615 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 616 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 617 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 618 ) 633 619 634 620 IMPLICIT NONE … … 659 645 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 660 646 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 661 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref662 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp663 647 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 664 648 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 709 693 CALL xios(is_defined_domaingroup_attr_hdl_) & 710 694 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 711 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&712 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&713 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &714 , type)695 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 696 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 697 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 698 ) 715 699 716 700 END SUBROUTINE xios(is_defined_domaingroup_attr) … … 718 702 SUBROUTINE xios(is_defined_domaingroup_attr_hdl) & 719 703 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 720 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&721 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&722 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &723 , type)704 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 705 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 706 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 707 ) 724 708 725 709 IMPLICIT NONE … … 749 733 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 750 734 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 751 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref752 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp753 735 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 754 736 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 798 780 CALL xios(is_defined_domaingroup_attr_hdl_) & 799 781 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 800 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&801 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&802 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &803 , type)782 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 783 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 784 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 785 ) 804 786 805 787 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) … … 807 789 SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) & 808 790 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 809 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ group_ref_ &810 , domain_ ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &791 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 792 , domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ & 811 793 , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ & 812 794 , nvertex_, standard_name_, type_ ) … … 838 820 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 839 821 LOGICAL(KIND=C_BOOL) :: data_nj__tmp 840 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_841 LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp842 822 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 843 823 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp … … 945 925 ENDIF 946 926 947 IF (PRESENT(domain_group_ref_)) THEN948 domain_group_ref__tmp = cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr)949 domain_group_ref_ = domain_group_ref__tmp950 ENDIF951 952 927 IF (PRESENT(domain_ref_)) THEN 953 928 domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.