Changeset 467 for XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
- Timestamp:
- 01/29/14 11:49:29 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
r449 r467 13 13 SUBROUTINE xios(set_domain_attr) & 14 14 ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 15 , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 16 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc & 17 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 15 , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend & 16 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 17 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 18 , zoom_nj_loc ) 18 19 19 20 IMPLICIT NONE … … 31 32 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 32 33 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 34 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:,:) 33 35 INTEGER , OPTIONAL, INTENT(IN) :: ibegin 34 36 INTEGER , OPTIONAL, INTENT(IN) :: iend 37 INTEGER , OPTIONAL, INTENT(IN) :: j_index(:,:) 35 38 INTEGER , OPTIONAL, INTENT(IN) :: jbegin 36 39 INTEGER , OPTIONAL, INTENT(IN) :: jend … … 60 63 CALL xios(set_domain_attr_hdl_) & 61 64 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 62 , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 63 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc & 64 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 65 , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend & 66 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 67 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 68 , zoom_nj_loc ) 65 69 66 70 END SUBROUTINE xios(set_domain_attr) … … 68 72 SUBROUTINE xios(set_domain_attr_hdl) & 69 73 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 70 , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 71 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc & 72 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 74 , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend & 75 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 76 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 77 , zoom_nj_loc ) 73 78 74 79 IMPLICIT NONE … … 85 90 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 86 91 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 92 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:,:) 87 93 INTEGER , OPTIONAL, INTENT(IN) :: ibegin 88 94 INTEGER , OPTIONAL, INTENT(IN) :: iend 95 INTEGER , OPTIONAL, INTENT(IN) :: j_index(:,:) 89 96 INTEGER , OPTIONAL, INTENT(IN) :: jbegin 90 97 INTEGER , OPTIONAL, INTENT(IN) :: jend … … 113 120 CALL xios(set_domain_attr_hdl_) & 114 121 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 115 , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 116 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc & 117 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 122 , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend & 123 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 124 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 125 , zoom_nj_loc ) 118 126 119 127 END SUBROUTINE xios(set_domain_attr_hdl) … … 121 129 SUBROUTINE xios(set_domain_attr_hdl_) & 122 130 ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & 123 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i begin_, iend_, jbegin_ &124 , j end_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_ &125 , standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_ &126 , zoom_ni_ loc_, zoom_nj_, zoom_nj_loc_ )131 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_ & 132 , j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_ & 133 , nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_ & 134 , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 127 135 128 136 IMPLICIT NONE … … 139 147 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ 140 148 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_ 149 INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:,:) 141 150 INTEGER , OPTIONAL, INTENT(IN) :: ibegin_ 142 151 INTEGER , OPTIONAL, INTENT(IN) :: iend_ 152 INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:,:) 143 153 INTEGER , OPTIONAL, INTENT(IN) :: jbegin_ 144 154 INTEGER , OPTIONAL, INTENT(IN) :: jend_ … … 209 219 ENDIF 210 220 221 IF (PRESENT(i_index_)) THEN 222 CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2)) 223 ENDIF 224 211 225 IF (PRESENT(ibegin_)) THEN 212 226 CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_) … … 215 229 IF (PRESENT(iend_)) THEN 216 230 CALL cxios_set_domain_iend(domain_hdl%daddr, iend_) 231 ENDIF 232 233 IF (PRESENT(j_index_)) THEN 234 CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2)) 217 235 ENDIF 218 236 … … 313 331 SUBROUTINE xios(get_domain_attr) & 314 332 ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 315 , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 316 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc & 317 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 333 , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend & 334 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 335 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 336 , zoom_nj_loc ) 318 337 319 338 IMPLICIT NONE … … 331 350 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 332 351 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 352 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:,:) 333 353 INTEGER , OPTIONAL, INTENT(OUT) :: ibegin 334 354 INTEGER , OPTIONAL, INTENT(OUT) :: iend 355 INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:,:) 335 356 INTEGER , OPTIONAL, INTENT(OUT) :: jbegin 336 357 INTEGER , OPTIONAL, INTENT(OUT) :: jend … … 360 381 CALL xios(get_domain_attr_hdl_) & 361 382 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 362 , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 363 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc & 364 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 383 , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend & 384 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 385 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 386 , zoom_nj_loc ) 365 387 366 388 END SUBROUTINE xios(get_domain_attr) … … 368 390 SUBROUTINE xios(get_domain_attr_hdl) & 369 391 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 370 , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 371 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc & 372 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 392 , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend & 393 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 394 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 395 , zoom_nj_loc ) 373 396 374 397 IMPLICIT NONE … … 385 408 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 386 409 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 410 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:,:) 387 411 INTEGER , OPTIONAL, INTENT(OUT) :: ibegin 388 412 INTEGER , OPTIONAL, INTENT(OUT) :: iend 413 INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:,:) 389 414 INTEGER , OPTIONAL, INTENT(OUT) :: jbegin 390 415 INTEGER , OPTIONAL, INTENT(OUT) :: jend … … 413 438 CALL xios(get_domain_attr_hdl_) & 414 439 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 415 , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 416 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc & 417 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 440 , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend & 441 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 442 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 443 , zoom_nj_loc ) 418 444 419 445 END SUBROUTINE xios(get_domain_attr_hdl) … … 421 447 SUBROUTINE xios(get_domain_attr_hdl_) & 422 448 ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & 423 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i begin_, iend_, jbegin_ &424 , j end_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_ &425 , standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_ &426 , zoom_ni_ loc_, zoom_nj_, zoom_nj_loc_ )449 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_ & 450 , j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_ & 451 , nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_ & 452 , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 427 453 428 454 IMPLICIT NONE … … 439 465 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ 440 466 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_ 467 INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:,:) 441 468 INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_ 442 469 INTEGER , OPTIONAL, INTENT(OUT) :: iend_ 470 INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:,:) 443 471 INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_ 444 472 INTEGER , OPTIONAL, INTENT(OUT) :: jend_ … … 509 537 ENDIF 510 538 539 IF (PRESENT(i_index_)) THEN 540 CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2)) 541 ENDIF 542 511 543 IF (PRESENT(ibegin_)) THEN 512 544 CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_) … … 515 547 IF (PRESENT(iend_)) THEN 516 548 CALL cxios_get_domain_iend(domain_hdl%daddr, iend_) 549 ENDIF 550 551 IF (PRESENT(j_index_)) THEN 552 CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2)) 517 553 ENDIF 518 554 … … 613 649 SUBROUTINE xios(is_defined_domain_attr) & 614 650 ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 615 , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 616 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc & 617 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 651 , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend & 652 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 653 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 654 , zoom_nj_loc ) 618 655 619 656 IMPLICIT NONE … … 642 679 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 643 680 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 681 LOGICAL, OPTIONAL, INTENT(OUT) :: i_index 682 LOGICAL(KIND=C_BOOL) :: i_index_tmp 644 683 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 645 684 LOGICAL(KIND=C_BOOL) :: ibegin_tmp 646 685 LOGICAL, OPTIONAL, INTENT(OUT) :: iend 647 686 LOGICAL(KIND=C_BOOL) :: iend_tmp 687 LOGICAL, OPTIONAL, INTENT(OUT) :: j_index 688 LOGICAL(KIND=C_BOOL) :: j_index_tmp 648 689 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 649 690 LOGICAL(KIND=C_BOOL) :: jbegin_tmp … … 694 735 CALL xios(is_defined_domain_attr_hdl_) & 695 736 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 696 , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 697 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc & 698 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 737 , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend & 738 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 739 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 740 , zoom_nj_loc ) 699 741 700 742 END SUBROUTINE xios(is_defined_domain_attr) … … 702 744 SUBROUTINE xios(is_defined_domain_attr_hdl) & 703 745 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 704 , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 705 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc & 706 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 746 , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend & 747 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 748 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 749 , zoom_nj_loc ) 707 750 708 751 IMPLICIT NONE … … 730 773 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 731 774 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 775 LOGICAL, OPTIONAL, INTENT(OUT) :: i_index 776 LOGICAL(KIND=C_BOOL) :: i_index_tmp 732 777 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 733 778 LOGICAL(KIND=C_BOOL) :: ibegin_tmp 734 779 LOGICAL, OPTIONAL, INTENT(OUT) :: iend 735 780 LOGICAL(KIND=C_BOOL) :: iend_tmp 781 LOGICAL, OPTIONAL, INTENT(OUT) :: j_index 782 LOGICAL(KIND=C_BOOL) :: j_index_tmp 736 783 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 737 784 LOGICAL(KIND=C_BOOL) :: jbegin_tmp … … 781 828 CALL xios(is_defined_domain_attr_hdl_) & 782 829 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 783 , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 784 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc & 785 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 830 , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend & 831 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 832 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 833 , zoom_nj_loc ) 786 834 787 835 END SUBROUTINE xios(is_defined_domain_attr_hdl) … … 789 837 SUBROUTINE xios(is_defined_domain_attr_hdl_) & 790 838 ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & 791 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i begin_, iend_, jbegin_ &792 , j end_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_ &793 , standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_ &794 , zoom_ni_ loc_, zoom_nj_, zoom_nj_loc_ )839 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_ & 840 , j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_ & 841 , nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_ & 842 , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 795 843 796 844 IMPLICIT NONE … … 818 866 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_ 819 867 LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp 868 LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_ 869 LOGICAL(KIND=C_BOOL) :: i_index__tmp 820 870 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_ 821 871 LOGICAL(KIND=C_BOOL) :: ibegin__tmp 822 872 LOGICAL, OPTIONAL, INTENT(OUT) :: iend_ 823 873 LOGICAL(KIND=C_BOOL) :: iend__tmp 874 LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_ 875 LOGICAL(KIND=C_BOOL) :: j_index__tmp 824 876 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 825 877 LOGICAL(KIND=C_BOOL) :: jbegin__tmp … … 922 974 ENDIF 923 975 976 IF (PRESENT(i_index_)) THEN 977 i_index__tmp=cxios_is_defined_domain_i_index(domain_hdl%daddr) 978 i_index_=i_index__tmp 979 ENDIF 980 924 981 IF (PRESENT(ibegin_)) THEN 925 982 ibegin__tmp=cxios_is_defined_domain_ibegin(domain_hdl%daddr) … … 932 989 ENDIF 933 990 991 IF (PRESENT(j_index_)) THEN 992 j_index__tmp=cxios_is_defined_domain_j_index(domain_hdl%daddr) 993 j_index_=j_index__tmp 994 ENDIF 995 934 996 IF (PRESENT(jbegin_)) THEN 935 997 jbegin__tmp=cxios_is_defined_domain_jbegin(domain_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.