- Timestamp:
- 10/08/20 10:53:18 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_oa/src/interface/fortran_attr/idomaingroup_attr.F90
r1626 r1952 16 16 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 17 17 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 18 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 18 , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin & 19 , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 19 20 20 21 IMPLICIT NONE … … 60 61 INTEGER , OPTIONAL, INTENT(IN) :: nj 61 62 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 63 INTEGER , OPTIONAL, INTENT(IN) :: ntiles 62 64 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 63 65 INTEGER , OPTIONAL, INTENT(IN) :: prec 64 66 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 65 67 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 68 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 69 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 70 INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 71 INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 72 INTEGER , OPTIONAL, INTENT(IN) :: tile_ni(:) 73 INTEGER , OPTIONAL, INTENT(IN) :: tile_nj(:) 66 74 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 67 75 … … 73 81 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 74 82 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 75 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 83 , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin & 84 , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 76 85 77 86 END SUBROUTINE xios(set_domaingroup_attr) … … 82 91 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 83 92 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 84 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 93 , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin & 94 , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 85 95 86 96 IMPLICIT NONE … … 125 135 INTEGER , OPTIONAL, INTENT(IN) :: nj 126 136 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 137 INTEGER , OPTIONAL, INTENT(IN) :: ntiles 127 138 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 128 139 INTEGER , OPTIONAL, INTENT(IN) :: prec 129 140 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 130 141 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 142 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 143 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 144 INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 145 INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 146 INTEGER , OPTIONAL, INTENT(IN) :: tile_ni(:) 147 INTEGER , OPTIONAL, INTENT(IN) :: tile_nj(:) 131 148 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 132 149 … … 136 153 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 137 154 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 138 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 155 , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin & 156 , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 139 157 140 158 END SUBROUTINE xios(set_domaingroup_attr_hdl) … … 145 163 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_ & 146 164 , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ & 147 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_ & 148 , type_ ) 165 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_ & 166 , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_ & 167 ) 149 168 150 169 IMPLICIT NONE … … 189 208 INTEGER , OPTIONAL, INTENT(IN) :: nj_ 190 209 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_ 210 INTEGER , OPTIONAL, INTENT(IN) :: ntiles_ 191 211 INTEGER , OPTIONAL, INTENT(IN) :: nvertex_ 192 212 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 193 213 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 194 214 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 215 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:) 216 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:) 217 INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin_(:) 218 INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin_(:) 219 INTEGER , OPTIONAL, INTENT(IN) :: tile_ni_(:) 220 INTEGER , OPTIONAL, INTENT(IN) :: tile_nj_(:) 195 221 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 196 222 … … 384 410 ENDIF 385 411 412 IF (PRESENT(ntiles_)) THEN 413 CALL cxios_set_domaingroup_ntiles & 414 (domaingroup_hdl%daddr, ntiles_) 415 ENDIF 416 386 417 IF (PRESENT(nvertex_)) THEN 387 418 CALL cxios_set_domaingroup_nvertex & … … 402 433 CALL cxios_set_domaingroup_standard_name & 403 434 (domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 435 ENDIF 436 437 IF (PRESENT(tile_data_ibegin_)) THEN 438 CALL cxios_set_domaingroup_tile_data_ibegin & 439 (domaingroup_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 440 ENDIF 441 442 IF (PRESENT(tile_data_jbegin_)) THEN 443 CALL cxios_set_domaingroup_tile_data_jbegin & 444 (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 445 ENDIF 446 447 IF (PRESENT(tile_ibegin_)) THEN 448 CALL cxios_set_domaingroup_tile_ibegin & 449 (domaingroup_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 450 ENDIF 451 452 IF (PRESENT(tile_jbegin_)) THEN 453 CALL cxios_set_domaingroup_tile_jbegin & 454 (domaingroup_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 455 ENDIF 456 457 IF (PRESENT(tile_ni_)) THEN 458 CALL cxios_set_domaingroup_tile_ni & 459 (domaingroup_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 460 ENDIF 461 462 IF (PRESENT(tile_nj_)) THEN 463 CALL cxios_set_domaingroup_tile_nj & 464 (domaingroup_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 404 465 ENDIF 405 466 … … 416 477 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 417 478 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 418 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 479 , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin & 480 , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 419 481 420 482 IMPLICIT NONE … … 460 522 INTEGER , OPTIONAL, INTENT(OUT) :: nj 461 523 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 524 INTEGER , OPTIONAL, INTENT(OUT) :: ntiles 462 525 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 463 526 INTEGER , OPTIONAL, INTENT(OUT) :: prec 464 527 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 465 528 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 529 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 530 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 531 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 532 INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 533 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ni(:) 534 INTEGER , OPTIONAL, INTENT(OUT) :: tile_nj(:) 466 535 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 467 536 … … 473 542 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 474 543 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 475 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 544 , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin & 545 , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 476 546 477 547 END SUBROUTINE xios(get_domaingroup_attr) … … 482 552 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 483 553 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 484 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 554 , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin & 555 , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 485 556 486 557 IMPLICIT NONE … … 525 596 INTEGER , OPTIONAL, INTENT(OUT) :: nj 526 597 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 598 INTEGER , OPTIONAL, INTENT(OUT) :: ntiles 527 599 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 528 600 INTEGER , OPTIONAL, INTENT(OUT) :: prec 529 601 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 530 602 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 603 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 604 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 605 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 606 INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 607 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ni(:) 608 INTEGER , OPTIONAL, INTENT(OUT) :: tile_nj(:) 531 609 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 532 610 … … 536 614 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 537 615 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 538 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 616 , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin & 617 , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 539 618 540 619 END SUBROUTINE xios(get_domaingroup_attr_hdl) … … 545 624 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_ & 546 625 , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ & 547 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_ & 548 , type_ ) 626 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_ & 627 , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_ & 628 ) 549 629 550 630 IMPLICIT NONE … … 589 669 INTEGER , OPTIONAL, INTENT(OUT) :: nj_ 590 670 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_ 671 INTEGER , OPTIONAL, INTENT(OUT) :: ntiles_ 591 672 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_ 592 673 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 593 674 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 594 675 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 676 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:) 677 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:) 678 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:) 679 INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:) 680 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ni_(:) 681 INTEGER , OPTIONAL, INTENT(OUT) :: tile_nj_(:) 595 682 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 596 683 … … 784 871 ENDIF 785 872 873 IF (PRESENT(ntiles_)) THEN 874 CALL cxios_get_domaingroup_ntiles & 875 (domaingroup_hdl%daddr, ntiles_) 876 ENDIF 877 786 878 IF (PRESENT(nvertex_)) THEN 787 879 CALL cxios_get_domaingroup_nvertex & … … 802 894 CALL cxios_get_domaingroup_standard_name & 803 895 (domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 896 ENDIF 897 898 IF (PRESENT(tile_data_ibegin_)) THEN 899 CALL cxios_get_domaingroup_tile_data_ibegin & 900 (domaingroup_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 901 ENDIF 902 903 IF (PRESENT(tile_data_jbegin_)) THEN 904 CALL cxios_get_domaingroup_tile_data_jbegin & 905 (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 906 ENDIF 907 908 IF (PRESENT(tile_ibegin_)) THEN 909 CALL cxios_get_domaingroup_tile_ibegin & 910 (domaingroup_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 911 ENDIF 912 913 IF (PRESENT(tile_jbegin_)) THEN 914 CALL cxios_get_domaingroup_tile_jbegin & 915 (domaingroup_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 916 ENDIF 917 918 IF (PRESENT(tile_ni_)) THEN 919 CALL cxios_get_domaingroup_tile_ni & 920 (domaingroup_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 921 ENDIF 922 923 IF (PRESENT(tile_nj_)) THEN 924 CALL cxios_get_domaingroup_tile_nj & 925 (domaingroup_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 804 926 ENDIF 805 927 … … 816 938 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 817 939 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 818 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 940 , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin & 941 , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 819 942 820 943 IMPLICIT NONE … … 895 1018 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 896 1019 LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 1020 LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 1021 LOGICAL(KIND=C_BOOL) :: ntiles_tmp 897 1022 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 898 1023 LOGICAL(KIND=C_BOOL) :: nvertex_tmp … … 903 1028 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 904 1029 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 1030 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 1031 LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 1032 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 1033 LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 1034 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 1035 LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 1036 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 1037 LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 1038 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 1039 LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 1040 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 1041 LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 905 1042 LOGICAL, OPTIONAL, INTENT(OUT) :: type 906 1043 LOGICAL(KIND=C_BOOL) :: type_tmp … … 913 1050 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 914 1051 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 915 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 1052 , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin & 1053 , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 916 1054 917 1055 END SUBROUTINE xios(is_defined_domaingroup_attr) … … 922 1060 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 923 1061 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 924 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 1062 , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin & 1063 , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 925 1064 926 1065 IMPLICIT NONE … … 1000 1139 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 1001 1140 LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 1141 LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 1142 LOGICAL(KIND=C_BOOL) :: ntiles_tmp 1002 1143 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 1003 1144 LOGICAL(KIND=C_BOOL) :: nvertex_tmp … … 1008 1149 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 1009 1150 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 1151 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 1152 LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 1153 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 1154 LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 1155 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 1156 LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 1157 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 1158 LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 1159 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 1160 LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 1161 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 1162 LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 1010 1163 LOGICAL, OPTIONAL, INTENT(OUT) :: type 1011 1164 LOGICAL(KIND=C_BOOL) :: type_tmp … … 1016 1169 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 1017 1170 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 1018 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 1171 , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin & 1172 , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 1019 1173 1020 1174 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) … … 1025 1179 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_ & 1026 1180 , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ & 1027 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_ & 1028 , type_ ) 1181 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_ & 1182 , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_ & 1183 ) 1029 1184 1030 1185 IMPLICIT NONE … … 1104 1259 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_ 1105 1260 LOGICAL(KIND=C_BOOL) :: nj_glo__tmp 1261 LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles_ 1262 LOGICAL(KIND=C_BOOL) :: ntiles__tmp 1106 1263 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 1107 1264 LOGICAL(KIND=C_BOOL) :: nvertex__tmp … … 1112 1269 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 1113 1270 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 1271 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin_ 1272 LOGICAL(KIND=C_BOOL) :: tile_data_ibegin__tmp 1273 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_ 1274 LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp 1275 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_ 1276 LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp 1277 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin_ 1278 LOGICAL(KIND=C_BOOL) :: tile_jbegin__tmp 1279 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni_ 1280 LOGICAL(KIND=C_BOOL) :: tile_ni__tmp 1281 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj_ 1282 LOGICAL(KIND=C_BOOL) :: tile_nj__tmp 1114 1283 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 1115 1284 LOGICAL(KIND=C_BOOL) :: type__tmp … … 1337 1506 ENDIF 1338 1507 1508 IF (PRESENT(ntiles_)) THEN 1509 ntiles__tmp = cxios_is_defined_domaingroup_ntiles & 1510 (domaingroup_hdl%daddr) 1511 ntiles_ = ntiles__tmp 1512 ENDIF 1513 1339 1514 IF (PRESENT(nvertex_)) THEN 1340 1515 nvertex__tmp = cxios_is_defined_domaingroup_nvertex & … … 1361 1536 ENDIF 1362 1537 1538 IF (PRESENT(tile_data_ibegin_)) THEN 1539 tile_data_ibegin__tmp = cxios_is_defined_domaingroup_tile_data_ibegin & 1540 (domaingroup_hdl%daddr) 1541 tile_data_ibegin_ = tile_data_ibegin__tmp 1542 ENDIF 1543 1544 IF (PRESENT(tile_data_jbegin_)) THEN 1545 tile_data_jbegin__tmp = cxios_is_defined_domaingroup_tile_data_jbegin & 1546 (domaingroup_hdl%daddr) 1547 tile_data_jbegin_ = tile_data_jbegin__tmp 1548 ENDIF 1549 1550 IF (PRESENT(tile_ibegin_)) THEN 1551 tile_ibegin__tmp = cxios_is_defined_domaingroup_tile_ibegin & 1552 (domaingroup_hdl%daddr) 1553 tile_ibegin_ = tile_ibegin__tmp 1554 ENDIF 1555 1556 IF (PRESENT(tile_jbegin_)) THEN 1557 tile_jbegin__tmp = cxios_is_defined_domaingroup_tile_jbegin & 1558 (domaingroup_hdl%daddr) 1559 tile_jbegin_ = tile_jbegin__tmp 1560 ENDIF 1561 1562 IF (PRESENT(tile_ni_)) THEN 1563 tile_ni__tmp = cxios_is_defined_domaingroup_tile_ni & 1564 (domaingroup_hdl%daddr) 1565 tile_ni_ = tile_ni__tmp 1566 ENDIF 1567 1568 IF (PRESENT(tile_nj_)) THEN 1569 tile_nj__tmp = cxios_is_defined_domaingroup_tile_nj & 1570 (domaingroup_hdl%daddr) 1571 tile_nj_ = tile_nj__tmp 1572 ENDIF 1573 1363 1574 IF (PRESENT(type_)) THEN 1364 1575 type__tmp = cxios_is_defined_domaingroup_type &
Note: See TracChangeset
for help on using the changeset viewer.