- Timestamp:
- 10/08/20 10:53:18 (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
r1615 r1952 63 63 DECLARE_ATTRIBUTE(StdString, domain_ref) 64 64 DECLARE_ATTRIBUTE(int, prec) 65 66 /* LOCAL */ 67 DECLARE_ATTRIBUTE(int, ntiles, false) 68 DECLARE_ARRAY(int, 1, tile_ni, false) 69 DECLARE_ARRAY(int, 1, tile_nj, false) 70 DECLARE_ARRAY(int, 1, tile_ibegin, false) 71 DECLARE_ARRAY(int, 1, tile_jbegin, false) 72 DECLARE_ARRAY(int, 1, tile_data_ibegin, false) 73 DECLARE_ARRAY(int, 1, tile_data_jbegin, false) -
XIOS/dev/dev_oa/src/interface/c_attr/icdomain_attr.cpp
r1626 r1952 905 905 906 906 907 void cxios_set_domain_ntiles(domain_Ptr domain_hdl, int ntiles) 908 { 909 CTimer::get("XIOS").resume(); 910 domain_hdl->ntiles.setValue(ntiles); 911 CTimer::get("XIOS").suspend(); 912 } 913 914 void cxios_get_domain_ntiles(domain_Ptr domain_hdl, int* ntiles) 915 { 916 CTimer::get("XIOS").resume(); 917 *ntiles = domain_hdl->ntiles.getInheritedValue(); 918 CTimer::get("XIOS").suspend(); 919 } 920 921 bool cxios_is_defined_domain_ntiles(domain_Ptr domain_hdl) 922 { 923 CTimer::get("XIOS").resume(); 924 bool isDefined = domain_hdl->ntiles.hasInheritedValue(); 925 CTimer::get("XIOS").suspend(); 926 return isDefined; 927 } 928 929 907 930 void cxios_set_domain_nvertex(domain_Ptr domain_hdl, int nvertex) 908 931 { … … 1000 1023 1001 1024 1025 void cxios_set_domain_tile_data_ibegin(domain_Ptr domain_hdl, int* tile_data_ibegin, int* extent) 1026 { 1027 CTimer::get("XIOS").resume(); 1028 CArray<int,1> tmp(tile_data_ibegin, shape(extent[0]), neverDeleteData); 1029 domain_hdl->tile_data_ibegin.reference(tmp.copy()); 1030 CTimer::get("XIOS").suspend(); 1031 } 1032 1033 void cxios_get_domain_tile_data_ibegin(domain_Ptr domain_hdl, int* tile_data_ibegin, int* extent) 1034 { 1035 CTimer::get("XIOS").resume(); 1036 CArray<int,1> tmp(tile_data_ibegin, shape(extent[0]), neverDeleteData); 1037 tmp=domain_hdl->tile_data_ibegin.getInheritedValue(); 1038 CTimer::get("XIOS").suspend(); 1039 } 1040 1041 bool cxios_is_defined_domain_tile_data_ibegin(domain_Ptr domain_hdl) 1042 { 1043 CTimer::get("XIOS").resume(); 1044 bool isDefined = domain_hdl->tile_data_ibegin.hasInheritedValue(); 1045 CTimer::get("XIOS").suspend(); 1046 return isDefined; 1047 } 1048 1049 1050 void cxios_set_domain_tile_data_jbegin(domain_Ptr domain_hdl, int* tile_data_jbegin, int* extent) 1051 { 1052 CTimer::get("XIOS").resume(); 1053 CArray<int,1> tmp(tile_data_jbegin, shape(extent[0]), neverDeleteData); 1054 domain_hdl->tile_data_jbegin.reference(tmp.copy()); 1055 CTimer::get("XIOS").suspend(); 1056 } 1057 1058 void cxios_get_domain_tile_data_jbegin(domain_Ptr domain_hdl, int* tile_data_jbegin, int* extent) 1059 { 1060 CTimer::get("XIOS").resume(); 1061 CArray<int,1> tmp(tile_data_jbegin, shape(extent[0]), neverDeleteData); 1062 tmp=domain_hdl->tile_data_jbegin.getInheritedValue(); 1063 CTimer::get("XIOS").suspend(); 1064 } 1065 1066 bool cxios_is_defined_domain_tile_data_jbegin(domain_Ptr domain_hdl) 1067 { 1068 CTimer::get("XIOS").resume(); 1069 bool isDefined = domain_hdl->tile_data_jbegin.hasInheritedValue(); 1070 CTimer::get("XIOS").suspend(); 1071 return isDefined; 1072 } 1073 1074 1075 void cxios_set_domain_tile_ibegin(domain_Ptr domain_hdl, int* tile_ibegin, int* extent) 1076 { 1077 CTimer::get("XIOS").resume(); 1078 CArray<int,1> tmp(tile_ibegin, shape(extent[0]), neverDeleteData); 1079 domain_hdl->tile_ibegin.reference(tmp.copy()); 1080 CTimer::get("XIOS").suspend(); 1081 } 1082 1083 void cxios_get_domain_tile_ibegin(domain_Ptr domain_hdl, int* tile_ibegin, int* extent) 1084 { 1085 CTimer::get("XIOS").resume(); 1086 CArray<int,1> tmp(tile_ibegin, shape(extent[0]), neverDeleteData); 1087 tmp=domain_hdl->tile_ibegin.getInheritedValue(); 1088 CTimer::get("XIOS").suspend(); 1089 } 1090 1091 bool cxios_is_defined_domain_tile_ibegin(domain_Ptr domain_hdl) 1092 { 1093 CTimer::get("XIOS").resume(); 1094 bool isDefined = domain_hdl->tile_ibegin.hasInheritedValue(); 1095 CTimer::get("XIOS").suspend(); 1096 return isDefined; 1097 } 1098 1099 1100 void cxios_set_domain_tile_jbegin(domain_Ptr domain_hdl, int* tile_jbegin, int* extent) 1101 { 1102 CTimer::get("XIOS").resume(); 1103 CArray<int,1> tmp(tile_jbegin, shape(extent[0]), neverDeleteData); 1104 domain_hdl->tile_jbegin.reference(tmp.copy()); 1105 CTimer::get("XIOS").suspend(); 1106 } 1107 1108 void cxios_get_domain_tile_jbegin(domain_Ptr domain_hdl, int* tile_jbegin, int* extent) 1109 { 1110 CTimer::get("XIOS").resume(); 1111 CArray<int,1> tmp(tile_jbegin, shape(extent[0]), neverDeleteData); 1112 tmp=domain_hdl->tile_jbegin.getInheritedValue(); 1113 CTimer::get("XIOS").suspend(); 1114 } 1115 1116 bool cxios_is_defined_domain_tile_jbegin(domain_Ptr domain_hdl) 1117 { 1118 CTimer::get("XIOS").resume(); 1119 bool isDefined = domain_hdl->tile_jbegin.hasInheritedValue(); 1120 CTimer::get("XIOS").suspend(); 1121 return isDefined; 1122 } 1123 1124 1125 void cxios_set_domain_tile_ni(domain_Ptr domain_hdl, int* tile_ni, int* extent) 1126 { 1127 CTimer::get("XIOS").resume(); 1128 CArray<int,1> tmp(tile_ni, shape(extent[0]), neverDeleteData); 1129 domain_hdl->tile_ni.reference(tmp.copy()); 1130 CTimer::get("XIOS").suspend(); 1131 } 1132 1133 void cxios_get_domain_tile_ni(domain_Ptr domain_hdl, int* tile_ni, int* extent) 1134 { 1135 CTimer::get("XIOS").resume(); 1136 CArray<int,1> tmp(tile_ni, shape(extent[0]), neverDeleteData); 1137 tmp=domain_hdl->tile_ni.getInheritedValue(); 1138 CTimer::get("XIOS").suspend(); 1139 } 1140 1141 bool cxios_is_defined_domain_tile_ni(domain_Ptr domain_hdl) 1142 { 1143 CTimer::get("XIOS").resume(); 1144 bool isDefined = domain_hdl->tile_ni.hasInheritedValue(); 1145 CTimer::get("XIOS").suspend(); 1146 return isDefined; 1147 } 1148 1149 1150 void cxios_set_domain_tile_nj(domain_Ptr domain_hdl, int* tile_nj, int* extent) 1151 { 1152 CTimer::get("XIOS").resume(); 1153 CArray<int,1> tmp(tile_nj, shape(extent[0]), neverDeleteData); 1154 domain_hdl->tile_nj.reference(tmp.copy()); 1155 CTimer::get("XIOS").suspend(); 1156 } 1157 1158 void cxios_get_domain_tile_nj(domain_Ptr domain_hdl, int* tile_nj, int* extent) 1159 { 1160 CTimer::get("XIOS").resume(); 1161 CArray<int,1> tmp(tile_nj, shape(extent[0]), neverDeleteData); 1162 tmp=domain_hdl->tile_nj.getInheritedValue(); 1163 CTimer::get("XIOS").suspend(); 1164 } 1165 1166 bool cxios_is_defined_domain_tile_nj(domain_Ptr domain_hdl) 1167 { 1168 CTimer::get("XIOS").resume(); 1169 bool isDefined = domain_hdl->tile_nj.hasInheritedValue(); 1170 CTimer::get("XIOS").suspend(); 1171 return isDefined; 1172 } 1173 1174 1002 1175 void cxios_set_domain_type(domain_Ptr domain_hdl, const char * type, int type_size) 1003 1176 { -
XIOS/dev/dev_oa/src/interface/c_attr/icdomaingroup_attr.cpp
r1626 r1952 931 931 932 932 933 void cxios_set_domaingroup_ntiles(domaingroup_Ptr domaingroup_hdl, int ntiles) 934 { 935 CTimer::get("XIOS").resume(); 936 domaingroup_hdl->ntiles.setValue(ntiles); 937 CTimer::get("XIOS").suspend(); 938 } 939 940 void cxios_get_domaingroup_ntiles(domaingroup_Ptr domaingroup_hdl, int* ntiles) 941 { 942 CTimer::get("XIOS").resume(); 943 *ntiles = domaingroup_hdl->ntiles.getInheritedValue(); 944 CTimer::get("XIOS").suspend(); 945 } 946 947 bool cxios_is_defined_domaingroup_ntiles(domaingroup_Ptr domaingroup_hdl) 948 { 949 CTimer::get("XIOS").resume(); 950 bool isDefined = domaingroup_hdl->ntiles.hasInheritedValue(); 951 CTimer::get("XIOS").suspend(); 952 return isDefined; 953 } 954 955 933 956 void cxios_set_domaingroup_nvertex(domaingroup_Ptr domaingroup_hdl, int nvertex) 934 957 { … … 1026 1049 1027 1050 1051 void cxios_set_domaingroup_tile_data_ibegin(domaingroup_Ptr domaingroup_hdl, int* tile_data_ibegin, int* extent) 1052 { 1053 CTimer::get("XIOS").resume(); 1054 CArray<int,1> tmp(tile_data_ibegin, shape(extent[0]), neverDeleteData); 1055 domaingroup_hdl->tile_data_ibegin.reference(tmp.copy()); 1056 CTimer::get("XIOS").suspend(); 1057 } 1058 1059 void cxios_get_domaingroup_tile_data_ibegin(domaingroup_Ptr domaingroup_hdl, int* tile_data_ibegin, int* extent) 1060 { 1061 CTimer::get("XIOS").resume(); 1062 CArray<int,1> tmp(tile_data_ibegin, shape(extent[0]), neverDeleteData); 1063 tmp=domaingroup_hdl->tile_data_ibegin.getInheritedValue(); 1064 CTimer::get("XIOS").suspend(); 1065 } 1066 1067 bool cxios_is_defined_domaingroup_tile_data_ibegin(domaingroup_Ptr domaingroup_hdl) 1068 { 1069 CTimer::get("XIOS").resume(); 1070 bool isDefined = domaingroup_hdl->tile_data_ibegin.hasInheritedValue(); 1071 CTimer::get("XIOS").suspend(); 1072 return isDefined; 1073 } 1074 1075 1076 void cxios_set_domaingroup_tile_data_jbegin(domaingroup_Ptr domaingroup_hdl, int* tile_data_jbegin, int* extent) 1077 { 1078 CTimer::get("XIOS").resume(); 1079 CArray<int,1> tmp(tile_data_jbegin, shape(extent[0]), neverDeleteData); 1080 domaingroup_hdl->tile_data_jbegin.reference(tmp.copy()); 1081 CTimer::get("XIOS").suspend(); 1082 } 1083 1084 void cxios_get_domaingroup_tile_data_jbegin(domaingroup_Ptr domaingroup_hdl, int* tile_data_jbegin, int* extent) 1085 { 1086 CTimer::get("XIOS").resume(); 1087 CArray<int,1> tmp(tile_data_jbegin, shape(extent[0]), neverDeleteData); 1088 tmp=domaingroup_hdl->tile_data_jbegin.getInheritedValue(); 1089 CTimer::get("XIOS").suspend(); 1090 } 1091 1092 bool cxios_is_defined_domaingroup_tile_data_jbegin(domaingroup_Ptr domaingroup_hdl) 1093 { 1094 CTimer::get("XIOS").resume(); 1095 bool isDefined = domaingroup_hdl->tile_data_jbegin.hasInheritedValue(); 1096 CTimer::get("XIOS").suspend(); 1097 return isDefined; 1098 } 1099 1100 1101 void cxios_set_domaingroup_tile_ibegin(domaingroup_Ptr domaingroup_hdl, int* tile_ibegin, int* extent) 1102 { 1103 CTimer::get("XIOS").resume(); 1104 CArray<int,1> tmp(tile_ibegin, shape(extent[0]), neverDeleteData); 1105 domaingroup_hdl->tile_ibegin.reference(tmp.copy()); 1106 CTimer::get("XIOS").suspend(); 1107 } 1108 1109 void cxios_get_domaingroup_tile_ibegin(domaingroup_Ptr domaingroup_hdl, int* tile_ibegin, int* extent) 1110 { 1111 CTimer::get("XIOS").resume(); 1112 CArray<int,1> tmp(tile_ibegin, shape(extent[0]), neverDeleteData); 1113 tmp=domaingroup_hdl->tile_ibegin.getInheritedValue(); 1114 CTimer::get("XIOS").suspend(); 1115 } 1116 1117 bool cxios_is_defined_domaingroup_tile_ibegin(domaingroup_Ptr domaingroup_hdl) 1118 { 1119 CTimer::get("XIOS").resume(); 1120 bool isDefined = domaingroup_hdl->tile_ibegin.hasInheritedValue(); 1121 CTimer::get("XIOS").suspend(); 1122 return isDefined; 1123 } 1124 1125 1126 void cxios_set_domaingroup_tile_jbegin(domaingroup_Ptr domaingroup_hdl, int* tile_jbegin, int* extent) 1127 { 1128 CTimer::get("XIOS").resume(); 1129 CArray<int,1> tmp(tile_jbegin, shape(extent[0]), neverDeleteData); 1130 domaingroup_hdl->tile_jbegin.reference(tmp.copy()); 1131 CTimer::get("XIOS").suspend(); 1132 } 1133 1134 void cxios_get_domaingroup_tile_jbegin(domaingroup_Ptr domaingroup_hdl, int* tile_jbegin, int* extent) 1135 { 1136 CTimer::get("XIOS").resume(); 1137 CArray<int,1> tmp(tile_jbegin, shape(extent[0]), neverDeleteData); 1138 tmp=domaingroup_hdl->tile_jbegin.getInheritedValue(); 1139 CTimer::get("XIOS").suspend(); 1140 } 1141 1142 bool cxios_is_defined_domaingroup_tile_jbegin(domaingroup_Ptr domaingroup_hdl) 1143 { 1144 CTimer::get("XIOS").resume(); 1145 bool isDefined = domaingroup_hdl->tile_jbegin.hasInheritedValue(); 1146 CTimer::get("XIOS").suspend(); 1147 return isDefined; 1148 } 1149 1150 1151 void cxios_set_domaingroup_tile_ni(domaingroup_Ptr domaingroup_hdl, int* tile_ni, int* extent) 1152 { 1153 CTimer::get("XIOS").resume(); 1154 CArray<int,1> tmp(tile_ni, shape(extent[0]), neverDeleteData); 1155 domaingroup_hdl->tile_ni.reference(tmp.copy()); 1156 CTimer::get("XIOS").suspend(); 1157 } 1158 1159 void cxios_get_domaingroup_tile_ni(domaingroup_Ptr domaingroup_hdl, int* tile_ni, int* extent) 1160 { 1161 CTimer::get("XIOS").resume(); 1162 CArray<int,1> tmp(tile_ni, shape(extent[0]), neverDeleteData); 1163 tmp=domaingroup_hdl->tile_ni.getInheritedValue(); 1164 CTimer::get("XIOS").suspend(); 1165 } 1166 1167 bool cxios_is_defined_domaingroup_tile_ni(domaingroup_Ptr domaingroup_hdl) 1168 { 1169 CTimer::get("XIOS").resume(); 1170 bool isDefined = domaingroup_hdl->tile_ni.hasInheritedValue(); 1171 CTimer::get("XIOS").suspend(); 1172 return isDefined; 1173 } 1174 1175 1176 void cxios_set_domaingroup_tile_nj(domaingroup_Ptr domaingroup_hdl, int* tile_nj, int* extent) 1177 { 1178 CTimer::get("XIOS").resume(); 1179 CArray<int,1> tmp(tile_nj, shape(extent[0]), neverDeleteData); 1180 domaingroup_hdl->tile_nj.reference(tmp.copy()); 1181 CTimer::get("XIOS").suspend(); 1182 } 1183 1184 void cxios_get_domaingroup_tile_nj(domaingroup_Ptr domaingroup_hdl, int* tile_nj, int* extent) 1185 { 1186 CTimer::get("XIOS").resume(); 1187 CArray<int,1> tmp(tile_nj, shape(extent[0]), neverDeleteData); 1188 tmp=domaingroup_hdl->tile_nj.getInheritedValue(); 1189 CTimer::get("XIOS").suspend(); 1190 } 1191 1192 bool cxios_is_defined_domaingroup_tile_nj(domaingroup_Ptr domaingroup_hdl) 1193 { 1194 CTimer::get("XIOS").resume(); 1195 bool isDefined = domaingroup_hdl->tile_nj.hasInheritedValue(); 1196 CTimer::get("XIOS").suspend(); 1197 return isDefined; 1198 } 1199 1200 1028 1201 void cxios_set_domaingroup_type(domaingroup_Ptr domaingroup_hdl, const char * type, int type_size) 1029 1202 { -
XIOS/dev/dev_oa/src/interface/fortran_attr/domain_interface_attr.F90
r1626 r1952 744 744 745 745 746 SUBROUTINE cxios_set_domain_ntiles(domain_hdl, ntiles) BIND(C) 747 USE ISO_C_BINDING 748 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 749 INTEGER (KIND=C_INT) , VALUE :: ntiles 750 END SUBROUTINE cxios_set_domain_ntiles 751 752 SUBROUTINE cxios_get_domain_ntiles(domain_hdl, ntiles) BIND(C) 753 USE ISO_C_BINDING 754 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 755 INTEGER (KIND=C_INT) :: ntiles 756 END SUBROUTINE cxios_get_domain_ntiles 757 758 FUNCTION cxios_is_defined_domain_ntiles(domain_hdl) BIND(C) 759 USE ISO_C_BINDING 760 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ntiles 761 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 762 END FUNCTION cxios_is_defined_domain_ntiles 763 764 746 765 SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C) 747 766 USE ISO_C_BINDING … … 822 841 823 842 843 SUBROUTINE cxios_set_domain_tile_data_ibegin(domain_hdl, tile_data_ibegin, extent) BIND(C) 844 USE ISO_C_BINDING 845 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 846 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_ibegin 847 INTEGER (kind = C_INT), DIMENSION(*) :: extent 848 END SUBROUTINE cxios_set_domain_tile_data_ibegin 849 850 SUBROUTINE cxios_get_domain_tile_data_ibegin(domain_hdl, tile_data_ibegin, extent) BIND(C) 851 USE ISO_C_BINDING 852 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 853 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_ibegin 854 INTEGER (kind = C_INT), DIMENSION(*) :: extent 855 END SUBROUTINE cxios_get_domain_tile_data_ibegin 856 857 FUNCTION cxios_is_defined_domain_tile_data_ibegin(domain_hdl) BIND(C) 858 USE ISO_C_BINDING 859 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_ibegin 860 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 861 END FUNCTION cxios_is_defined_domain_tile_data_ibegin 862 863 864 SUBROUTINE cxios_set_domain_tile_data_jbegin(domain_hdl, tile_data_jbegin, extent) BIND(C) 865 USE ISO_C_BINDING 866 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 867 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_jbegin 868 INTEGER (kind = C_INT), DIMENSION(*) :: extent 869 END SUBROUTINE cxios_set_domain_tile_data_jbegin 870 871 SUBROUTINE cxios_get_domain_tile_data_jbegin(domain_hdl, tile_data_jbegin, extent) BIND(C) 872 USE ISO_C_BINDING 873 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 874 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_jbegin 875 INTEGER (kind = C_INT), DIMENSION(*) :: extent 876 END SUBROUTINE cxios_get_domain_tile_data_jbegin 877 878 FUNCTION cxios_is_defined_domain_tile_data_jbegin(domain_hdl) BIND(C) 879 USE ISO_C_BINDING 880 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_jbegin 881 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 882 END FUNCTION cxios_is_defined_domain_tile_data_jbegin 883 884 885 SUBROUTINE cxios_set_domain_tile_ibegin(domain_hdl, tile_ibegin, extent) BIND(C) 886 USE ISO_C_BINDING 887 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 888 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_ibegin 889 INTEGER (kind = C_INT), DIMENSION(*) :: extent 890 END SUBROUTINE cxios_set_domain_tile_ibegin 891 892 SUBROUTINE cxios_get_domain_tile_ibegin(domain_hdl, tile_ibegin, extent) BIND(C) 893 USE ISO_C_BINDING 894 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 895 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_ibegin 896 INTEGER (kind = C_INT), DIMENSION(*) :: extent 897 END SUBROUTINE cxios_get_domain_tile_ibegin 898 899 FUNCTION cxios_is_defined_domain_tile_ibegin(domain_hdl) BIND(C) 900 USE ISO_C_BINDING 901 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_ibegin 902 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 903 END FUNCTION cxios_is_defined_domain_tile_ibegin 904 905 906 SUBROUTINE cxios_set_domain_tile_jbegin(domain_hdl, tile_jbegin, extent) BIND(C) 907 USE ISO_C_BINDING 908 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 909 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_jbegin 910 INTEGER (kind = C_INT), DIMENSION(*) :: extent 911 END SUBROUTINE cxios_set_domain_tile_jbegin 912 913 SUBROUTINE cxios_get_domain_tile_jbegin(domain_hdl, tile_jbegin, extent) BIND(C) 914 USE ISO_C_BINDING 915 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 916 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_jbegin 917 INTEGER (kind = C_INT), DIMENSION(*) :: extent 918 END SUBROUTINE cxios_get_domain_tile_jbegin 919 920 FUNCTION cxios_is_defined_domain_tile_jbegin(domain_hdl) BIND(C) 921 USE ISO_C_BINDING 922 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_jbegin 923 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 924 END FUNCTION cxios_is_defined_domain_tile_jbegin 925 926 927 SUBROUTINE cxios_set_domain_tile_ni(domain_hdl, tile_ni, extent) BIND(C) 928 USE ISO_C_BINDING 929 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 930 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_ni 931 INTEGER (kind = C_INT), DIMENSION(*) :: extent 932 END SUBROUTINE cxios_set_domain_tile_ni 933 934 SUBROUTINE cxios_get_domain_tile_ni(domain_hdl, tile_ni, extent) BIND(C) 935 USE ISO_C_BINDING 936 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 937 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_ni 938 INTEGER (kind = C_INT), DIMENSION(*) :: extent 939 END SUBROUTINE cxios_get_domain_tile_ni 940 941 FUNCTION cxios_is_defined_domain_tile_ni(domain_hdl) BIND(C) 942 USE ISO_C_BINDING 943 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_ni 944 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 945 END FUNCTION cxios_is_defined_domain_tile_ni 946 947 948 SUBROUTINE cxios_set_domain_tile_nj(domain_hdl, tile_nj, extent) BIND(C) 949 USE ISO_C_BINDING 950 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 951 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_nj 952 INTEGER (kind = C_INT), DIMENSION(*) :: extent 953 END SUBROUTINE cxios_set_domain_tile_nj 954 955 SUBROUTINE cxios_get_domain_tile_nj(domain_hdl, tile_nj, extent) BIND(C) 956 USE ISO_C_BINDING 957 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 958 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_nj 959 INTEGER (kind = C_INT), DIMENSION(*) :: extent 960 END SUBROUTINE cxios_get_domain_tile_nj 961 962 FUNCTION cxios_is_defined_domain_tile_nj(domain_hdl) BIND(C) 963 USE ISO_C_BINDING 964 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_nj 965 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 966 END FUNCTION cxios_is_defined_domain_tile_nj 967 968 824 969 SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C) 825 970 USE ISO_C_BINDING -
XIOS/dev/dev_oa/src/interface/fortran_attr/domaingroup_interface_attr.F90
r1626 r1952 765 765 766 766 767 SUBROUTINE cxios_set_domaingroup_ntiles(domaingroup_hdl, ntiles) BIND(C) 768 USE ISO_C_BINDING 769 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 770 INTEGER (KIND=C_INT) , VALUE :: ntiles 771 END SUBROUTINE cxios_set_domaingroup_ntiles 772 773 SUBROUTINE cxios_get_domaingroup_ntiles(domaingroup_hdl, ntiles) BIND(C) 774 USE ISO_C_BINDING 775 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 776 INTEGER (KIND=C_INT) :: ntiles 777 END SUBROUTINE cxios_get_domaingroup_ntiles 778 779 FUNCTION cxios_is_defined_domaingroup_ntiles(domaingroup_hdl) BIND(C) 780 USE ISO_C_BINDING 781 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ntiles 782 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 783 END FUNCTION cxios_is_defined_domaingroup_ntiles 784 785 767 786 SUBROUTINE cxios_set_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C) 768 787 USE ISO_C_BINDING … … 843 862 844 863 864 SUBROUTINE cxios_set_domaingroup_tile_data_ibegin(domaingroup_hdl, tile_data_ibegin, extent) BIND(C) 865 USE ISO_C_BINDING 866 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 867 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_ibegin 868 INTEGER (kind = C_INT), DIMENSION(*) :: extent 869 END SUBROUTINE cxios_set_domaingroup_tile_data_ibegin 870 871 SUBROUTINE cxios_get_domaingroup_tile_data_ibegin(domaingroup_hdl, tile_data_ibegin, extent) BIND(C) 872 USE ISO_C_BINDING 873 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 874 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_ibegin 875 INTEGER (kind = C_INT), DIMENSION(*) :: extent 876 END SUBROUTINE cxios_get_domaingroup_tile_data_ibegin 877 878 FUNCTION cxios_is_defined_domaingroup_tile_data_ibegin(domaingroup_hdl) BIND(C) 879 USE ISO_C_BINDING 880 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_ibegin 881 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 882 END FUNCTION cxios_is_defined_domaingroup_tile_data_ibegin 883 884 885 SUBROUTINE cxios_set_domaingroup_tile_data_jbegin(domaingroup_hdl, tile_data_jbegin, extent) BIND(C) 886 USE ISO_C_BINDING 887 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 888 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_jbegin 889 INTEGER (kind = C_INT), DIMENSION(*) :: extent 890 END SUBROUTINE cxios_set_domaingroup_tile_data_jbegin 891 892 SUBROUTINE cxios_get_domaingroup_tile_data_jbegin(domaingroup_hdl, tile_data_jbegin, extent) BIND(C) 893 USE ISO_C_BINDING 894 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 895 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_data_jbegin 896 INTEGER (kind = C_INT), DIMENSION(*) :: extent 897 END SUBROUTINE cxios_get_domaingroup_tile_data_jbegin 898 899 FUNCTION cxios_is_defined_domaingroup_tile_data_jbegin(domaingroup_hdl) BIND(C) 900 USE ISO_C_BINDING 901 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_jbegin 902 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 903 END FUNCTION cxios_is_defined_domaingroup_tile_data_jbegin 904 905 906 SUBROUTINE cxios_set_domaingroup_tile_ibegin(domaingroup_hdl, tile_ibegin, extent) BIND(C) 907 USE ISO_C_BINDING 908 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 909 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_ibegin 910 INTEGER (kind = C_INT), DIMENSION(*) :: extent 911 END SUBROUTINE cxios_set_domaingroup_tile_ibegin 912 913 SUBROUTINE cxios_get_domaingroup_tile_ibegin(domaingroup_hdl, tile_ibegin, extent) BIND(C) 914 USE ISO_C_BINDING 915 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 916 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_ibegin 917 INTEGER (kind = C_INT), DIMENSION(*) :: extent 918 END SUBROUTINE cxios_get_domaingroup_tile_ibegin 919 920 FUNCTION cxios_is_defined_domaingroup_tile_ibegin(domaingroup_hdl) BIND(C) 921 USE ISO_C_BINDING 922 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_ibegin 923 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 924 END FUNCTION cxios_is_defined_domaingroup_tile_ibegin 925 926 927 SUBROUTINE cxios_set_domaingroup_tile_jbegin(domaingroup_hdl, tile_jbegin, extent) BIND(C) 928 USE ISO_C_BINDING 929 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 930 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_jbegin 931 INTEGER (kind = C_INT), DIMENSION(*) :: extent 932 END SUBROUTINE cxios_set_domaingroup_tile_jbegin 933 934 SUBROUTINE cxios_get_domaingroup_tile_jbegin(domaingroup_hdl, tile_jbegin, extent) BIND(C) 935 USE ISO_C_BINDING 936 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 937 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_jbegin 938 INTEGER (kind = C_INT), DIMENSION(*) :: extent 939 END SUBROUTINE cxios_get_domaingroup_tile_jbegin 940 941 FUNCTION cxios_is_defined_domaingroup_tile_jbegin(domaingroup_hdl) BIND(C) 942 USE ISO_C_BINDING 943 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_jbegin 944 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 945 END FUNCTION cxios_is_defined_domaingroup_tile_jbegin 946 947 948 SUBROUTINE cxios_set_domaingroup_tile_ni(domaingroup_hdl, tile_ni, extent) BIND(C) 949 USE ISO_C_BINDING 950 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 951 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_ni 952 INTEGER (kind = C_INT), DIMENSION(*) :: extent 953 END SUBROUTINE cxios_set_domaingroup_tile_ni 954 955 SUBROUTINE cxios_get_domaingroup_tile_ni(domaingroup_hdl, tile_ni, extent) BIND(C) 956 USE ISO_C_BINDING 957 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 958 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_ni 959 INTEGER (kind = C_INT), DIMENSION(*) :: extent 960 END SUBROUTINE cxios_get_domaingroup_tile_ni 961 962 FUNCTION cxios_is_defined_domaingroup_tile_ni(domaingroup_hdl) BIND(C) 963 USE ISO_C_BINDING 964 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_ni 965 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 966 END FUNCTION cxios_is_defined_domaingroup_tile_ni 967 968 969 SUBROUTINE cxios_set_domaingroup_tile_nj(domaingroup_hdl, tile_nj, extent) BIND(C) 970 USE ISO_C_BINDING 971 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 972 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_nj 973 INTEGER (kind = C_INT), DIMENSION(*) :: extent 974 END SUBROUTINE cxios_set_domaingroup_tile_nj 975 976 SUBROUTINE cxios_get_domaingroup_tile_nj(domaingroup_hdl, tile_nj, extent) BIND(C) 977 USE ISO_C_BINDING 978 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 979 INTEGER (KIND=C_INT) , DIMENSION(*) :: tile_nj 980 INTEGER (kind = C_INT), DIMENSION(*) :: extent 981 END SUBROUTINE cxios_get_domaingroup_tile_nj 982 983 FUNCTION cxios_is_defined_domaingroup_tile_nj(domaingroup_hdl) BIND(C) 984 USE ISO_C_BINDING 985 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_nj 986 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 987 END FUNCTION cxios_is_defined_domaingroup_tile_nj 988 989 845 990 SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C) 846 991 USE ISO_C_BINDING -
XIOS/dev/dev_oa/src/interface/fortran_attr/idomain_attr.F90
r1626 r1952 16 16 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 17 17 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 18 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 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 20 20 21 IMPLICIT NONE … … 59 60 INTEGER , OPTIONAL, INTENT(IN) :: nj 60 61 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 62 INTEGER , OPTIONAL, INTENT(IN) :: ntiles 61 63 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 62 64 INTEGER , OPTIONAL, INTENT(IN) :: prec 63 65 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 64 66 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 67 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 68 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 69 INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 70 INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 71 INTEGER , OPTIONAL, INTENT(IN) :: tile_ni(:) 72 INTEGER , OPTIONAL, INTENT(IN) :: tile_nj(:) 65 73 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 66 74 … … 72 80 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 73 81 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 74 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 82 , 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 ) 75 84 76 85 END SUBROUTINE xios(set_domain_attr) … … 81 90 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 82 91 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 83 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 92 , 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 ) 84 94 85 95 IMPLICIT NONE … … 123 133 INTEGER , OPTIONAL, INTENT(IN) :: nj 124 134 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 135 INTEGER , OPTIONAL, INTENT(IN) :: ntiles 125 136 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 126 137 INTEGER , OPTIONAL, INTENT(IN) :: prec 127 138 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 128 139 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 140 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 141 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 142 INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 143 INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 144 INTEGER , OPTIONAL, INTENT(IN) :: tile_ni(:) 145 INTEGER , OPTIONAL, INTENT(IN) :: tile_nj(:) 129 146 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 130 147 … … 134 151 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 135 152 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 136 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 153 , 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 ) 137 155 138 156 END SUBROUTINE xios(set_domain_attr_hdl) … … 143 161 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ & 144 162 , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ & 145 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_ & 163 , 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_ & 146 165 ) 147 166 … … 186 205 INTEGER , OPTIONAL, INTENT(IN) :: nj_ 187 206 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_ 207 INTEGER , OPTIONAL, INTENT(IN) :: ntiles_ 188 208 INTEGER , OPTIONAL, INTENT(IN) :: nvertex_ 189 209 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 190 210 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 191 211 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 212 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:) 213 INTEGER , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:) 214 INTEGER , OPTIONAL, INTENT(IN) :: tile_ibegin_(:) 215 INTEGER , OPTIONAL, INTENT(IN) :: tile_jbegin_(:) 216 INTEGER , OPTIONAL, INTENT(IN) :: tile_ni_(:) 217 INTEGER , OPTIONAL, INTENT(IN) :: tile_nj_(:) 192 218 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 193 219 … … 376 402 ENDIF 377 403 404 IF (PRESENT(ntiles_)) THEN 405 CALL cxios_set_domain_ntiles & 406 (domain_hdl%daddr, ntiles_) 407 ENDIF 408 378 409 IF (PRESENT(nvertex_)) THEN 379 410 CALL cxios_set_domain_nvertex & … … 394 425 CALL cxios_set_domain_standard_name & 395 426 (domain_hdl%daddr, standard_name_, len(standard_name_)) 427 ENDIF 428 429 IF (PRESENT(tile_data_ibegin_)) THEN 430 CALL cxios_set_domain_tile_data_ibegin & 431 (domain_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 432 ENDIF 433 434 IF (PRESENT(tile_data_jbegin_)) THEN 435 CALL cxios_set_domain_tile_data_jbegin & 436 (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 437 ENDIF 438 439 IF (PRESENT(tile_ibegin_)) THEN 440 CALL cxios_set_domain_tile_ibegin & 441 (domain_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 442 ENDIF 443 444 IF (PRESENT(tile_jbegin_)) THEN 445 CALL cxios_set_domain_tile_jbegin & 446 (domain_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 447 ENDIF 448 449 IF (PRESENT(tile_ni_)) THEN 450 CALL cxios_set_domain_tile_ni & 451 (domain_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 452 ENDIF 453 454 IF (PRESENT(tile_nj_)) THEN 455 CALL cxios_set_domain_tile_nj & 456 (domain_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 396 457 ENDIF 397 458 … … 408 469 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 409 470 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 410 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 471 , 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 ) 411 473 412 474 IMPLICIT NONE … … 451 513 INTEGER , OPTIONAL, INTENT(OUT) :: nj 452 514 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 515 INTEGER , OPTIONAL, INTENT(OUT) :: ntiles 453 516 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 454 517 INTEGER , OPTIONAL, INTENT(OUT) :: prec 455 518 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 456 519 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 520 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 521 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 522 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 523 INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 524 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ni(:) 525 INTEGER , OPTIONAL, INTENT(OUT) :: tile_nj(:) 457 526 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 458 527 … … 464 533 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 465 534 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 466 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 535 , 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 ) 467 537 468 538 END SUBROUTINE xios(get_domain_attr) … … 473 543 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 474 544 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 475 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 545 , 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 ) 476 547 477 548 IMPLICIT NONE … … 515 586 INTEGER , OPTIONAL, INTENT(OUT) :: nj 516 587 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 588 INTEGER , OPTIONAL, INTENT(OUT) :: ntiles 517 589 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 518 590 INTEGER , OPTIONAL, INTENT(OUT) :: prec 519 591 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 520 592 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 593 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 594 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 595 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 596 INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 597 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ni(:) 598 INTEGER , OPTIONAL, INTENT(OUT) :: tile_nj(:) 521 599 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 522 600 … … 526 604 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 527 605 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 528 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 606 , 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 ) 529 608 530 609 END SUBROUTINE xios(get_domain_attr_hdl) … … 535 614 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ & 536 615 , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ & 537 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_ & 616 , 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_ & 538 618 ) 539 619 … … 578 658 INTEGER , OPTIONAL, INTENT(OUT) :: nj_ 579 659 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_ 660 INTEGER , OPTIONAL, INTENT(OUT) :: ntiles_ 580 661 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_ 581 662 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 582 663 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 583 664 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 665 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:) 666 INTEGER , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:) 667 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:) 668 INTEGER , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:) 669 INTEGER , OPTIONAL, INTENT(OUT) :: tile_ni_(:) 670 INTEGER , OPTIONAL, INTENT(OUT) :: tile_nj_(:) 584 671 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 585 672 … … 768 855 ENDIF 769 856 857 IF (PRESENT(ntiles_)) THEN 858 CALL cxios_get_domain_ntiles & 859 (domain_hdl%daddr, ntiles_) 860 ENDIF 861 770 862 IF (PRESENT(nvertex_)) THEN 771 863 CALL cxios_get_domain_nvertex & … … 786 878 CALL cxios_get_domain_standard_name & 787 879 (domain_hdl%daddr, standard_name_, len(standard_name_)) 880 ENDIF 881 882 IF (PRESENT(tile_data_ibegin_)) THEN 883 CALL cxios_get_domain_tile_data_ibegin & 884 (domain_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 885 ENDIF 886 887 IF (PRESENT(tile_data_jbegin_)) THEN 888 CALL cxios_get_domain_tile_data_jbegin & 889 (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 890 ENDIF 891 892 IF (PRESENT(tile_ibegin_)) THEN 893 CALL cxios_get_domain_tile_ibegin & 894 (domain_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 895 ENDIF 896 897 IF (PRESENT(tile_jbegin_)) THEN 898 CALL cxios_get_domain_tile_jbegin & 899 (domain_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 900 ENDIF 901 902 IF (PRESENT(tile_ni_)) THEN 903 CALL cxios_get_domain_tile_ni & 904 (domain_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 905 ENDIF 906 907 IF (PRESENT(tile_nj_)) THEN 908 CALL cxios_get_domain_tile_nj & 909 (domain_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 788 910 ENDIF 789 911 … … 800 922 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 801 923 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 802 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 924 , 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 ) 803 926 804 927 IMPLICIT NONE … … 877 1000 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 878 1001 LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 1002 LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 1003 LOGICAL(KIND=C_BOOL) :: ntiles_tmp 879 1004 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 880 1005 LOGICAL(KIND=C_BOOL) :: nvertex_tmp … … 885 1010 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 886 1011 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 1012 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 1013 LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 1014 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 1015 LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 1016 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 1017 LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 1018 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 1019 LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 1020 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 1021 LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 1022 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 1023 LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 887 1024 LOGICAL, OPTIONAL, INTENT(OUT) :: type 888 1025 LOGICAL(KIND=C_BOOL) :: type_tmp … … 895 1032 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 896 1033 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 897 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 1034 , 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 ) 898 1036 899 1037 END SUBROUTINE xios(is_defined_domain_attr) … … 904 1042 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 905 1043 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 906 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 1044 , 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 ) 907 1046 908 1047 IMPLICIT NONE … … 980 1119 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 981 1120 LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 1121 LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 1122 LOGICAL(KIND=C_BOOL) :: ntiles_tmp 982 1123 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 983 1124 LOGICAL(KIND=C_BOOL) :: nvertex_tmp … … 988 1129 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 989 1130 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 1131 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 1132 LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 1133 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 1134 LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 1135 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 1136 LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 1137 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 1138 LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 1139 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 1140 LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 1141 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 1142 LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 990 1143 LOGICAL, OPTIONAL, INTENT(OUT) :: type 991 1144 LOGICAL(KIND=C_BOOL) :: type_tmp … … 996 1149 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 997 1150 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 998 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 1151 , 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 ) 999 1153 1000 1154 END SUBROUTINE xios(is_defined_domain_attr_hdl) … … 1005 1159 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ & 1006 1160 , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ & 1007 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_ & 1161 , 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_ & 1008 1163 ) 1009 1164 … … 1082 1237 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_ 1083 1238 LOGICAL(KIND=C_BOOL) :: nj_glo__tmp 1239 LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles_ 1240 LOGICAL(KIND=C_BOOL) :: ntiles__tmp 1084 1241 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 1085 1242 LOGICAL(KIND=C_BOOL) :: nvertex__tmp … … 1090 1247 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 1091 1248 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 1249 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin_ 1250 LOGICAL(KIND=C_BOOL) :: tile_data_ibegin__tmp 1251 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_ 1252 LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp 1253 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_ 1254 LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp 1255 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin_ 1256 LOGICAL(KIND=C_BOOL) :: tile_jbegin__tmp 1257 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni_ 1258 LOGICAL(KIND=C_BOOL) :: tile_ni__tmp 1259 LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj_ 1260 LOGICAL(KIND=C_BOOL) :: tile_nj__tmp 1092 1261 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 1093 1262 LOGICAL(KIND=C_BOOL) :: type__tmp … … 1309 1478 ENDIF 1310 1479 1480 IF (PRESENT(ntiles_)) THEN 1481 ntiles__tmp = cxios_is_defined_domain_ntiles & 1482 (domain_hdl%daddr) 1483 ntiles_ = ntiles__tmp 1484 ENDIF 1485 1311 1486 IF (PRESENT(nvertex_)) THEN 1312 1487 nvertex__tmp = cxios_is_defined_domain_nvertex & … … 1333 1508 ENDIF 1334 1509 1510 IF (PRESENT(tile_data_ibegin_)) THEN 1511 tile_data_ibegin__tmp = cxios_is_defined_domain_tile_data_ibegin & 1512 (domain_hdl%daddr) 1513 tile_data_ibegin_ = tile_data_ibegin__tmp 1514 ENDIF 1515 1516 IF (PRESENT(tile_data_jbegin_)) THEN 1517 tile_data_jbegin__tmp = cxios_is_defined_domain_tile_data_jbegin & 1518 (domain_hdl%daddr) 1519 tile_data_jbegin_ = tile_data_jbegin__tmp 1520 ENDIF 1521 1522 IF (PRESENT(tile_ibegin_)) THEN 1523 tile_ibegin__tmp = cxios_is_defined_domain_tile_ibegin & 1524 (domain_hdl%daddr) 1525 tile_ibegin_ = tile_ibegin__tmp 1526 ENDIF 1527 1528 IF (PRESENT(tile_jbegin_)) THEN 1529 tile_jbegin__tmp = cxios_is_defined_domain_tile_jbegin & 1530 (domain_hdl%daddr) 1531 tile_jbegin_ = tile_jbegin__tmp 1532 ENDIF 1533 1534 IF (PRESENT(tile_ni_)) THEN 1535 tile_ni__tmp = cxios_is_defined_domain_tile_ni & 1536 (domain_hdl%daddr) 1537 tile_ni_ = tile_ni__tmp 1538 ENDIF 1539 1540 IF (PRESENT(tile_nj_)) THEN 1541 tile_nj__tmp = cxios_is_defined_domain_tile_nj & 1542 (domain_hdl%daddr) 1543 tile_nj_ = tile_nj__tmp 1544 ENDIF 1545 1335 1546 IF (PRESENT(type_)) THEN 1336 1547 type__tmp = cxios_is_defined_domain_type & -
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.