- Timestamp:
- 06/06/17 17:58:16 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_olga/src/interface/fortran_attr/idomain_attr.F90
r966 r1158 15 15 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 16 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 )17 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 18 18 19 19 IMPLICIT NONE … … 52 52 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 53 53 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 54 INTEGER , OPTIONAL, INTENT(IN) :: prec 54 55 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 55 56 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 61 62 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 62 63 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 63 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )64 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 64 65 65 66 END SUBROUTINE xios(set_domain_attr) … … 69 70 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 70 71 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 71 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )72 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 72 73 73 74 IMPLICIT NONE … … 105 106 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 106 107 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 108 INTEGER , OPTIONAL, INTENT(IN) :: prec 107 109 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 108 110 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 112 114 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 113 115 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 114 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )116 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 115 117 116 118 END SUBROUTINE xios(set_domain_attr_hdl) … … 120 122 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 121 123 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 122 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &124 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 123 125 , type_ ) 124 126 … … 157 159 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_ 158 160 INTEGER , OPTIONAL, INTENT(IN) :: nvertex_ 161 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 159 162 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 160 163 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ … … 314 317 ENDIF 315 318 319 IF (PRESENT(prec_)) THEN 320 CALL cxios_set_domain_prec & 321 (domain_hdl%daddr, prec_) 322 ENDIF 323 316 324 IF (PRESENT(standard_name_)) THEN 317 325 CALL cxios_set_domain_standard_name & … … 330 338 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 331 339 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 332 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )340 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 333 341 334 342 IMPLICIT NONE … … 367 375 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 368 376 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 377 INTEGER , OPTIONAL, INTENT(OUT) :: prec 369 378 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 370 379 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 376 385 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 377 386 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 378 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )387 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 379 388 380 389 END SUBROUTINE xios(get_domain_attr) … … 384 393 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 385 394 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 386 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )395 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 387 396 388 397 IMPLICIT NONE … … 420 429 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 421 430 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 431 INTEGER , OPTIONAL, INTENT(OUT) :: prec 422 432 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 423 433 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 427 437 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 428 438 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 429 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )439 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 430 440 431 441 END SUBROUTINE xios(get_domain_attr_hdl) … … 435 445 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 436 446 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 437 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &447 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 438 448 , type_ ) 439 449 … … 472 482 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_ 473 483 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_ 484 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 474 485 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 475 486 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ … … 629 640 ENDIF 630 641 642 IF (PRESENT(prec_)) THEN 643 CALL cxios_get_domain_prec & 644 (domain_hdl%daddr, prec_) 645 ENDIF 646 631 647 IF (PRESENT(standard_name_)) THEN 632 648 CALL cxios_get_domain_standard_name & … … 645 661 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 646 662 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 647 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )663 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 648 664 649 665 IMPLICIT NONE … … 710 726 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 711 727 LOGICAL(KIND=C_BOOL) :: nvertex_tmp 728 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 729 LOGICAL(KIND=C_BOOL) :: prec_tmp 712 730 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 713 731 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 721 739 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 722 740 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 723 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )741 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 724 742 725 743 END SUBROUTINE xios(is_defined_domain_attr) … … 729 747 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 730 748 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 731 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )749 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 732 750 733 751 IMPLICIT NONE … … 793 811 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 794 812 LOGICAL(KIND=C_BOOL) :: nvertex_tmp 813 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 814 LOGICAL(KIND=C_BOOL) :: prec_tmp 795 815 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 796 816 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 802 822 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 803 823 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 804 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )824 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 805 825 806 826 END SUBROUTINE xios(is_defined_domain_attr_hdl) … … 810 830 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 811 831 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 812 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &832 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 813 833 , type_ ) 814 834 … … 875 895 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 876 896 LOGICAL(KIND=C_BOOL) :: nvertex__tmp 897 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 898 LOGICAL(KIND=C_BOOL) :: prec__tmp 877 899 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 878 900 LOGICAL(KIND=C_BOOL) :: standard_name__tmp … … 1060 1082 ENDIF 1061 1083 1084 IF (PRESENT(prec_)) THEN 1085 prec__tmp = cxios_is_defined_domain_prec & 1086 (domain_hdl%daddr) 1087 prec_ = prec__tmp 1088 ENDIF 1089 1062 1090 IF (PRESENT(standard_name_)) THEN 1063 1091 standard_name__tmp = cxios_is_defined_domain_standard_name &
Note: See TracChangeset
for help on using the changeset viewer.
