- Timestamp:
- 02/07/17 12:00:27 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90
r966 r1052 15 15 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 16 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 )17 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 18 18 19 19 IMPLICIT NONE … … 53 53 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 54 54 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 55 INTEGER , OPTIONAL, INTENT(IN) :: prec 55 56 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 56 57 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 62 63 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 63 64 , 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 )65 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 65 66 66 67 END SUBROUTINE xios(set_domaingroup_attr) … … 70 71 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 71 72 , 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 )73 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 73 74 74 75 IMPLICIT NONE … … 107 108 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 108 109 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 110 INTEGER , OPTIONAL, INTENT(IN) :: prec 109 111 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 110 112 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 114 116 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 115 117 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 116 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )118 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 117 119 118 120 END SUBROUTINE xios(set_domaingroup_attr_hdl) … … 122 124 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 123 125 , group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 124 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &126 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 125 127 , type_ ) 126 128 … … 160 162 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_ 161 163 INTEGER , OPTIONAL, INTENT(IN) :: nvertex_ 164 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 162 165 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 163 166 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ … … 322 325 ENDIF 323 326 327 IF (PRESENT(prec_)) THEN 328 CALL cxios_set_domaingroup_prec & 329 (domaingroup_hdl%daddr, prec_) 330 ENDIF 331 324 332 IF (PRESENT(standard_name_)) THEN 325 333 CALL cxios_set_domaingroup_standard_name & … … 338 346 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 339 347 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 340 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )348 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 341 349 342 350 IMPLICIT NONE … … 376 384 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 377 385 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 386 INTEGER , OPTIONAL, INTENT(OUT) :: prec 378 387 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 379 388 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 385 394 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 386 395 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 387 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )396 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 388 397 389 398 END SUBROUTINE xios(get_domaingroup_attr) … … 393 402 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 394 403 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 395 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )404 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 396 405 397 406 IMPLICIT NONE … … 430 439 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 431 440 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 441 INTEGER , OPTIONAL, INTENT(OUT) :: prec 432 442 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 433 443 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 437 447 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 438 448 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 439 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )449 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 440 450 441 451 END SUBROUTINE xios(get_domaingroup_attr_hdl) … … 445 455 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 446 456 , group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 447 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &457 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 448 458 , type_ ) 449 459 … … 483 493 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_ 484 494 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_ 495 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 485 496 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 486 497 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ … … 645 656 ENDIF 646 657 658 IF (PRESENT(prec_)) THEN 659 CALL cxios_get_domaingroup_prec & 660 (domaingroup_hdl%daddr, prec_) 661 ENDIF 662 647 663 IF (PRESENT(standard_name_)) THEN 648 664 CALL cxios_get_domaingroup_standard_name & … … 661 677 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 662 678 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 663 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )679 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 664 680 665 681 IMPLICIT NONE … … 728 744 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 729 745 LOGICAL(KIND=C_BOOL) :: nvertex_tmp 746 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 747 LOGICAL(KIND=C_BOOL) :: prec_tmp 730 748 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 731 749 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 739 757 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 740 758 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 741 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )759 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 742 760 743 761 END SUBROUTINE xios(is_defined_domaingroup_attr) … … 747 765 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 748 766 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 749 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )767 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 750 768 751 769 IMPLICIT NONE … … 813 831 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 814 832 LOGICAL(KIND=C_BOOL) :: nvertex_tmp 833 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 834 LOGICAL(KIND=C_BOOL) :: prec_tmp 815 835 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 816 836 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 822 842 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 823 843 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 824 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )844 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 825 845 826 846 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) … … 830 850 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 831 851 , group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 832 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &852 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 833 853 , type_ ) 834 854 … … 897 917 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 898 918 LOGICAL(KIND=C_BOOL) :: nvertex__tmp 919 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 920 LOGICAL(KIND=C_BOOL) :: prec__tmp 899 921 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 900 922 LOGICAL(KIND=C_BOOL) :: standard_name__tmp … … 1088 1110 ENDIF 1089 1111 1112 IF (PRESENT(prec_)) THEN 1113 prec__tmp = cxios_is_defined_domaingroup_prec & 1114 (domaingroup_hdl%daddr) 1115 prec_ = prec__tmp 1116 ENDIF 1117 1090 1118 IF (PRESENT(standard_name_)) THEN 1091 1119 standard_name__tmp = cxios_is_defined_domaingroup_standard_name &
Note: See TracChangeset
for help on using the changeset viewer.