Changeset 789 for XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
- Timestamp:
- 11/16/15 16:21:45 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
r781 r789 13 13 SUBROUTINE xios(set_domain_attr) & 14 14 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 15 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index &16 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d&17 , mask_2d, name,ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )15 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 16 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 17 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 18 18 19 19 IMPLICIT NONE … … 33 33 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 34 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src36 35 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:) 37 36 INTEGER , OPTIONAL, INTENT(IN) :: ibegin … … 59 58 CALL xios(set_domain_attr_hdl_) & 60 59 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 61 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index &62 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d&63 , mask_2d, name,ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )60 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 61 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 62 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 64 63 65 64 END SUBROUTINE xios(set_domain_attr) … … 67 66 SUBROUTINE xios(set_domain_attr_hdl) & 68 67 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 69 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index &70 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d&71 , mask_2d, name,ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )68 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 69 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 70 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 72 71 73 72 IMPLICIT NONE … … 86 85 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 87 86 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 88 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src89 87 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:) 90 88 INTEGER , OPTIONAL, INTENT(IN) :: ibegin … … 111 109 CALL xios(set_domain_attr_hdl_) & 112 110 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 113 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index &114 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d&115 , mask_2d, name,ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )111 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 112 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 113 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 116 114 117 115 END SUBROUTINE xios(set_domain_attr_hdl) … … 120 118 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 121 119 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 122 , domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_ &123 , lonvalue_ 1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_ &124 , standard_name_,type_ )120 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 121 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ & 122 , type_ ) 125 123 126 124 IMPLICIT NONE … … 139 137 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ 140 138 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 141 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src_142 139 INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:) 143 140 INTEGER , OPTIONAL, INTENT(IN) :: ibegin_ … … 214 211 ENDIF 215 212 216 IF (PRESENT(domain_src_)) THEN217 CALL cxios_set_domain_domain_src(domain_hdl%daddr, domain_src_, len(domain_src_))218 ENDIF219 220 213 IF (PRESENT(i_index_)) THEN 221 214 CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_)) … … 302 295 SUBROUTINE xios(get_domain_attr) & 303 296 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 304 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index &305 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d&306 , mask_2d, name,ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )297 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 298 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 299 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 307 300 308 301 IMPLICIT NONE … … 322 315 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 323 316 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 324 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src325 317 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:) 326 318 INTEGER , OPTIONAL, INTENT(OUT) :: ibegin … … 348 340 CALL xios(get_domain_attr_hdl_) & 349 341 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 350 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index &351 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d&352 , mask_2d, name,ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )342 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 343 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 344 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 353 345 354 346 END SUBROUTINE xios(get_domain_attr) … … 356 348 SUBROUTINE xios(get_domain_attr_hdl) & 357 349 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 358 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index &359 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d&360 , mask_2d, name,ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )350 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 351 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 352 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 361 353 362 354 IMPLICIT NONE … … 375 367 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 376 368 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 377 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src378 369 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:) 379 370 INTEGER , OPTIONAL, INTENT(OUT) :: ibegin … … 400 391 CALL xios(get_domain_attr_hdl_) & 401 392 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 402 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index &403 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d&404 , mask_2d, name,ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )393 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 394 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 395 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 405 396 406 397 END SUBROUTINE xios(get_domain_attr_hdl) … … 409 400 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 410 401 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 411 , domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_ &412 , lonvalue_ 1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_ &413 , standard_name_,type_ )402 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 403 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ & 404 , type_ ) 414 405 415 406 IMPLICIT NONE … … 428 419 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ 429 420 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 430 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src_431 421 INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:) 432 422 INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_ … … 503 493 ENDIF 504 494 505 IF (PRESENT(domain_src_)) THEN506 CALL cxios_get_domain_domain_src(domain_hdl%daddr, domain_src_, len(domain_src_))507 ENDIF508 509 495 IF (PRESENT(i_index_)) THEN 510 496 CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_)) … … 591 577 SUBROUTINE xios(is_defined_domain_attr) & 592 578 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 593 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index &594 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d&595 , mask_2d, name,ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )579 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 580 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 581 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 596 582 597 583 IMPLICIT NONE … … 624 610 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 625 611 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 626 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src627 LOGICAL(KIND=C_BOOL) :: domain_src_tmp628 612 LOGICAL, OPTIONAL, INTENT(OUT) :: i_index 629 613 LOGICAL(KIND=C_BOOL) :: i_index_tmp … … 668 652 CALL xios(is_defined_domain_attr_hdl_) & 669 653 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 670 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index &671 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d&672 , mask_2d, name,ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )654 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 655 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 656 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 673 657 674 658 END SUBROUTINE xios(is_defined_domain_attr) … … 676 660 SUBROUTINE xios(is_defined_domain_attr_hdl) & 677 661 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 678 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index &679 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d&680 , mask_2d, name,ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )662 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 663 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 664 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 681 665 682 666 IMPLICIT NONE … … 708 692 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 709 693 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 710 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src711 LOGICAL(KIND=C_BOOL) :: domain_src_tmp712 694 LOGICAL, OPTIONAL, INTENT(OUT) :: i_index 713 695 LOGICAL(KIND=C_BOOL) :: i_index_tmp … … 751 733 CALL xios(is_defined_domain_attr_hdl_) & 752 734 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 753 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index &754 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d&755 , mask_2d, name,ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )735 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 736 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 737 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 756 738 757 739 END SUBROUTINE xios(is_defined_domain_attr_hdl) … … 760 742 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 761 743 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 762 , domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_ &763 , lonvalue_ 1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_ &764 , standard_name_,type_ )744 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 745 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ & 746 , type_ ) 765 747 766 748 IMPLICIT NONE … … 792 774 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 793 775 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 794 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src_795 LOGICAL(KIND=C_BOOL) :: domain_src__tmp796 776 LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_ 797 777 LOGICAL(KIND=C_BOOL) :: i_index__tmp … … 898 878 ENDIF 899 879 900 IF (PRESENT(domain_src_)) THEN901 domain_src__tmp = cxios_is_defined_domain_domain_src(domain_hdl%daddr)902 domain_src_ = domain_src__tmp903 ENDIF904 905 880 IF (PRESENT(i_index_)) THEN 906 881 i_index__tmp = cxios_is_defined_domain_i_index(domain_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.