Changeset 546 for XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
- Timestamp:
- 12/17/14 15:35:12 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
r501 r546 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, i_index, ibegin, iend, j_index, jbegin, jend&16 , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &15 , data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin, iend, j_index & 16 , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 17 17 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 18 18 , zoom_nj_loc ) … … 32 32 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 33 33 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 34 35 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:,:) 35 36 INTEGER , OPTIONAL, INTENT(IN) :: ibegin … … 63 64 CALL xios(set_domain_attr_hdl_) & 64 65 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 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 &66 , data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin, iend, j_index & 67 , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 67 68 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 68 69 , zoom_nj_loc ) … … 72 73 SUBROUTINE xios(set_domain_attr_hdl) & 73 74 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 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 &75 , data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin, iend, j_index & 76 , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 76 77 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 77 78 , zoom_nj_loc ) … … 90 91 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 91 92 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 93 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 92 94 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:,:) 93 95 INTEGER , OPTIONAL, INTENT(IN) :: ibegin … … 120 122 CALL xios(set_domain_attr_hdl_) & 121 123 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 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 , data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin, iend, j_index & 125 , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 124 126 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 125 127 , zoom_nj_loc ) … … 129 131 SUBROUTINE xios(set_domain_attr_hdl_) & 130 132 ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & 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 , n j_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_ )133 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_ & 134 , ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_ & 135 , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_ & 136 , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 135 137 136 138 IMPLICIT NONE … … 147 149 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ 148 150 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_ 151 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 149 152 INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:,:) 150 153 INTEGER , OPTIONAL, INTENT(IN) :: ibegin_ … … 219 222 ENDIF 220 223 224 IF (PRESENT(domain_ref_)) THEN 225 CALL cxios_set_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) 226 ENDIF 227 221 228 IF (PRESENT(i_index_)) THEN 222 229 CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2)) … … 331 338 SUBROUTINE xios(get_domain_attr) & 332 339 ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 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 &340 , data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin, iend, j_index & 341 , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 335 342 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 336 343 , zoom_nj_loc ) … … 350 357 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 351 358 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 359 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 352 360 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:,:) 353 361 INTEGER , OPTIONAL, INTENT(OUT) :: ibegin … … 381 389 CALL xios(get_domain_attr_hdl_) & 382 390 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 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 &391 , data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin, iend, j_index & 392 , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 385 393 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 386 394 , zoom_nj_loc ) … … 390 398 SUBROUTINE xios(get_domain_attr_hdl) & 391 399 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 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 &400 , data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin, iend, j_index & 401 , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 394 402 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 395 403 , zoom_nj_loc ) … … 408 416 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 409 417 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 418 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 410 419 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:,:) 411 420 INTEGER , OPTIONAL, INTENT(OUT) :: ibegin … … 438 447 CALL xios(get_domain_attr_hdl_) & 439 448 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 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 &449 , data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin, iend, j_index & 450 , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 442 451 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 443 452 , zoom_nj_loc ) … … 447 456 SUBROUTINE xios(get_domain_attr_hdl_) & 448 457 ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & 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 , n j_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_ )458 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_ & 459 , ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_ & 460 , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_ & 461 , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 453 462 454 463 IMPLICIT NONE … … 465 474 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ 466 475 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_ 476 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 467 477 INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:,:) 468 478 INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_ … … 537 547 ENDIF 538 548 549 IF (PRESENT(domain_ref_)) THEN 550 CALL cxios_get_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) 551 ENDIF 552 539 553 IF (PRESENT(i_index_)) THEN 540 554 CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2)) … … 649 663 SUBROUTINE xios(is_defined_domain_attr) & 650 664 ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 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 &665 , data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin, iend, j_index & 666 , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 653 667 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 654 668 , zoom_nj_loc ) … … 679 693 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 680 694 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 695 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 696 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 681 697 LOGICAL, OPTIONAL, INTENT(OUT) :: i_index 682 698 LOGICAL(KIND=C_BOOL) :: i_index_tmp … … 735 751 CALL xios(is_defined_domain_attr_hdl_) & 736 752 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 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 &753 , data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin, iend, j_index & 754 , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 739 755 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 740 756 , zoom_nj_loc ) … … 744 760 SUBROUTINE xios(is_defined_domain_attr_hdl) & 745 761 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 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 &762 , data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin, iend, j_index & 763 , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 748 764 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 749 765 , zoom_nj_loc ) … … 773 789 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 774 790 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 791 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 792 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 775 793 LOGICAL, OPTIONAL, INTENT(OUT) :: i_index 776 794 LOGICAL(KIND=C_BOOL) :: i_index_tmp … … 828 846 CALL xios(is_defined_domain_attr_hdl_) & 829 847 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & 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 &848 , data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin, iend, j_index & 849 , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name & 832 850 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 833 851 , zoom_nj_loc ) … … 837 855 SUBROUTINE xios(is_defined_domain_attr_hdl_) & 838 856 ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & 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 , n j_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_ )857 , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_ & 858 , ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_ & 859 , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_ & 860 , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 843 861 844 862 IMPLICIT NONE … … 866 884 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_ 867 885 LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp 886 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 887 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 868 888 LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_ 869 889 LOGICAL(KIND=C_BOOL) :: i_index__tmp … … 974 994 ENDIF 975 995 996 IF (PRESENT(domain_ref_)) THEN 997 domain_ref__tmp=cxios_is_defined_domain_domain_ref(domain_hdl%daddr) 998 domain_ref_=domain_ref__tmp 999 ENDIF 1000 976 1001 IF (PRESENT(i_index_)) THEN 977 1002 i_index__tmp=cxios_is_defined_domain_i_index(domain_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.