Changeset 781 for XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
- Timestamp:
- 11/04/15 17:05:07 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
r690 r781 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_ group_ref, domain_ref, domain_src&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 )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 ) 18 18 19 19 IMPLICIT NONE … … 32 32 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 33 33 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref35 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 36 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src … … 60 59 CALL xios(set_domain_attr_hdl_) & 61 60 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 62 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&63 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &64 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )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 ) 65 64 66 65 END SUBROUTINE xios(set_domain_attr) … … 68 67 SUBROUTINE xios(set_domain_attr_hdl) & 69 68 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 70 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&71 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &72 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )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 ) 73 72 74 73 IMPLICIT NONE … … 86 85 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 87 86 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 88 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref89 87 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 90 88 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src … … 113 111 CALL xios(set_domain_attr_hdl_) & 114 112 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 115 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&116 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &117 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )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 ) 118 116 119 117 END SUBROUTINE xios(set_domain_attr_hdl) … … 121 119 SUBROUTINE xios(set_domain_attr_hdl_) & 122 120 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 123 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ group_ref_ &124 , domain_ ref_, domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &125 , lon g_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ &126 , nvertex_,standard_name_, type_ )121 , 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_ ) 127 125 128 126 IMPLICIT NONE … … 140 138 INTEGER , OPTIONAL, INTENT(IN) :: data_ni_ 141 139 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ 142 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_143 140 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 144 141 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src_ … … 213 210 ENDIF 214 211 215 IF (PRESENT(domain_group_ref_)) THEN216 CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))217 ENDIF218 219 212 IF (PRESENT(domain_ref_)) THEN 220 213 CALL cxios_set_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) … … 309 302 SUBROUTINE xios(get_domain_attr) & 310 303 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 311 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&312 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &313 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )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 ) 314 307 315 308 IMPLICIT NONE … … 328 321 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 329 322 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 330 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref331 323 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 332 324 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src … … 356 348 CALL 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_ group_ref, domain_ref, domain_src&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 )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 ) 361 353 362 354 END SUBROUTINE xios(get_domain_attr) … … 364 356 SUBROUTINE xios(get_domain_attr_hdl) & 365 357 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 366 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&367 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &368 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )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 ) 369 361 370 362 IMPLICIT NONE … … 382 374 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 383 375 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 384 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref385 376 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 386 377 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src … … 409 400 CALL xios(get_domain_attr_hdl_) & 410 401 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 411 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&412 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &413 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )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 ) 414 405 415 406 END SUBROUTINE xios(get_domain_attr_hdl) … … 417 408 SUBROUTINE xios(get_domain_attr_hdl_) & 418 409 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 419 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ group_ref_ &420 , domain_ ref_, domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &421 , lon g_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ &422 , nvertex_,standard_name_, type_ )410 , 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_ ) 423 414 424 415 IMPLICIT NONE … … 436 427 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_ 437 428 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ 438 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_439 429 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 440 430 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src_ … … 509 499 ENDIF 510 500 511 IF (PRESENT(domain_group_ref_)) THEN512 CALL cxios_get_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))513 ENDIF514 515 501 IF (PRESENT(domain_ref_)) THEN 516 502 CALL cxios_get_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) … … 605 591 SUBROUTINE xios(is_defined_domain_attr) & 606 592 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 607 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&608 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &609 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )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 ) 610 596 611 597 IMPLICIT NONE … … 636 622 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 637 623 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 638 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref639 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp640 624 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 641 625 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 684 668 CALL xios(is_defined_domain_attr_hdl_) & 685 669 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 686 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&687 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &688 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )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 ) 689 673 690 674 END SUBROUTINE xios(is_defined_domain_attr) … … 692 676 SUBROUTINE xios(is_defined_domain_attr_hdl) & 693 677 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 694 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&695 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &696 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )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 ) 697 681 698 682 IMPLICIT NONE … … 722 706 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 723 707 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 724 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref725 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp726 708 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 727 709 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 769 751 CALL xios(is_defined_domain_attr_hdl_) & 770 752 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 771 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&772 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &773 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )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 ) 774 756 775 757 END SUBROUTINE xios(is_defined_domain_attr_hdl) … … 777 759 SUBROUTINE xios(is_defined_domain_attr_hdl_) & 778 760 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 779 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ group_ref_ &780 , domain_ ref_, domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &781 , lon g_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ &782 , nvertex_,standard_name_, type_ )761 , 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_ ) 783 765 784 766 IMPLICIT NONE … … 808 790 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 809 791 LOGICAL(KIND=C_BOOL) :: data_nj__tmp 810 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_811 LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp812 792 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 813 793 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp … … 913 893 ENDIF 914 894 915 IF (PRESENT(domain_group_ref_)) THEN916 domain_group_ref__tmp = cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr)917 domain_group_ref_ = domain_group_ref__tmp918 ENDIF919 920 895 IF (PRESENT(domain_ref_)) THEN 921 896 domain_ref__tmp = cxios_is_defined_domain_domain_ref(domain_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.