Changeset 1965
- Timestamp:
- 10/28/20 16:14:52 (4 years ago)
- Location:
- XIOS/dev/dev_oa/src
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_oa/src/config/domain_attribute.conf
r1952 r1965 72 72 DECLARE_ARRAY(int, 1, tile_data_ibegin, false) 73 73 DECLARE_ARRAY(int, 1, tile_data_jbegin, false) 74 DECLARE_ARRAY(int, 1, tile_data_ni, false) 75 DECLARE_ARRAY(int, 1, tile_data_nj, false) -
XIOS/dev/dev_oa/src/interface/c_attr/icdomain_attr.cpp
r1952 r1965 1073 1073 1074 1074 1075 void cxios_set_domain_tile_data_ni(domain_Ptr domain_hdl, int* tile_data_ni, int* extent) 1076 { 1077 CTimer::get("XIOS").resume(); 1078 CArray<int,1> tmp(tile_data_ni, shape(extent[0]), neverDeleteData); 1079 domain_hdl->tile_data_ni.reference(tmp.copy()); 1080 CTimer::get("XIOS").suspend(); 1081 } 1082 1083 void cxios_get_domain_tile_data_ni(domain_Ptr domain_hdl, int* tile_data_ni, int* extent) 1084 { 1085 CTimer::get("XIOS").resume(); 1086 CArray<int,1> tmp(tile_data_ni, shape(extent[0]), neverDeleteData); 1087 tmp=domain_hdl->tile_data_ni.getInheritedValue(); 1088 CTimer::get("XIOS").suspend(); 1089 } 1090 1091 bool cxios_is_defined_domain_tile_data_ni(domain_Ptr domain_hdl) 1092 { 1093 CTimer::get("XIOS").resume(); 1094 bool isDefined = domain_hdl->tile_data_ni.hasInheritedValue(); 1095 CTimer::get("XIOS").suspend(); 1096 return isDefined; 1097 } 1098 1099 1100 void cxios_set_domain_tile_data_nj(domain_Ptr domain_hdl, int* tile_data_nj, int* extent) 1101 { 1102 CTimer::get("XIOS").resume(); 1103 CArray<int,1> tmp(tile_data_nj, shape(extent[0]), neverDeleteData); 1104 domain_hdl->tile_data_nj.reference(tmp.copy()); 1105 CTimer::get("XIOS").suspend(); 1106 } 1107 1108 void cxios_get_domain_tile_data_nj(domain_Ptr domain_hdl, int* tile_data_nj, int* extent) 1109 { 1110 CTimer::get("XIOS").resume(); 1111 CArray<int,1> tmp(tile_data_nj, shape(extent[0]), neverDeleteData); 1112 tmp=domain_hdl->tile_data_nj.getInheritedValue(); 1113 CTimer::get("XIOS").suspend(); 1114 } 1115 1116 bool cxios_is_defined_domain_tile_data_nj(domain_Ptr domain_hdl) 1117 { 1118 CTimer::get("XIOS").resume(); 1119 bool isDefined = domain_hdl->tile_data_nj.hasInheritedValue(); 1120 CTimer::get("XIOS").suspend(); 1121 return isDefined; 1122 } 1123 1124 1075 1125 void cxios_set_domain_tile_ibegin(domain_Ptr domain_hdl, int* tile_ibegin, int* extent) 1076 1126 { -
XIOS/dev/dev_oa/src/interface/c_attr/icdomaingroup_attr.cpp
r1952 r1965 1099 1099 1100 1100 1101 void cxios_set_domaingroup_tile_data_ni(domaingroup_Ptr domaingroup_hdl, int* tile_data_ni, int* extent) 1102 { 1103 CTimer::get("XIOS").resume(); 1104 CArray<int,1> tmp(tile_data_ni, shape(extent[0]), neverDeleteData); 1105 domaingroup_hdl->tile_data_ni.reference(tmp.copy()); 1106 CTimer::get("XIOS").suspend(); 1107 } 1108 1109 void cxios_get_domaingroup_tile_data_ni(domaingroup_Ptr domaingroup_hdl, int* tile_data_ni, int* extent) 1110 { 1111 CTimer::get("XIOS").resume(); 1112 CArray<int,1> tmp(tile_data_ni, shape(extent[0]), neverDeleteData); 1113 tmp=domaingroup_hdl->tile_data_ni.getInheritedValue(); 1114 CTimer::get("XIOS").suspend(); 1115 } 1116 1117 bool cxios_is_defined_domaingroup_tile_data_ni(domaingroup_Ptr domaingroup_hdl) 1118 { 1119 CTimer::get("XIOS").resume(); 1120 bool isDefined = domaingroup_hdl->tile_data_ni.hasInheritedValue(); 1121 CTimer::get("XIOS").suspend(); 1122 return isDefined; 1123 } 1124 1125 1126 void cxios_set_domaingroup_tile_data_nj(domaingroup_Ptr domaingroup_hdl, int* tile_data_nj, int* extent) 1127 { 1128 CTimer::get("XIOS").resume(); 1129 CArray<int,1> tmp(tile_data_nj, shape(extent[0]), neverDeleteData); 1130 domaingroup_hdl->tile_data_nj.reference(tmp.copy()); 1131 CTimer::get("XIOS").suspend(); 1132 } 1133 1134 void cxios_get_domaingroup_tile_data_nj(domaingroup_Ptr domaingroup_hdl, int* tile_data_nj, int* extent) 1135 { 1136 CTimer::get("XIOS").resume(); 1137 CArray<int,1> tmp(tile_data_nj, shape(extent[0]), neverDeleteData); 1138 tmp=domaingroup_hdl->tile_data_nj.getInheritedValue(); 1139 CTimer::get("XIOS").suspend(); 1140 } 1141 1142 bool cxios_is_defined_domaingroup_tile_data_nj(domaingroup_Ptr domaingroup_hdl) 1143 { 1144 CTimer::get("XIOS").resume(); 1145 bool isDefined = domaingroup_hdl->tile_data_nj.hasInheritedValue(); 1146 CTimer::get("XIOS").suspend(); 1147 return isDefined; 1148 } 1149 1150 1101 1151 void cxios_set_domaingroup_tile_ibegin(domaingroup_Ptr domaingroup_hdl, int* tile_ibegin, int* extent) 1102 1152 { -
XIOS/dev/dev_oa/src/interface/fortran_attr/domain_interface_attr.F90
r1952 r1965 883 883 884 884 885 SUBROUTINE cxios_set_domain_tile_data_ni(domain_hdl, tile_data_ni, extent) BIND(C) 886 USE ISO_C_BINDING 887 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 888 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_ni 889 INTEGER (kind = C_INT), DIMENSION(*) :: extent 890 END SUBROUTINE cxios_set_domain_tile_data_ni 891 892 SUBROUTINE cxios_get_domain_tile_data_ni(domain_hdl, tile_data_ni, extent) BIND(C) 893 USE ISO_C_BINDING 894 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 895 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_ni 896 INTEGER (kind = C_INT), DIMENSION(*) :: extent 897 END SUBROUTINE cxios_get_domain_tile_data_ni 898 899 FUNCTION cxios_is_defined_domain_tile_data_ni(domain_hdl) BIND(C) 900 USE ISO_C_BINDING 901 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_ni 902 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 903 END FUNCTION cxios_is_defined_domain_tile_data_ni 904 905 906 SUBROUTINE cxios_set_domain_tile_data_nj(domain_hdl, tile_data_nj, extent) BIND(C) 907 USE ISO_C_BINDING 908 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 909 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_nj 910 INTEGER (kind = C_INT), DIMENSION(*) :: extent 911 END SUBROUTINE cxios_set_domain_tile_data_nj 912 913 SUBROUTINE cxios_get_domain_tile_data_nj(domain_hdl, tile_data_nj, extent) BIND(C) 914 USE ISO_C_BINDING 915 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 916 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_nj 917 INTEGER (kind = C_INT), DIMENSION(*) :: extent 918 END SUBROUTINE cxios_get_domain_tile_data_nj 919 920 FUNCTION cxios_is_defined_domain_tile_data_nj(domain_hdl) BIND(C) 921 USE ISO_C_BINDING 922 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_nj 923 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 924 END FUNCTION cxios_is_defined_domain_tile_data_nj 925 926 885 927 SUBROUTINE cxios_set_domain_tile_ibegin(domain_hdl, tile_ibegin, extent) BIND(C) 886 928 USE ISO_C_BINDING -
XIOS/dev/dev_oa/src/interface/fortran_attr/domaingroup_interface_attr.F90
r1952 r1965 904 904 905 905 906 SUBROUTINE cxios_set_domaingroup_tile_data_ni(domaingroup_hdl, tile_data_ni, extent) BIND(C) 907 USE ISO_C_BINDING 908 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 909 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_ni 910 INTEGER (kind = C_INT), DIMENSION(*) :: extent 911 END SUBROUTINE cxios_set_domaingroup_tile_data_ni 912 913 SUBROUTINE cxios_get_domaingroup_tile_data_ni(domaingroup_hdl, tile_data_ni, extent) BIND(C) 914 USE ISO_C_BINDING 915 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 916 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_ni 917 INTEGER (kind = C_INT), DIMENSION(*) :: extent 918 END SUBROUTINE cxios_get_domaingroup_tile_data_ni 919 920 FUNCTION cxios_is_defined_domaingroup_tile_data_ni(domaingroup_hdl) BIND(C) 921 USE ISO_C_BINDING 922 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_ni 923 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 924 END FUNCTION cxios_is_defined_domaingroup_tile_data_ni 925 926 927 SUBROUTINE cxios_set_domaingroup_tile_data_nj(domaingroup_hdl, tile_data_nj, extent) BIND(C) 928 USE ISO_C_BINDING 929 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 930 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_nj 931 INTEGER (kind = C_INT), DIMENSION(*) :: extent 932 END SUBROUTINE cxios_set_domaingroup_tile_data_nj 933 934 SUBROUTINE cxios_get_domaingroup_tile_data_nj(domaingroup_hdl, tile_data_nj, extent) BIND(C) 935 USE ISO_C_BINDING 936 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 937 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_nj 938 INTEGER (kind = C_INT), DIMENSION(*) :: extent 939 END SUBROUTINE cxios_get_domaingroup_tile_data_nj 940 941 FUNCTION cxios_is_defined_domaingroup_tile_data_nj(domaingroup_hdl) BIND(C) 942 USE ISO_C_BINDING 943 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_nj 944 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 945 END FUNCTION cxios_is_defined_domaingroup_tile_data_nj 946 947 906 948 SUBROUTINE cxios_set_domaingroup_tile_ibegin(domaingroup_hdl, tile_ibegin, extent) BIND(C) 907 949 USE ISO_C_BINDING -
XIOS/dev/dev_oa/src/interface/fortran_attr/idomain_attr.F90
r1952 r1965 17 17 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 18 18 , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin & 19 , tile_ ibegin, tile_jbegin, tile_ni, tile_nj, type )19 , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 20 20 21 21 IMPLICIT NONE … … 67 67 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 68 68 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 69 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ni(:) 70 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_nj(:) 69 71 INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 70 72 INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin(:) … … 81 83 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 82 84 , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin & 83 , tile_ ibegin, tile_jbegin, tile_ni, tile_nj, type )85 , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 84 86 85 87 END SUBROUTINE xios(set_domain_attr) … … 91 93 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 92 94 , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin & 93 , tile_ ibegin, tile_jbegin, tile_ni, tile_nj, type )95 , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 94 96 95 97 IMPLICIT NONE … … 140 142 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 141 143 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 144 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ni(:) 145 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_nj(:) 142 146 INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 143 147 INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin(:) … … 152 156 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 153 157 , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin & 154 , tile_ ibegin, tile_jbegin, tile_ni, tile_nj, type )158 , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 155 159 156 160 END SUBROUTINE xios(set_domain_attr_hdl) … … 162 166 , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ & 163 167 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_ & 164 , tile_data_ibegin_, tile_data_jbegin_, tile_ ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_ &165 )168 , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_ & 169 , tile_ni_, tile_nj_, type_ ) 166 170 167 171 IMPLICIT NONE … … 212 216 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:) 213 217 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:) 218 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ni_(:) 219 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_nj_(:) 214 220 INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin_(:) 215 221 INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin_(:) … … 435 441 CALL cxios_set_domain_tile_data_jbegin & 436 442 (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 443 ENDIF 444 445 IF (PRESENT(tile_data_ni_)) THEN 446 CALL cxios_set_domain_tile_data_ni & 447 (domain_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_)) 448 ENDIF 449 450 IF (PRESENT(tile_data_nj_)) THEN 451 CALL cxios_set_domain_tile_data_nj & 452 (domain_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_)) 437 453 ENDIF 438 454 … … 470 486 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 471 487 , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin & 472 , tile_ ibegin, tile_jbegin, tile_ni, tile_nj, type )488 , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 473 489 474 490 IMPLICIT NONE … … 520 536 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 521 537 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 538 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ni(:) 539 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_nj(:) 522 540 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 523 541 INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) … … 534 552 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 535 553 , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin & 536 , tile_ ibegin, tile_jbegin, tile_ni, tile_nj, type )554 , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 537 555 538 556 END SUBROUTINE xios(get_domain_attr) … … 544 562 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 545 563 , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin & 546 , tile_ ibegin, tile_jbegin, tile_ni, tile_nj, type )564 , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 547 565 548 566 IMPLICIT NONE … … 593 611 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 594 612 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 613 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ni(:) 614 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_nj(:) 595 615 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 596 616 INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) … … 605 625 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 606 626 , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin & 607 , tile_ ibegin, tile_jbegin, tile_ni, tile_nj, type )627 , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 608 628 609 629 END SUBROUTINE xios(get_domain_attr_hdl) … … 615 635 , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ & 616 636 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_ & 617 , tile_data_ibegin_, tile_data_jbegin_, tile_ ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_ &618 )637 , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_ & 638 , tile_ni_, tile_nj_, type_ ) 619 639 620 640 IMPLICIT NONE … … 665 685 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:) 666 686 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:) 687 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ni_(:) 688 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_nj_(:) 667 689 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:) 668 690 INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:) … … 888 910 CALL cxios_get_domain_tile_data_jbegin & 889 911 (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 912 ENDIF 913 914 IF (PRESENT(tile_data_ni_)) THEN 915 CALL cxios_get_domain_tile_data_ni & 916 (domain_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_)) 917 ENDIF 918 919 IF (PRESENT(tile_data_nj_)) THEN 920 CALL cxios_get_domain_tile_data_nj & 921 (domain_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_)) 890 922 ENDIF 891 923 … … 923 955 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 924 956 , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin & 925 , tile_ ibegin, tile_jbegin, tile_ni, tile_nj, type )957 , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 926 958 927 959 IMPLICIT NONE … … 1014 1046 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 1015 1047 LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 1048 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni 1049 LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp 1050 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj 1051 LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp 1016 1052 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 1017 1053 LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp … … 1033 1069 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 1034 1070 , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin & 1035 , tile_ ibegin, tile_jbegin, tile_ni, tile_nj, type )1071 , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 1036 1072 1037 1073 END SUBROUTINE xios(is_defined_domain_attr) … … 1043 1079 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 1044 1080 , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin & 1045 , tile_ ibegin, tile_jbegin, tile_ni, tile_nj, type )1081 , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 1046 1082 1047 1083 IMPLICIT NONE … … 1133 1169 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 1134 1170 LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 1171 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni 1172 LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp 1173 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj 1174 LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp 1135 1175 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 1136 1176 LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp … … 1150 1190 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 1151 1191 , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin & 1152 , tile_ ibegin, tile_jbegin, tile_ni, tile_nj, type )1192 , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 1153 1193 1154 1194 END SUBROUTINE xios(is_defined_domain_attr_hdl) … … 1160 1200 , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ & 1161 1201 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_ & 1162 , tile_data_ibegin_, tile_data_jbegin_, tile_ ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_ &1163 )1202 , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_ & 1203 , tile_ni_, tile_nj_, type_ ) 1164 1204 1165 1205 IMPLICIT NONE … … 1251 1291 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_ 1252 1292 LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp 1293 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni_ 1294 LOGICAL(KIND=C_BOOL) :: tile_data_ni__tmp 1295 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj_ 1296 LOGICAL(KIND=C_BOOL) :: tile_data_nj__tmp 1253 1297 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_ 1254 1298 LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp … … 1520 1564 ENDIF 1521 1565 1566 IF (PRESENT(tile_data_ni_)) THEN 1567 tile_data_ni__tmp = cxios_is_defined_domain_tile_data_ni & 1568 (domain_hdl%daddr) 1569 tile_data_ni_ = tile_data_ni__tmp 1570 ENDIF 1571 1572 IF (PRESENT(tile_data_nj_)) THEN 1573 tile_data_nj__tmp = cxios_is_defined_domain_tile_data_nj & 1574 (domain_hdl%daddr) 1575 tile_data_nj_ = tile_data_nj__tmp 1576 ENDIF 1577 1522 1578 IF (PRESENT(tile_ibegin_)) THEN 1523 1579 tile_ibegin__tmp = cxios_is_defined_domain_tile_ibegin & -
XIOS/dev/dev_oa/src/interface/fortran_attr/idomaingroup_attr.F90
r1952 r1965 17 17 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 18 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 , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type & 20 ) 20 21 21 22 IMPLICIT NONE … … 68 69 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 69 70 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 71 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ni(:) 72 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_nj(:) 70 73 INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 71 74 INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin(:) … … 82 85 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 83 86 , 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 ) 87 , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type & 88 ) 85 89 86 90 END SUBROUTINE xios(set_domaingroup_attr) … … 92 96 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 93 97 , 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 ) 98 , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type & 99 ) 95 100 96 101 IMPLICIT NONE … … 142 147 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 143 148 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 149 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ni(:) 150 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_nj(:) 144 151 INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 145 152 INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin(:) … … 154 161 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 155 162 , 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 ) 163 , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type & 164 ) 157 165 158 166 END SUBROUTINE xios(set_domaingroup_attr_hdl) … … 164 172 , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ & 165 173 , 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 )174 , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_ & 175 , tile_ni_, tile_nj_, type_ ) 168 176 169 177 IMPLICIT NONE … … 215 223 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:) 216 224 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:) 225 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ni_(:) 226 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_nj_(:) 217 227 INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin_(:) 218 228 INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin_(:) … … 443 453 CALL cxios_set_domaingroup_tile_data_jbegin & 444 454 (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 455 ENDIF 456 457 IF (PRESENT(tile_data_ni_)) THEN 458 CALL cxios_set_domaingroup_tile_data_ni & 459 (domaingroup_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_)) 460 ENDIF 461 462 IF (PRESENT(tile_data_nj_)) THEN 463 CALL cxios_set_domaingroup_tile_data_nj & 464 (domaingroup_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_)) 445 465 ENDIF 446 466 … … 478 498 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 479 499 , 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 ) 500 , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type & 501 ) 481 502 482 503 IMPLICIT NONE … … 529 550 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 530 551 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 552 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ni(:) 553 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_nj(:) 531 554 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 532 555 INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) … … 543 566 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 544 567 , 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 ) 568 , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type & 569 ) 546 570 547 571 END SUBROUTINE xios(get_domaingroup_attr) … … 553 577 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 554 578 , 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 ) 579 , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type & 580 ) 556 581 557 582 IMPLICIT NONE … … 603 628 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 604 629 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 630 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ni(:) 631 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_nj(:) 605 632 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 606 633 INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) … … 615 642 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 616 643 , 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 ) 644 , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type & 645 ) 618 646 619 647 END SUBROUTINE xios(get_domaingroup_attr_hdl) … … 625 653 , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ & 626 654 , 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 )655 , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_ & 656 , tile_ni_, tile_nj_, type_ ) 629 657 630 658 IMPLICIT NONE … … 676 704 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:) 677 705 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:) 706 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ni_(:) 707 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_nj_(:) 678 708 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:) 679 709 INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:) … … 904 934 CALL cxios_get_domaingroup_tile_data_jbegin & 905 935 (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 936 ENDIF 937 938 IF (PRESENT(tile_data_ni_)) THEN 939 CALL cxios_get_domaingroup_tile_data_ni & 940 (domaingroup_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_)) 941 ENDIF 942 943 IF (PRESENT(tile_data_nj_)) THEN 944 CALL cxios_get_domaingroup_tile_data_nj & 945 (domaingroup_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_)) 906 946 ENDIF 907 947 … … 939 979 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 940 980 , 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 ) 981 , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type & 982 ) 942 983 943 984 IMPLICIT NONE … … 1032 1073 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 1033 1074 LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 1075 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni 1076 LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp 1077 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj 1078 LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp 1034 1079 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 1035 1080 LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp … … 1051 1096 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 1052 1097 , 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 ) 1098 , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type & 1099 ) 1054 1100 1055 1101 END SUBROUTINE xios(is_defined_domaingroup_attr) … … 1061 1107 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 1062 1108 , 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 ) 1109 , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type & 1110 ) 1064 1111 1065 1112 IMPLICIT NONE … … 1153 1200 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 1154 1201 LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 1202 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni 1203 LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp 1204 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj 1205 LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp 1155 1206 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 1156 1207 LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp … … 1170 1221 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 1171 1222 , 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 ) 1223 , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type & 1224 ) 1173 1225 1174 1226 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) … … 1180 1232 , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ & 1181 1233 , 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 )1234 , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_ & 1235 , tile_ni_, tile_nj_, type_ ) 1184 1236 1185 1237 IMPLICIT NONE … … 1273 1325 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_ 1274 1326 LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp 1327 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni_ 1328 LOGICAL(KIND=C_BOOL) :: tile_data_ni__tmp 1329 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj_ 1330 LOGICAL(KIND=C_BOOL) :: tile_data_nj__tmp 1275 1331 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_ 1276 1332 LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp … … 1548 1604 ENDIF 1549 1605 1606 IF (PRESENT(tile_data_ni_)) THEN 1607 tile_data_ni__tmp = cxios_is_defined_domaingroup_tile_data_ni & 1608 (domaingroup_hdl%daddr) 1609 tile_data_ni_ = tile_data_ni__tmp 1610 ENDIF 1611 1612 IF (PRESENT(tile_data_nj_)) THEN 1613 tile_data_nj__tmp = cxios_is_defined_domaingroup_tile_data_nj & 1614 (domaingroup_hdl%daddr) 1615 tile_data_nj_ = tile_data_nj__tmp 1616 ENDIF 1617 1550 1618 IF (PRESENT(tile_ibegin_)) THEN 1551 1619 tile_ibegin__tmp = cxios_is_defined_domaingroup_tile_ibegin &
Note: See TracChangeset
for help on using the changeset viewer.