Changeset 666 for XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
- Timestamp:
- 08/24/15 14:53:27 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
r664 r666 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_n _index, data_ni, data_nj, domain_group_ref, domain_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 )15 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, 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 … … 30 30 INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:) 31 31 INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin 32 INTEGER , OPTIONAL, INTENT(IN) :: data_n_index33 32 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 34 33 INTEGER , OPTIONAL, INTENT(IN) :: data_nj … … 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_n _index, data_ni, data_nj, domain_group_ref, domain_ref&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_group_ref, domain_ref, 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_n _index, data_ni, data_nj, domain_group_ref, domain_ref&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_group_ref, domain_ref, 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 … … 84 83 INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:) 85 84 INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin 86 INTEGER , OPTIONAL, INTENT(IN) :: data_n_index87 85 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 88 86 INTEGER , OPTIONAL, INTENT(IN) :: data_nj … … 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_n _index, data_ni, data_nj, domain_group_ref, domain_ref&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_group_ref, domain_ref, 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_n _index_, data_ni_, data_nj_ &124 , domain_ group_ref_, domain_ref_, 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_group_ref_ & 122 , domain_ref_, 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 … … 138 136 INTEGER , OPTIONAL, INTENT(IN) :: data_j_index_(:) 139 137 INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin_ 140 INTEGER , OPTIONAL, INTENT(IN) :: data_n_index_141 138 INTEGER , OPTIONAL, INTENT(IN) :: data_ni_ 142 139 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ … … 205 202 ENDIF 206 203 207 IF (PRESENT(data_n_index_)) THEN208 CALL cxios_set_domain_data_n_index(domain_hdl%daddr, data_n_index_)209 ENDIF210 211 204 IF (PRESENT(data_ni_)) THEN 212 205 CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_) … … 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_n _index, data_ni, data_nj, domain_group_ref, domain_ref&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_group_ref, domain_ref, 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 … … 326 319 INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:) 327 320 INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin 328 INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index329 321 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 330 322 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj … … 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_n _index, data_ni, data_nj, domain_group_ref, domain_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 )350 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, 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_n _index, data_ni, data_nj, domain_group_ref, domain_ref&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_group_ref, domain_ref, 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 … … 380 372 INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:) 381 373 INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin 382 INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index383 374 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 384 375 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj … … 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_n _index, data_ni, data_nj, domain_group_ref, domain_ref&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_group_ref, domain_ref, 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_n _index_, data_ni_, data_nj_ &420 , domain_ group_ref_, domain_ref_, 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_group_ref_ & 411 , domain_ref_, 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 … … 434 425 INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index_(:) 435 426 INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin_ 436 INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index_437 427 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_ 438 428 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ … … 501 491 ENDIF 502 492 503 IF (PRESENT(data_n_index_)) THEN504 CALL cxios_get_domain_data_n_index(domain_hdl%daddr, data_n_index_)505 ENDIF506 507 493 IF (PRESENT(data_ni_)) THEN 508 494 CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_) … … 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_n _index, data_ni, data_nj, domain_group_ref, domain_ref&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_group_ref, domain_ref, 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 … … 632 618 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 633 619 LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 634 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index635 LOGICAL(KIND=C_BOOL) :: data_n_index_tmp636 620 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 637 621 LOGICAL(KIND=C_BOOL) :: data_ni_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_n _index, data_ni, data_nj, domain_group_ref, domain_ref&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_group_ref, domain_ref, 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_n _index, data_ni, data_nj, domain_group_ref, domain_ref&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_group_ref, domain_ref, 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 … … 718 702 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 719 703 LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 720 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index721 LOGICAL(KIND=C_BOOL) :: data_n_index_tmp722 704 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 723 705 LOGICAL(KIND=C_BOOL) :: data_ni_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_n _index, data_ni, data_nj, domain_group_ref, domain_ref&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_group_ref, domain_ref, 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_n _index_, data_ni_, data_nj_ &780 , domain_ group_ref_, domain_ref_, 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_group_ref_ & 762 , domain_ref_, 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 … … 804 786 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_ 805 787 LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp 806 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_807 LOGICAL(KIND=C_BOOL) :: data_n_index__tmp808 788 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_ 809 789 LOGICAL(KIND=C_BOOL) :: data_ni__tmp … … 903 883 ENDIF 904 884 905 IF (PRESENT(data_n_index_)) THEN906 data_n_index__tmp = cxios_is_defined_domain_data_n_index(domain_hdl%daddr)907 data_n_index_ = data_n_index__tmp908 ENDIF909 910 885 IF (PRESENT(data_ni_)) THEN 911 886 data_ni__tmp = cxios_is_defined_domain_data_ni(domain_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.