- Timestamp:
- 11/16/15 16:21:45 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90
r781 r789 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_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 ) 15 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 16 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 17 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 19 18 20 19 IMPLICIT NONE … … 34 33 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 35 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src37 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 38 36 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:) … … 61 59 CALL xios(set_domaingroup_attr_hdl_) & 62 60 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 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 ) 61 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 62 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 63 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 67 64 68 65 END SUBROUTINE xios(set_domaingroup_attr) … … 70 67 SUBROUTINE xios(set_domaingroup_attr_hdl) & 71 68 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 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 ) 69 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 70 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 71 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 76 72 77 73 IMPLICIT NONE … … 90 86 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 91 87 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 92 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src93 88 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 94 89 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:) … … 116 111 CALL xios(set_domaingroup_attr_hdl_) & 117 112 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 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 ) 113 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 114 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 115 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 122 116 123 117 END SUBROUTINE xios(set_domaingroup_attr_hdl) … … 126 120 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 127 121 , 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_ &129 , lon g_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ &130 , nvertex_, standard_name_,type_ )122 , group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 123 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ & 124 , type_ ) 131 125 132 126 IMPLICIT NONE … … 145 139 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ 146 140 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 147 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src_148 141 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 149 142 INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:) … … 221 214 ENDIF 222 215 223 IF (PRESENT(domain_src_)) THEN224 CALL cxios_set_domaingroup_domain_src(domaingroup_hdl%daddr, domain_src_, len(domain_src_))225 ENDIF226 227 216 IF (PRESENT(group_ref_)) THEN 228 217 CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_)) … … 313 302 SUBROUTINE xios(get_domaingroup_attr) & 314 303 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 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 ) 304 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 305 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 306 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 319 307 320 308 IMPLICIT NONE … … 334 322 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 335 323 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 336 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src337 324 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 338 325 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:) … … 361 348 CALL xios(get_domaingroup_attr_hdl_) & 362 349 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 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 ) 350 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 351 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 352 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 367 353 368 354 END SUBROUTINE xios(get_domaingroup_attr) … … 370 356 SUBROUTINE xios(get_domaingroup_attr_hdl) & 371 357 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 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 ) 358 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 359 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 360 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 376 361 377 362 IMPLICIT NONE … … 390 375 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 391 376 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 392 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src393 377 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 394 378 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:) … … 416 400 CALL xios(get_domaingroup_attr_hdl_) & 417 401 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 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 ) 402 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 403 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 404 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 422 405 423 406 END SUBROUTINE xios(get_domaingroup_attr_hdl) … … 426 409 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 427 410 , 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_ &429 , lon g_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ &430 , nvertex_, standard_name_,type_ )411 , group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 412 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ & 413 , type_ ) 431 414 432 415 IMPLICIT NONE … … 445 428 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ 446 429 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 447 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src_448 430 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 449 431 INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:) … … 521 503 ENDIF 522 504 523 IF (PRESENT(domain_src_)) THEN524 CALL cxios_get_domaingroup_domain_src(domaingroup_hdl%daddr, domain_src_, len(domain_src_))525 ENDIF526 527 505 IF (PRESENT(group_ref_)) THEN 528 506 CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_)) … … 613 591 SUBROUTINE xios(is_defined_domaingroup_attr) & 614 592 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 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 ) 593 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 594 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 595 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 619 596 620 597 IMPLICIT NONE … … 647 624 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 648 625 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 649 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src650 LOGICAL(KIND=C_BOOL) :: domain_src_tmp651 626 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 652 627 LOGICAL(KIND=C_BOOL) :: group_ref_tmp … … 693 668 CALL xios(is_defined_domaingroup_attr_hdl_) & 694 669 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 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 ) 670 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 671 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 672 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 699 673 700 674 END SUBROUTINE xios(is_defined_domaingroup_attr) … … 702 676 SUBROUTINE xios(is_defined_domaingroup_attr_hdl) & 703 677 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 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 ) 678 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 679 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 680 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 708 681 709 682 IMPLICIT NONE … … 735 708 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 736 709 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 737 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src738 LOGICAL(KIND=C_BOOL) :: domain_src_tmp739 710 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 740 711 LOGICAL(KIND=C_BOOL) :: group_ref_tmp … … 780 751 CALL xios(is_defined_domaingroup_attr_hdl_) & 781 752 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 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 ) 753 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 754 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 755 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 786 756 787 757 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) … … 790 760 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 791 761 , 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_ &793 , lon g_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ &794 , nvertex_, standard_name_,type_ )762 , group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 763 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ & 764 , type_ ) 795 765 796 766 IMPLICIT NONE … … 822 792 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 823 793 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 824 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src_825 LOGICAL(KIND=C_BOOL) :: domain_src__tmp826 794 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 827 795 LOGICAL(KIND=C_BOOL) :: group_ref__tmp … … 930 898 ENDIF 931 899 932 IF (PRESENT(domain_src_)) THEN933 domain_src__tmp = cxios_is_defined_domaingroup_domain_src(domaingroup_hdl%daddr)934 domain_src_ = domain_src__tmp935 ENDIF936 937 900 IF (PRESENT(group_ref_)) THEN 938 901 group_ref__tmp = cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.
