Changeset 2616 for XIOS3/trunk/src
- Timestamp:
- 03/19/24 14:23:16 (4 months ago)
- Location:
- XIOS3/trunk/src
- Files:
-
- 15 added
- 28 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS3/trunk/src/generate_fortran_interface.cpp
r2507 r2616 335 335 file.close(); 336 336 337 file.open((path+"redistribute_domain_interface_attr.F90").c_str()); 338 redistributeDomain.generateFortran2003Interface(file); 339 file.close(); 340 341 file.open((path+"icredistribute_domain_attr.cpp").c_str()); 342 redistributeDomain.generateCInterface(file); 343 file.close(); 344 337 345 file.open((path+"iredistribute_domain_attr.F90").c_str()); 338 346 redistributeDomain.generateFortranInterface(file); … … 444 452 file.close(); 445 453 454 file.open((path+"redistribute_axis_interface_attr.F90").c_str()); 455 redistributeAxis.generateFortran2003Interface(file); 456 file.close(); 457 458 file.open((path+"icredistribute_axis_attr.cpp").c_str()); 459 redistributeAxis.generateCInterface(file); 460 file.close(); 461 446 462 file.open((path+"iredistribute_axis_attr.F90").c_str()); 447 463 redistributeAxis.generateFortranInterface(file); … … 501 517 file.close(); 502 518 519 file.open((path+"redistribute_scalar_interface_attr.F90").c_str()); 520 redistributeScalar.generateFortran2003Interface(file); 521 file.close(); 522 523 file.open((path+"icredistribute_scalar_attr.cpp").c_str()); 524 redistributeScalar.generateCInterface(file); 525 file.close(); 526 503 527 file.open((path+"iredistribute_scalar_attr.F90").c_str()); 504 528 redistributeScalar.generateFortranInterface(file); -
XIOS3/trunk/src/interface/c_attr/icaxis_attr.cpp
r1626 r2616 143 143 144 144 145 void cxios_set_axis_chunking_weight(axis_Ptr axis_hdl, double chunking_weight) 146 { 147 CTimer::get("XIOS").resume(); 148 axis_hdl->chunking_weight.setValue(chunking_weight); 149 CTimer::get("XIOS").suspend(); 150 } 151 152 void cxios_get_axis_chunking_weight(axis_Ptr axis_hdl, double* chunking_weight) 153 { 154 CTimer::get("XIOS").resume(); 155 *chunking_weight = axis_hdl->chunking_weight.getInheritedValue(); 156 CTimer::get("XIOS").suspend(); 157 } 158 159 bool cxios_is_defined_axis_chunking_weight(axis_Ptr axis_hdl) 160 { 161 CTimer::get("XIOS").resume(); 162 bool isDefined = axis_hdl->chunking_weight.hasInheritedValue(); 163 CTimer::get("XIOS").suspend(); 164 return isDefined; 165 } 166 167 145 168 void cxios_set_axis_comment(axis_Ptr axis_hdl, const char * comment, int comment_size) 146 169 { -
XIOS3/trunk/src/interface/c_attr/icaxisgroup_attr.cpp
r1626 r2616 143 143 144 144 145 void cxios_set_axisgroup_chunking_weight(axisgroup_Ptr axisgroup_hdl, double chunking_weight) 146 { 147 CTimer::get("XIOS").resume(); 148 axisgroup_hdl->chunking_weight.setValue(chunking_weight); 149 CTimer::get("XIOS").suspend(); 150 } 151 152 void cxios_get_axisgroup_chunking_weight(axisgroup_Ptr axisgroup_hdl, double* chunking_weight) 153 { 154 CTimer::get("XIOS").resume(); 155 *chunking_weight = axisgroup_hdl->chunking_weight.getInheritedValue(); 156 CTimer::get("XIOS").suspend(); 157 } 158 159 bool cxios_is_defined_axisgroup_chunking_weight(axisgroup_Ptr axisgroup_hdl) 160 { 161 CTimer::get("XIOS").resume(); 162 bool isDefined = axisgroup_hdl->chunking_weight.hasInheritedValue(); 163 CTimer::get("XIOS").suspend(); 164 return isDefined; 165 } 166 167 145 168 void cxios_set_axisgroup_comment(axisgroup_Ptr axisgroup_hdl, const char * comment, int comment_size) 146 169 { -
XIOS3/trunk/src/interface/c_attr/iccontext_attr.cpp
r1941 r2616 40 40 41 41 42 void cxios_set_context_default_gatherer(context_Ptr context_hdl, const char * default_gatherer, int default_gatherer_size) 43 { 44 std::string default_gatherer_str; 45 if (!cstr2string(default_gatherer, default_gatherer_size, default_gatherer_str)) return; 46 CTimer::get("XIOS").resume(); 47 context_hdl->default_gatherer.setValue(default_gatherer_str); 48 CTimer::get("XIOS").suspend(); 49 } 50 51 void cxios_get_context_default_gatherer(context_Ptr context_hdl, char * default_gatherer, int default_gatherer_size) 52 { 53 CTimer::get("XIOS").resume(); 54 if (!string_copy(context_hdl->default_gatherer.getInheritedValue(), default_gatherer, default_gatherer_size)) 55 ERROR("void cxios_get_context_default_gatherer(context_Ptr context_hdl, char * default_gatherer, int default_gatherer_size)", << "Input string is too short"); 56 CTimer::get("XIOS").suspend(); 57 } 58 59 bool cxios_is_defined_context_default_gatherer(context_Ptr context_hdl) 60 { 61 CTimer::get("XIOS").resume(); 62 bool isDefined = context_hdl->default_gatherer.hasInheritedValue(); 63 CTimer::get("XIOS").suspend(); 64 return isDefined; 65 } 66 67 68 void cxios_set_context_default_pool(context_Ptr context_hdl, const char * default_pool, int default_pool_size) 69 { 70 std::string default_pool_str; 71 if (!cstr2string(default_pool, default_pool_size, default_pool_str)) return; 72 CTimer::get("XIOS").resume(); 73 context_hdl->default_pool.setValue(default_pool_str); 74 CTimer::get("XIOS").suspend(); 75 } 76 77 void cxios_get_context_default_pool(context_Ptr context_hdl, char * default_pool, int default_pool_size) 78 { 79 CTimer::get("XIOS").resume(); 80 if (!string_copy(context_hdl->default_pool.getInheritedValue(), default_pool, default_pool_size)) 81 ERROR("void cxios_get_context_default_pool(context_Ptr context_hdl, char * default_pool, int default_pool_size)", << "Input string is too short"); 82 CTimer::get("XIOS").suspend(); 83 } 84 85 bool cxios_is_defined_context_default_pool(context_Ptr context_hdl) 86 { 87 CTimer::get("XIOS").resume(); 88 bool isDefined = context_hdl->default_pool.hasInheritedValue(); 89 CTimer::get("XIOS").suspend(); 90 return isDefined; 91 } 92 93 94 void cxios_set_context_default_pool_gatherer(context_Ptr context_hdl, const char * default_pool_gatherer, int default_pool_gatherer_size) 95 { 96 std::string default_pool_gatherer_str; 97 if (!cstr2string(default_pool_gatherer, default_pool_gatherer_size, default_pool_gatherer_str)) return; 98 CTimer::get("XIOS").resume(); 99 context_hdl->default_pool_gatherer.setValue(default_pool_gatherer_str); 100 CTimer::get("XIOS").suspend(); 101 } 102 103 void cxios_get_context_default_pool_gatherer(context_Ptr context_hdl, char * default_pool_gatherer, int default_pool_gatherer_size) 104 { 105 CTimer::get("XIOS").resume(); 106 if (!string_copy(context_hdl->default_pool_gatherer.getInheritedValue(), default_pool_gatherer, default_pool_gatherer_size)) 107 ERROR("void cxios_get_context_default_pool_gatherer(context_Ptr context_hdl, char * default_pool_gatherer, int default_pool_gatherer_size)", << "Input string is too short"); 108 CTimer::get("XIOS").suspend(); 109 } 110 111 bool cxios_is_defined_context_default_pool_gatherer(context_Ptr context_hdl) 112 { 113 CTimer::get("XIOS").resume(); 114 bool isDefined = context_hdl->default_pool_gatherer.hasInheritedValue(); 115 CTimer::get("XIOS").suspend(); 116 return isDefined; 117 } 118 119 120 void cxios_set_context_default_pool_reader(context_Ptr context_hdl, const char * default_pool_reader, int default_pool_reader_size) 121 { 122 std::string default_pool_reader_str; 123 if (!cstr2string(default_pool_reader, default_pool_reader_size, default_pool_reader_str)) return; 124 CTimer::get("XIOS").resume(); 125 context_hdl->default_pool_reader.setValue(default_pool_reader_str); 126 CTimer::get("XIOS").suspend(); 127 } 128 129 void cxios_get_context_default_pool_reader(context_Ptr context_hdl, char * default_pool_reader, int default_pool_reader_size) 130 { 131 CTimer::get("XIOS").resume(); 132 if (!string_copy(context_hdl->default_pool_reader.getInheritedValue(), default_pool_reader, default_pool_reader_size)) 133 ERROR("void cxios_get_context_default_pool_reader(context_Ptr context_hdl, char * default_pool_reader, int default_pool_reader_size)", << "Input string is too short"); 134 CTimer::get("XIOS").suspend(); 135 } 136 137 bool cxios_is_defined_context_default_pool_reader(context_Ptr context_hdl) 138 { 139 CTimer::get("XIOS").resume(); 140 bool isDefined = context_hdl->default_pool_reader.hasInheritedValue(); 141 CTimer::get("XIOS").suspend(); 142 return isDefined; 143 } 144 145 146 void cxios_set_context_default_pool_writer(context_Ptr context_hdl, const char * default_pool_writer, int default_pool_writer_size) 147 { 148 std::string default_pool_writer_str; 149 if (!cstr2string(default_pool_writer, default_pool_writer_size, default_pool_writer_str)) return; 150 CTimer::get("XIOS").resume(); 151 context_hdl->default_pool_writer.setValue(default_pool_writer_str); 152 CTimer::get("XIOS").suspend(); 153 } 154 155 void cxios_get_context_default_pool_writer(context_Ptr context_hdl, char * default_pool_writer, int default_pool_writer_size) 156 { 157 CTimer::get("XIOS").resume(); 158 if (!string_copy(context_hdl->default_pool_writer.getInheritedValue(), default_pool_writer, default_pool_writer_size)) 159 ERROR("void cxios_get_context_default_pool_writer(context_Ptr context_hdl, char * default_pool_writer, int default_pool_writer_size)", << "Input string is too short"); 160 CTimer::get("XIOS").suspend(); 161 } 162 163 bool cxios_is_defined_context_default_pool_writer(context_Ptr context_hdl) 164 { 165 CTimer::get("XIOS").resume(); 166 bool isDefined = context_hdl->default_pool_writer.hasInheritedValue(); 167 CTimer::get("XIOS").suspend(); 168 return isDefined; 169 } 170 171 172 void cxios_set_context_default_reader(context_Ptr context_hdl, const char * default_reader, int default_reader_size) 173 { 174 std::string default_reader_str; 175 if (!cstr2string(default_reader, default_reader_size, default_reader_str)) return; 176 CTimer::get("XIOS").resume(); 177 context_hdl->default_reader.setValue(default_reader_str); 178 CTimer::get("XIOS").suspend(); 179 } 180 181 void cxios_get_context_default_reader(context_Ptr context_hdl, char * default_reader, int default_reader_size) 182 { 183 CTimer::get("XIOS").resume(); 184 if (!string_copy(context_hdl->default_reader.getInheritedValue(), default_reader, default_reader_size)) 185 ERROR("void cxios_get_context_default_reader(context_Ptr context_hdl, char * default_reader, int default_reader_size)", << "Input string is too short"); 186 CTimer::get("XIOS").suspend(); 187 } 188 189 bool cxios_is_defined_context_default_reader(context_Ptr context_hdl) 190 { 191 CTimer::get("XIOS").resume(); 192 bool isDefined = context_hdl->default_reader.hasInheritedValue(); 193 CTimer::get("XIOS").suspend(); 194 return isDefined; 195 } 196 197 198 void cxios_set_context_default_using_server2(context_Ptr context_hdl, bool default_using_server2) 199 { 200 CTimer::get("XIOS").resume(); 201 context_hdl->default_using_server2.setValue(default_using_server2); 202 CTimer::get("XIOS").suspend(); 203 } 204 205 void cxios_get_context_default_using_server2(context_Ptr context_hdl, bool* default_using_server2) 206 { 207 CTimer::get("XIOS").resume(); 208 *default_using_server2 = context_hdl->default_using_server2.getInheritedValue(); 209 CTimer::get("XIOS").suspend(); 210 } 211 212 bool cxios_is_defined_context_default_using_server2(context_Ptr context_hdl) 213 { 214 CTimer::get("XIOS").resume(); 215 bool isDefined = context_hdl->default_using_server2.hasInheritedValue(); 216 CTimer::get("XIOS").suspend(); 217 return isDefined; 218 } 219 220 221 void cxios_set_context_default_writer(context_Ptr context_hdl, const char * default_writer, int default_writer_size) 222 { 223 std::string default_writer_str; 224 if (!cstr2string(default_writer, default_writer_size, default_writer_str)) return; 225 CTimer::get("XIOS").resume(); 226 context_hdl->default_writer.setValue(default_writer_str); 227 CTimer::get("XIOS").suspend(); 228 } 229 230 void cxios_get_context_default_writer(context_Ptr context_hdl, char * default_writer, int default_writer_size) 231 { 232 CTimer::get("XIOS").resume(); 233 if (!string_copy(context_hdl->default_writer.getInheritedValue(), default_writer, default_writer_size)) 234 ERROR("void cxios_get_context_default_writer(context_Ptr context_hdl, char * default_writer, int default_writer_size)", << "Input string is too short"); 235 CTimer::get("XIOS").suspend(); 236 } 237 238 bool cxios_is_defined_context_default_writer(context_Ptr context_hdl) 239 { 240 CTimer::get("XIOS").resume(); 241 bool isDefined = context_hdl->default_writer.hasInheritedValue(); 242 CTimer::get("XIOS").suspend(); 243 return isDefined; 244 } 245 246 42 247 void cxios_set_context_output_dir(context_Ptr context_hdl, const char * output_dir, int output_dir_size) 43 248 { -
XIOS3/trunk/src/interface/c_attr/icdomain_attr.cpp
r1626 r2616 42 42 43 43 44 void cxios_set_domain_area_1d(domain_Ptr domain_hdl, double* area_1d, int* extent) 45 { 46 CTimer::get("XIOS").resume(); 47 CArray<double,1> tmp(area_1d, shape(extent[0]), neverDeleteData); 48 domain_hdl->area_1d.reference(tmp.copy()); 49 CTimer::get("XIOS").suspend(); 50 } 51 52 void cxios_get_domain_area_1d(domain_Ptr domain_hdl, double* area_1d, int* extent) 53 { 54 CTimer::get("XIOS").resume(); 55 CArray<double,1> tmp(area_1d, shape(extent[0]), neverDeleteData); 56 tmp=domain_hdl->area_1d.getInheritedValue(); 57 CTimer::get("XIOS").suspend(); 58 } 59 60 bool cxios_is_defined_domain_area_1d(domain_Ptr domain_hdl) 61 { 62 CTimer::get("XIOS").resume(); 63 bool isDefined = domain_hdl->area_1d.hasInheritedValue(); 64 CTimer::get("XIOS").suspend(); 65 return isDefined; 66 } 67 68 69 void cxios_set_domain_area_2d(domain_Ptr domain_hdl, double* area_2d, int* extent) 70 { 71 CTimer::get("XIOS").resume(); 72 CArray<double,2> tmp(area_2d, shape(extent[0], extent[1]), neverDeleteData); 73 domain_hdl->area_2d.reference(tmp.copy()); 74 CTimer::get("XIOS").suspend(); 75 } 76 77 void cxios_get_domain_area_2d(domain_Ptr domain_hdl, double* area_2d, int* extent) 78 { 79 CTimer::get("XIOS").resume(); 80 CArray<double,2> tmp(area_2d, shape(extent[0], extent[1]), neverDeleteData); 81 tmp=domain_hdl->area_2d.getInheritedValue(); 82 CTimer::get("XIOS").suspend(); 83 } 84 85 bool cxios_is_defined_domain_area_2d(domain_Ptr domain_hdl) 86 { 87 CTimer::get("XIOS").resume(); 88 bool isDefined = domain_hdl->area_2d.hasInheritedValue(); 89 CTimer::get("XIOS").suspend(); 90 return isDefined; 91 } 92 93 44 94 void cxios_set_domain_bounds_lat_1d(domain_Ptr domain_hdl, double* bounds_lat_1d, int* extent) 45 95 { … … 194 244 195 245 246 void cxios_set_domain_chunking_weight_i(domain_Ptr domain_hdl, double chunking_weight_i) 247 { 248 CTimer::get("XIOS").resume(); 249 domain_hdl->chunking_weight_i.setValue(chunking_weight_i); 250 CTimer::get("XIOS").suspend(); 251 } 252 253 void cxios_get_domain_chunking_weight_i(domain_Ptr domain_hdl, double* chunking_weight_i) 254 { 255 CTimer::get("XIOS").resume(); 256 *chunking_weight_i = domain_hdl->chunking_weight_i.getInheritedValue(); 257 CTimer::get("XIOS").suspend(); 258 } 259 260 bool cxios_is_defined_domain_chunking_weight_i(domain_Ptr domain_hdl) 261 { 262 CTimer::get("XIOS").resume(); 263 bool isDefined = domain_hdl->chunking_weight_i.hasInheritedValue(); 264 CTimer::get("XIOS").suspend(); 265 return isDefined; 266 } 267 268 269 void cxios_set_domain_chunking_weight_j(domain_Ptr domain_hdl, double chunking_weight_j) 270 { 271 CTimer::get("XIOS").resume(); 272 domain_hdl->chunking_weight_j.setValue(chunking_weight_j); 273 CTimer::get("XIOS").suspend(); 274 } 275 276 void cxios_get_domain_chunking_weight_j(domain_Ptr domain_hdl, double* chunking_weight_j) 277 { 278 CTimer::get("XIOS").resume(); 279 *chunking_weight_j = domain_hdl->chunking_weight_j.getInheritedValue(); 280 CTimer::get("XIOS").suspend(); 281 } 282 283 bool cxios_is_defined_domain_chunking_weight_j(domain_Ptr domain_hdl) 284 { 285 CTimer::get("XIOS").resume(); 286 bool isDefined = domain_hdl->chunking_weight_j.hasInheritedValue(); 287 CTimer::get("XIOS").suspend(); 288 return isDefined; 289 } 290 291 196 292 void cxios_set_domain_comment(domain_Ptr domain_hdl, const char * comment, int comment_size) 197 293 { … … 928 1024 929 1025 1026 void cxios_set_domain_nvertex_name(domain_Ptr domain_hdl, const char * nvertex_name, int nvertex_name_size) 1027 { 1028 std::string nvertex_name_str; 1029 if (!cstr2string(nvertex_name, nvertex_name_size, nvertex_name_str)) return; 1030 CTimer::get("XIOS").resume(); 1031 domain_hdl->nvertex_name.setValue(nvertex_name_str); 1032 CTimer::get("XIOS").suspend(); 1033 } 1034 1035 void cxios_get_domain_nvertex_name(domain_Ptr domain_hdl, char * nvertex_name, int nvertex_name_size) 1036 { 1037 CTimer::get("XIOS").resume(); 1038 if (!string_copy(domain_hdl->nvertex_name.getInheritedValue(), nvertex_name, nvertex_name_size)) 1039 ERROR("void cxios_get_domain_nvertex_name(domain_Ptr domain_hdl, char * nvertex_name, int nvertex_name_size)", << "Input string is too short"); 1040 CTimer::get("XIOS").suspend(); 1041 } 1042 1043 bool cxios_is_defined_domain_nvertex_name(domain_Ptr domain_hdl) 1044 { 1045 CTimer::get("XIOS").resume(); 1046 bool isDefined = domain_hdl->nvertex_name.hasInheritedValue(); 1047 CTimer::get("XIOS").suspend(); 1048 return isDefined; 1049 } 1050 1051 930 1052 void cxios_set_domain_prec(domain_Ptr domain_hdl, int prec) 931 1053 { -
XIOS3/trunk/src/interface/c_attr/icdomaingroup_attr.cpp
r1626 r2616 42 42 43 43 44 void cxios_set_domaingroup_area_1d(domaingroup_Ptr domaingroup_hdl, double* area_1d, int* extent) 45 { 46 CTimer::get("XIOS").resume(); 47 CArray<double,1> tmp(area_1d, shape(extent[0]), neverDeleteData); 48 domaingroup_hdl->area_1d.reference(tmp.copy()); 49 CTimer::get("XIOS").suspend(); 50 } 51 52 void cxios_get_domaingroup_area_1d(domaingroup_Ptr domaingroup_hdl, double* area_1d, int* extent) 53 { 54 CTimer::get("XIOS").resume(); 55 CArray<double,1> tmp(area_1d, shape(extent[0]), neverDeleteData); 56 tmp=domaingroup_hdl->area_1d.getInheritedValue(); 57 CTimer::get("XIOS").suspend(); 58 } 59 60 bool cxios_is_defined_domaingroup_area_1d(domaingroup_Ptr domaingroup_hdl) 61 { 62 CTimer::get("XIOS").resume(); 63 bool isDefined = domaingroup_hdl->area_1d.hasInheritedValue(); 64 CTimer::get("XIOS").suspend(); 65 return isDefined; 66 } 67 68 69 void cxios_set_domaingroup_area_2d(domaingroup_Ptr domaingroup_hdl, double* area_2d, int* extent) 70 { 71 CTimer::get("XIOS").resume(); 72 CArray<double,2> tmp(area_2d, shape(extent[0], extent[1]), neverDeleteData); 73 domaingroup_hdl->area_2d.reference(tmp.copy()); 74 CTimer::get("XIOS").suspend(); 75 } 76 77 void cxios_get_domaingroup_area_2d(domaingroup_Ptr domaingroup_hdl, double* area_2d, int* extent) 78 { 79 CTimer::get("XIOS").resume(); 80 CArray<double,2> tmp(area_2d, shape(extent[0], extent[1]), neverDeleteData); 81 tmp=domaingroup_hdl->area_2d.getInheritedValue(); 82 CTimer::get("XIOS").suspend(); 83 } 84 85 bool cxios_is_defined_domaingroup_area_2d(domaingroup_Ptr domaingroup_hdl) 86 { 87 CTimer::get("XIOS").resume(); 88 bool isDefined = domaingroup_hdl->area_2d.hasInheritedValue(); 89 CTimer::get("XIOS").suspend(); 90 return isDefined; 91 } 92 93 44 94 void cxios_set_domaingroup_bounds_lat_1d(domaingroup_Ptr domaingroup_hdl, double* bounds_lat_1d, int* extent) 45 95 { … … 194 244 195 245 246 void cxios_set_domaingroup_chunking_weight_i(domaingroup_Ptr domaingroup_hdl, double chunking_weight_i) 247 { 248 CTimer::get("XIOS").resume(); 249 domaingroup_hdl->chunking_weight_i.setValue(chunking_weight_i); 250 CTimer::get("XIOS").suspend(); 251 } 252 253 void cxios_get_domaingroup_chunking_weight_i(domaingroup_Ptr domaingroup_hdl, double* chunking_weight_i) 254 { 255 CTimer::get("XIOS").resume(); 256 *chunking_weight_i = domaingroup_hdl->chunking_weight_i.getInheritedValue(); 257 CTimer::get("XIOS").suspend(); 258 } 259 260 bool cxios_is_defined_domaingroup_chunking_weight_i(domaingroup_Ptr domaingroup_hdl) 261 { 262 CTimer::get("XIOS").resume(); 263 bool isDefined = domaingroup_hdl->chunking_weight_i.hasInheritedValue(); 264 CTimer::get("XIOS").suspend(); 265 return isDefined; 266 } 267 268 269 void cxios_set_domaingroup_chunking_weight_j(domaingroup_Ptr domaingroup_hdl, double chunking_weight_j) 270 { 271 CTimer::get("XIOS").resume(); 272 domaingroup_hdl->chunking_weight_j.setValue(chunking_weight_j); 273 CTimer::get("XIOS").suspend(); 274 } 275 276 void cxios_get_domaingroup_chunking_weight_j(domaingroup_Ptr domaingroup_hdl, double* chunking_weight_j) 277 { 278 CTimer::get("XIOS").resume(); 279 *chunking_weight_j = domaingroup_hdl->chunking_weight_j.getInheritedValue(); 280 CTimer::get("XIOS").suspend(); 281 } 282 283 bool cxios_is_defined_domaingroup_chunking_weight_j(domaingroup_Ptr domaingroup_hdl) 284 { 285 CTimer::get("XIOS").resume(); 286 bool isDefined = domaingroup_hdl->chunking_weight_j.hasInheritedValue(); 287 CTimer::get("XIOS").suspend(); 288 return isDefined; 289 } 290 291 196 292 void cxios_set_domaingroup_comment(domaingroup_Ptr domaingroup_hdl, const char * comment, int comment_size) 197 293 { … … 954 1050 955 1051 1052 void cxios_set_domaingroup_nvertex_name(domaingroup_Ptr domaingroup_hdl, const char * nvertex_name, int nvertex_name_size) 1053 { 1054 std::string nvertex_name_str; 1055 if (!cstr2string(nvertex_name, nvertex_name_size, nvertex_name_str)) return; 1056 CTimer::get("XIOS").resume(); 1057 domaingroup_hdl->nvertex_name.setValue(nvertex_name_str); 1058 CTimer::get("XIOS").suspend(); 1059 } 1060 1061 void cxios_get_domaingroup_nvertex_name(domaingroup_Ptr domaingroup_hdl, char * nvertex_name, int nvertex_name_size) 1062 { 1063 CTimer::get("XIOS").resume(); 1064 if (!string_copy(domaingroup_hdl->nvertex_name.getInheritedValue(), nvertex_name, nvertex_name_size)) 1065 ERROR("void cxios_get_domaingroup_nvertex_name(domaingroup_Ptr domaingroup_hdl, char * nvertex_name, int nvertex_name_size)", << "Input string is too short"); 1066 CTimer::get("XIOS").suspend(); 1067 } 1068 1069 bool cxios_is_defined_domaingroup_nvertex_name(domaingroup_Ptr domaingroup_hdl) 1070 { 1071 CTimer::get("XIOS").resume(); 1072 bool isDefined = domaingroup_hdl->nvertex_name.hasInheritedValue(); 1073 CTimer::get("XIOS").suspend(); 1074 return isDefined; 1075 } 1076 1077 956 1078 void cxios_set_domaingroup_prec(domaingroup_Ptr domaingroup_hdl, int prec) 957 1079 { -
XIOS3/trunk/src/interface/c_attr/icfield_attr.cpp
r2338 r2616 164 164 165 165 166 void cxios_set_field_chunking_blocksize_target(field_Ptr field_hdl, double chunking_blocksize_target) 167 { 168 CTimer::get("XIOS").resume(); 169 field_hdl->chunking_blocksize_target.setValue(chunking_blocksize_target); 170 CTimer::get("XIOS").suspend(); 171 } 172 173 void cxios_get_field_chunking_blocksize_target(field_Ptr field_hdl, double* chunking_blocksize_target) 174 { 175 CTimer::get("XIOS").resume(); 176 *chunking_blocksize_target = field_hdl->chunking_blocksize_target.getInheritedValue(); 177 CTimer::get("XIOS").suspend(); 178 } 179 180 bool cxios_is_defined_field_chunking_blocksize_target(field_Ptr field_hdl) 181 { 182 CTimer::get("XIOS").resume(); 183 bool isDefined = field_hdl->chunking_blocksize_target.hasInheritedValue(); 184 CTimer::get("XIOS").suspend(); 185 return isDefined; 186 } 187 188 166 189 void cxios_set_field_comment(field_Ptr field_hdl, const char * comment, int comment_size) 167 190 { … … 208 231 CTimer::get("XIOS").resume(); 209 232 bool isDefined = field_hdl->compression_level.hasInheritedValue(); 233 CTimer::get("XIOS").suspend(); 234 return isDefined; 235 } 236 237 238 void cxios_set_field_compression_params(field_Ptr field_hdl, double* compression_params, int* extent) 239 { 240 CTimer::get("XIOS").resume(); 241 CArray<double,1> tmp(compression_params, shape(extent[0]), neverDeleteData); 242 field_hdl->compression_params.reference(tmp.copy()); 243 CTimer::get("XIOS").suspend(); 244 } 245 246 void cxios_get_field_compression_params(field_Ptr field_hdl, double* compression_params, int* extent) 247 { 248 CTimer::get("XIOS").resume(); 249 CArray<double,1> tmp(compression_params, shape(extent[0]), neverDeleteData); 250 tmp=field_hdl->compression_params.getInheritedValue(); 251 CTimer::get("XIOS").suspend(); 252 } 253 254 bool cxios_is_defined_field_compression_params(field_Ptr field_hdl) 255 { 256 CTimer::get("XIOS").resume(); 257 bool isDefined = field_hdl->compression_params.hasInheritedValue(); 258 CTimer::get("XIOS").suspend(); 259 return isDefined; 260 } 261 262 263 void cxios_set_field_compression_type(field_Ptr field_hdl, const char * compression_type, int compression_type_size) 264 { 265 std::string compression_type_str; 266 if (!cstr2string(compression_type, compression_type_size, compression_type_str)) return; 267 CTimer::get("XIOS").resume(); 268 field_hdl->compression_type.setValue(compression_type_str); 269 CTimer::get("XIOS").suspend(); 270 } 271 272 void cxios_get_field_compression_type(field_Ptr field_hdl, char * compression_type, int compression_type_size) 273 { 274 CTimer::get("XIOS").resume(); 275 if (!string_copy(field_hdl->compression_type.getInheritedValue(), compression_type, compression_type_size)) 276 ERROR("void cxios_get_field_compression_type(field_Ptr field_hdl, char * compression_type, int compression_type_size)", << "Input string is too short"); 277 CTimer::get("XIOS").suspend(); 278 } 279 280 bool cxios_is_defined_field_compression_type(field_Ptr field_hdl) 281 { 282 CTimer::get("XIOS").resume(); 283 bool isDefined = field_hdl->compression_type.hasInheritedValue(); 284 CTimer::get("XIOS").suspend(); 285 return isDefined; 286 } 287 288 289 void cxios_set_field_conversion_by_NetCDF(field_Ptr field_hdl, bool conversion_by_NetCDF) 290 { 291 CTimer::get("XIOS").resume(); 292 field_hdl->conversion_by_NetCDF.setValue(conversion_by_NetCDF); 293 CTimer::get("XIOS").suspend(); 294 } 295 296 void cxios_get_field_conversion_by_NetCDF(field_Ptr field_hdl, bool* conversion_by_NetCDF) 297 { 298 CTimer::get("XIOS").resume(); 299 *conversion_by_NetCDF = field_hdl->conversion_by_NetCDF.getInheritedValue(); 300 CTimer::get("XIOS").suspend(); 301 } 302 303 bool cxios_is_defined_field_conversion_by_NetCDF(field_Ptr field_hdl) 304 { 305 CTimer::get("XIOS").resume(); 306 bool isDefined = field_hdl->conversion_by_NetCDF.hasInheritedValue(); 210 307 CTimer::get("XIOS").suspend(); 211 308 return isDefined; -
XIOS3/trunk/src/interface/c_attr/icfieldgroup_attr.cpp
r2338 r2616 164 164 165 165 166 void cxios_set_fieldgroup_chunking_blocksize_target(fieldgroup_Ptr fieldgroup_hdl, double chunking_blocksize_target) 167 { 168 CTimer::get("XIOS").resume(); 169 fieldgroup_hdl->chunking_blocksize_target.setValue(chunking_blocksize_target); 170 CTimer::get("XIOS").suspend(); 171 } 172 173 void cxios_get_fieldgroup_chunking_blocksize_target(fieldgroup_Ptr fieldgroup_hdl, double* chunking_blocksize_target) 174 { 175 CTimer::get("XIOS").resume(); 176 *chunking_blocksize_target = fieldgroup_hdl->chunking_blocksize_target.getInheritedValue(); 177 CTimer::get("XIOS").suspend(); 178 } 179 180 bool cxios_is_defined_fieldgroup_chunking_blocksize_target(fieldgroup_Ptr fieldgroup_hdl) 181 { 182 CTimer::get("XIOS").resume(); 183 bool isDefined = fieldgroup_hdl->chunking_blocksize_target.hasInheritedValue(); 184 CTimer::get("XIOS").suspend(); 185 return isDefined; 186 } 187 188 166 189 void cxios_set_fieldgroup_comment(fieldgroup_Ptr fieldgroup_hdl, const char * comment, int comment_size) 167 190 { … … 208 231 CTimer::get("XIOS").resume(); 209 232 bool isDefined = fieldgroup_hdl->compression_level.hasInheritedValue(); 233 CTimer::get("XIOS").suspend(); 234 return isDefined; 235 } 236 237 238 void cxios_set_fieldgroup_compression_params(fieldgroup_Ptr fieldgroup_hdl, double* compression_params, int* extent) 239 { 240 CTimer::get("XIOS").resume(); 241 CArray<double,1> tmp(compression_params, shape(extent[0]), neverDeleteData); 242 fieldgroup_hdl->compression_params.reference(tmp.copy()); 243 CTimer::get("XIOS").suspend(); 244 } 245 246 void cxios_get_fieldgroup_compression_params(fieldgroup_Ptr fieldgroup_hdl, double* compression_params, int* extent) 247 { 248 CTimer::get("XIOS").resume(); 249 CArray<double,1> tmp(compression_params, shape(extent[0]), neverDeleteData); 250 tmp=fieldgroup_hdl->compression_params.getInheritedValue(); 251 CTimer::get("XIOS").suspend(); 252 } 253 254 bool cxios_is_defined_fieldgroup_compression_params(fieldgroup_Ptr fieldgroup_hdl) 255 { 256 CTimer::get("XIOS").resume(); 257 bool isDefined = fieldgroup_hdl->compression_params.hasInheritedValue(); 258 CTimer::get("XIOS").suspend(); 259 return isDefined; 260 } 261 262 263 void cxios_set_fieldgroup_compression_type(fieldgroup_Ptr fieldgroup_hdl, const char * compression_type, int compression_type_size) 264 { 265 std::string compression_type_str; 266 if (!cstr2string(compression_type, compression_type_size, compression_type_str)) return; 267 CTimer::get("XIOS").resume(); 268 fieldgroup_hdl->compression_type.setValue(compression_type_str); 269 CTimer::get("XIOS").suspend(); 270 } 271 272 void cxios_get_fieldgroup_compression_type(fieldgroup_Ptr fieldgroup_hdl, char * compression_type, int compression_type_size) 273 { 274 CTimer::get("XIOS").resume(); 275 if (!string_copy(fieldgroup_hdl->compression_type.getInheritedValue(), compression_type, compression_type_size)) 276 ERROR("void cxios_get_fieldgroup_compression_type(fieldgroup_Ptr fieldgroup_hdl, char * compression_type, int compression_type_size)", << "Input string is too short"); 277 CTimer::get("XIOS").suspend(); 278 } 279 280 bool cxios_is_defined_fieldgroup_compression_type(fieldgroup_Ptr fieldgroup_hdl) 281 { 282 CTimer::get("XIOS").resume(); 283 bool isDefined = fieldgroup_hdl->compression_type.hasInheritedValue(); 284 CTimer::get("XIOS").suspend(); 285 return isDefined; 286 } 287 288 289 void cxios_set_fieldgroup_conversion_by_NetCDF(fieldgroup_Ptr fieldgroup_hdl, bool conversion_by_NetCDF) 290 { 291 CTimer::get("XIOS").resume(); 292 fieldgroup_hdl->conversion_by_NetCDF.setValue(conversion_by_NetCDF); 293 CTimer::get("XIOS").suspend(); 294 } 295 296 void cxios_get_fieldgroup_conversion_by_NetCDF(fieldgroup_Ptr fieldgroup_hdl, bool* conversion_by_NetCDF) 297 { 298 CTimer::get("XIOS").resume(); 299 *conversion_by_NetCDF = fieldgroup_hdl->conversion_by_NetCDF.getInheritedValue(); 300 CTimer::get("XIOS").suspend(); 301 } 302 303 bool cxios_is_defined_fieldgroup_conversion_by_NetCDF(fieldgroup_Ptr fieldgroup_hdl) 304 { 305 CTimer::get("XIOS").resume(); 306 bool isDefined = fieldgroup_hdl->conversion_by_NetCDF.hasInheritedValue(); 210 307 CTimer::get("XIOS").suspend(); 211 308 return isDefined; -
XIOS3/trunk/src/interface/c_attr/icfile_attr.cpp
r1626 r2616 239 239 240 240 241 void cxios_set_file_gatherer(file_Ptr file_hdl, const char * gatherer, int gatherer_size) 242 { 243 std::string gatherer_str; 244 if (!cstr2string(gatherer, gatherer_size, gatherer_str)) return; 245 CTimer::get("XIOS").resume(); 246 file_hdl->gatherer.setValue(gatherer_str); 247 CTimer::get("XIOS").suspend(); 248 } 249 250 void cxios_get_file_gatherer(file_Ptr file_hdl, char * gatherer, int gatherer_size) 251 { 252 CTimer::get("XIOS").resume(); 253 if (!string_copy(file_hdl->gatherer.getInheritedValue(), gatherer, gatherer_size)) 254 ERROR("void cxios_get_file_gatherer(file_Ptr file_hdl, char * gatherer, int gatherer_size)", << "Input string is too short"); 255 CTimer::get("XIOS").suspend(); 256 } 257 258 bool cxios_is_defined_file_gatherer(file_Ptr file_hdl) 259 { 260 CTimer::get("XIOS").resume(); 261 bool isDefined = file_hdl->gatherer.hasInheritedValue(); 262 CTimer::get("XIOS").suspend(); 263 return isDefined; 264 } 265 266 241 267 void cxios_set_file_min_digits(file_Ptr file_hdl, int min_digits) 242 268 { … … 427 453 428 454 455 void cxios_set_file_pool_gatherer(file_Ptr file_hdl, const char * pool_gatherer, int pool_gatherer_size) 456 { 457 std::string pool_gatherer_str; 458 if (!cstr2string(pool_gatherer, pool_gatherer_size, pool_gatherer_str)) return; 459 CTimer::get("XIOS").resume(); 460 file_hdl->pool_gatherer.setValue(pool_gatherer_str); 461 CTimer::get("XIOS").suspend(); 462 } 463 464 void cxios_get_file_pool_gatherer(file_Ptr file_hdl, char * pool_gatherer, int pool_gatherer_size) 465 { 466 CTimer::get("XIOS").resume(); 467 if (!string_copy(file_hdl->pool_gatherer.getInheritedValue(), pool_gatherer, pool_gatherer_size)) 468 ERROR("void cxios_get_file_pool_gatherer(file_Ptr file_hdl, char * pool_gatherer, int pool_gatherer_size)", << "Input string is too short"); 469 CTimer::get("XIOS").suspend(); 470 } 471 472 bool cxios_is_defined_file_pool_gatherer(file_Ptr file_hdl) 473 { 474 CTimer::get("XIOS").resume(); 475 bool isDefined = file_hdl->pool_gatherer.hasInheritedValue(); 476 CTimer::get("XIOS").suspend(); 477 return isDefined; 478 } 479 480 481 void cxios_set_file_pool_reader(file_Ptr file_hdl, const char * pool_reader, int pool_reader_size) 482 { 483 std::string pool_reader_str; 484 if (!cstr2string(pool_reader, pool_reader_size, pool_reader_str)) return; 485 CTimer::get("XIOS").resume(); 486 file_hdl->pool_reader.setValue(pool_reader_str); 487 CTimer::get("XIOS").suspend(); 488 } 489 490 void cxios_get_file_pool_reader(file_Ptr file_hdl, char * pool_reader, int pool_reader_size) 491 { 492 CTimer::get("XIOS").resume(); 493 if (!string_copy(file_hdl->pool_reader.getInheritedValue(), pool_reader, pool_reader_size)) 494 ERROR("void cxios_get_file_pool_reader(file_Ptr file_hdl, char * pool_reader, int pool_reader_size)", << "Input string is too short"); 495 CTimer::get("XIOS").suspend(); 496 } 497 498 bool cxios_is_defined_file_pool_reader(file_Ptr file_hdl) 499 { 500 CTimer::get("XIOS").resume(); 501 bool isDefined = file_hdl->pool_reader.hasInheritedValue(); 502 CTimer::get("XIOS").suspend(); 503 return isDefined; 504 } 505 506 507 void cxios_set_file_pool_writer(file_Ptr file_hdl, const char * pool_writer, int pool_writer_size) 508 { 509 std::string pool_writer_str; 510 if (!cstr2string(pool_writer, pool_writer_size, pool_writer_str)) return; 511 CTimer::get("XIOS").resume(); 512 file_hdl->pool_writer.setValue(pool_writer_str); 513 CTimer::get("XIOS").suspend(); 514 } 515 516 void cxios_get_file_pool_writer(file_Ptr file_hdl, char * pool_writer, int pool_writer_size) 517 { 518 CTimer::get("XIOS").resume(); 519 if (!string_copy(file_hdl->pool_writer.getInheritedValue(), pool_writer, pool_writer_size)) 520 ERROR("void cxios_get_file_pool_writer(file_Ptr file_hdl, char * pool_writer, int pool_writer_size)", << "Input string is too short"); 521 CTimer::get("XIOS").suspend(); 522 } 523 524 bool cxios_is_defined_file_pool_writer(file_Ptr file_hdl) 525 { 526 CTimer::get("XIOS").resume(); 527 bool isDefined = file_hdl->pool_writer.hasInheritedValue(); 528 CTimer::get("XIOS").suspend(); 529 return isDefined; 530 } 531 532 429 533 void cxios_set_file_read_metadata_par(file_Ptr file_hdl, bool read_metadata_par) 430 534 { … … 445 549 CTimer::get("XIOS").resume(); 446 550 bool isDefined = file_hdl->read_metadata_par.hasInheritedValue(); 551 CTimer::get("XIOS").suspend(); 552 return isDefined; 553 } 554 555 556 void cxios_set_file_reader(file_Ptr file_hdl, const char * reader, int reader_size) 557 { 558 std::string reader_str; 559 if (!cstr2string(reader, reader_size, reader_str)) return; 560 CTimer::get("XIOS").resume(); 561 file_hdl->reader.setValue(reader_str); 562 CTimer::get("XIOS").suspend(); 563 } 564 565 void cxios_get_file_reader(file_Ptr file_hdl, char * reader, int reader_size) 566 { 567 CTimer::get("XIOS").resume(); 568 if (!string_copy(file_hdl->reader.getInheritedValue(), reader, reader_size)) 569 ERROR("void cxios_get_file_reader(file_Ptr file_hdl, char * reader, int reader_size)", << "Input string is too short"); 570 CTimer::get("XIOS").suspend(); 571 } 572 573 bool cxios_is_defined_file_reader(file_Ptr file_hdl) 574 { 575 CTimer::get("XIOS").resume(); 576 bool isDefined = file_hdl->reader.hasInheritedValue(); 447 577 CTimer::get("XIOS").suspend(); 448 578 return isDefined; … … 885 1015 886 1016 1017 void cxios_set_file_using_server2(file_Ptr file_hdl, bool using_server2) 1018 { 1019 CTimer::get("XIOS").resume(); 1020 file_hdl->using_server2.setValue(using_server2); 1021 CTimer::get("XIOS").suspend(); 1022 } 1023 1024 void cxios_get_file_using_server2(file_Ptr file_hdl, bool* using_server2) 1025 { 1026 CTimer::get("XIOS").resume(); 1027 *using_server2 = file_hdl->using_server2.getInheritedValue(); 1028 CTimer::get("XIOS").suspend(); 1029 } 1030 1031 bool cxios_is_defined_file_using_server2(file_Ptr file_hdl) 1032 { 1033 CTimer::get("XIOS").resume(); 1034 bool isDefined = file_hdl->using_server2.hasInheritedValue(); 1035 CTimer::get("XIOS").suspend(); 1036 return isDefined; 1037 } 1038 1039 887 1040 void cxios_set_file_uuid_format(file_Ptr file_hdl, const char * uuid_format, int uuid_format_size) 888 1041 { … … 935 1088 return isDefined; 936 1089 } 1090 1091 1092 void cxios_set_file_writer(file_Ptr file_hdl, const char * writer, int writer_size) 1093 { 1094 std::string writer_str; 1095 if (!cstr2string(writer, writer_size, writer_str)) return; 1096 CTimer::get("XIOS").resume(); 1097 file_hdl->writer.setValue(writer_str); 1098 CTimer::get("XIOS").suspend(); 1099 } 1100 1101 void cxios_get_file_writer(file_Ptr file_hdl, char * writer, int writer_size) 1102 { 1103 CTimer::get("XIOS").resume(); 1104 if (!string_copy(file_hdl->writer.getInheritedValue(), writer, writer_size)) 1105 ERROR("void cxios_get_file_writer(file_Ptr file_hdl, char * writer, int writer_size)", << "Input string is too short"); 1106 CTimer::get("XIOS").suspend(); 1107 } 1108 1109 bool cxios_is_defined_file_writer(file_Ptr file_hdl) 1110 { 1111 CTimer::get("XIOS").resume(); 1112 bool isDefined = file_hdl->writer.hasInheritedValue(); 1113 CTimer::get("XIOS").suspend(); 1114 return isDefined; 1115 } 937 1116 } -
XIOS3/trunk/src/interface/c_attr/icfilegroup_attr.cpp
r1626 r2616 239 239 240 240 241 void cxios_set_filegroup_gatherer(filegroup_Ptr filegroup_hdl, const char * gatherer, int gatherer_size) 242 { 243 std::string gatherer_str; 244 if (!cstr2string(gatherer, gatherer_size, gatherer_str)) return; 245 CTimer::get("XIOS").resume(); 246 filegroup_hdl->gatherer.setValue(gatherer_str); 247 CTimer::get("XIOS").suspend(); 248 } 249 250 void cxios_get_filegroup_gatherer(filegroup_Ptr filegroup_hdl, char * gatherer, int gatherer_size) 251 { 252 CTimer::get("XIOS").resume(); 253 if (!string_copy(filegroup_hdl->gatherer.getInheritedValue(), gatherer, gatherer_size)) 254 ERROR("void cxios_get_filegroup_gatherer(filegroup_Ptr filegroup_hdl, char * gatherer, int gatherer_size)", << "Input string is too short"); 255 CTimer::get("XIOS").suspend(); 256 } 257 258 bool cxios_is_defined_filegroup_gatherer(filegroup_Ptr filegroup_hdl) 259 { 260 CTimer::get("XIOS").resume(); 261 bool isDefined = filegroup_hdl->gatherer.hasInheritedValue(); 262 CTimer::get("XIOS").suspend(); 263 return isDefined; 264 } 265 266 241 267 void cxios_set_filegroup_group_ref(filegroup_Ptr filegroup_hdl, const char * group_ref, int group_ref_size) 242 268 { … … 453 479 454 480 481 void cxios_set_filegroup_pool_gatherer(filegroup_Ptr filegroup_hdl, const char * pool_gatherer, int pool_gatherer_size) 482 { 483 std::string pool_gatherer_str; 484 if (!cstr2string(pool_gatherer, pool_gatherer_size, pool_gatherer_str)) return; 485 CTimer::get("XIOS").resume(); 486 filegroup_hdl->pool_gatherer.setValue(pool_gatherer_str); 487 CTimer::get("XIOS").suspend(); 488 } 489 490 void cxios_get_filegroup_pool_gatherer(filegroup_Ptr filegroup_hdl, char * pool_gatherer, int pool_gatherer_size) 491 { 492 CTimer::get("XIOS").resume(); 493 if (!string_copy(filegroup_hdl->pool_gatherer.getInheritedValue(), pool_gatherer, pool_gatherer_size)) 494 ERROR("void cxios_get_filegroup_pool_gatherer(filegroup_Ptr filegroup_hdl, char * pool_gatherer, int pool_gatherer_size)", << "Input string is too short"); 495 CTimer::get("XIOS").suspend(); 496 } 497 498 bool cxios_is_defined_filegroup_pool_gatherer(filegroup_Ptr filegroup_hdl) 499 { 500 CTimer::get("XIOS").resume(); 501 bool isDefined = filegroup_hdl->pool_gatherer.hasInheritedValue(); 502 CTimer::get("XIOS").suspend(); 503 return isDefined; 504 } 505 506 507 void cxios_set_filegroup_pool_reader(filegroup_Ptr filegroup_hdl, const char * pool_reader, int pool_reader_size) 508 { 509 std::string pool_reader_str; 510 if (!cstr2string(pool_reader, pool_reader_size, pool_reader_str)) return; 511 CTimer::get("XIOS").resume(); 512 filegroup_hdl->pool_reader.setValue(pool_reader_str); 513 CTimer::get("XIOS").suspend(); 514 } 515 516 void cxios_get_filegroup_pool_reader(filegroup_Ptr filegroup_hdl, char * pool_reader, int pool_reader_size) 517 { 518 CTimer::get("XIOS").resume(); 519 if (!string_copy(filegroup_hdl->pool_reader.getInheritedValue(), pool_reader, pool_reader_size)) 520 ERROR("void cxios_get_filegroup_pool_reader(filegroup_Ptr filegroup_hdl, char * pool_reader, int pool_reader_size)", << "Input string is too short"); 521 CTimer::get("XIOS").suspend(); 522 } 523 524 bool cxios_is_defined_filegroup_pool_reader(filegroup_Ptr filegroup_hdl) 525 { 526 CTimer::get("XIOS").resume(); 527 bool isDefined = filegroup_hdl->pool_reader.hasInheritedValue(); 528 CTimer::get("XIOS").suspend(); 529 return isDefined; 530 } 531 532 533 void cxios_set_filegroup_pool_writer(filegroup_Ptr filegroup_hdl, const char * pool_writer, int pool_writer_size) 534 { 535 std::string pool_writer_str; 536 if (!cstr2string(pool_writer, pool_writer_size, pool_writer_str)) return; 537 CTimer::get("XIOS").resume(); 538 filegroup_hdl->pool_writer.setValue(pool_writer_str); 539 CTimer::get("XIOS").suspend(); 540 } 541 542 void cxios_get_filegroup_pool_writer(filegroup_Ptr filegroup_hdl, char * pool_writer, int pool_writer_size) 543 { 544 CTimer::get("XIOS").resume(); 545 if (!string_copy(filegroup_hdl->pool_writer.getInheritedValue(), pool_writer, pool_writer_size)) 546 ERROR("void cxios_get_filegroup_pool_writer(filegroup_Ptr filegroup_hdl, char * pool_writer, int pool_writer_size)", << "Input string is too short"); 547 CTimer::get("XIOS").suspend(); 548 } 549 550 bool cxios_is_defined_filegroup_pool_writer(filegroup_Ptr filegroup_hdl) 551 { 552 CTimer::get("XIOS").resume(); 553 bool isDefined = filegroup_hdl->pool_writer.hasInheritedValue(); 554 CTimer::get("XIOS").suspend(); 555 return isDefined; 556 } 557 558 455 559 void cxios_set_filegroup_read_metadata_par(filegroup_Ptr filegroup_hdl, bool read_metadata_par) 456 560 { … … 471 575 CTimer::get("XIOS").resume(); 472 576 bool isDefined = filegroup_hdl->read_metadata_par.hasInheritedValue(); 577 CTimer::get("XIOS").suspend(); 578 return isDefined; 579 } 580 581 582 void cxios_set_filegroup_reader(filegroup_Ptr filegroup_hdl, const char * reader, int reader_size) 583 { 584 std::string reader_str; 585 if (!cstr2string(reader, reader_size, reader_str)) return; 586 CTimer::get("XIOS").resume(); 587 filegroup_hdl->reader.setValue(reader_str); 588 CTimer::get("XIOS").suspend(); 589 } 590 591 void cxios_get_filegroup_reader(filegroup_Ptr filegroup_hdl, char * reader, int reader_size) 592 { 593 CTimer::get("XIOS").resume(); 594 if (!string_copy(filegroup_hdl->reader.getInheritedValue(), reader, reader_size)) 595 ERROR("void cxios_get_filegroup_reader(filegroup_Ptr filegroup_hdl, char * reader, int reader_size)", << "Input string is too short"); 596 CTimer::get("XIOS").suspend(); 597 } 598 599 bool cxios_is_defined_filegroup_reader(filegroup_Ptr filegroup_hdl) 600 { 601 CTimer::get("XIOS").resume(); 602 bool isDefined = filegroup_hdl->reader.hasInheritedValue(); 473 603 CTimer::get("XIOS").suspend(); 474 604 return isDefined; … … 911 1041 912 1042 1043 void cxios_set_filegroup_using_server2(filegroup_Ptr filegroup_hdl, bool using_server2) 1044 { 1045 CTimer::get("XIOS").resume(); 1046 filegroup_hdl->using_server2.setValue(using_server2); 1047 CTimer::get("XIOS").suspend(); 1048 } 1049 1050 void cxios_get_filegroup_using_server2(filegroup_Ptr filegroup_hdl, bool* using_server2) 1051 { 1052 CTimer::get("XIOS").resume(); 1053 *using_server2 = filegroup_hdl->using_server2.getInheritedValue(); 1054 CTimer::get("XIOS").suspend(); 1055 } 1056 1057 bool cxios_is_defined_filegroup_using_server2(filegroup_Ptr filegroup_hdl) 1058 { 1059 CTimer::get("XIOS").resume(); 1060 bool isDefined = filegroup_hdl->using_server2.hasInheritedValue(); 1061 CTimer::get("XIOS").suspend(); 1062 return isDefined; 1063 } 1064 1065 913 1066 void cxios_set_filegroup_uuid_format(filegroup_Ptr filegroup_hdl, const char * uuid_format, int uuid_format_size) 914 1067 { … … 961 1114 return isDefined; 962 1115 } 1116 1117 1118 void cxios_set_filegroup_writer(filegroup_Ptr filegroup_hdl, const char * writer, int writer_size) 1119 { 1120 std::string writer_str; 1121 if (!cstr2string(writer, writer_size, writer_str)) return; 1122 CTimer::get("XIOS").resume(); 1123 filegroup_hdl->writer.setValue(writer_str); 1124 CTimer::get("XIOS").suspend(); 1125 } 1126 1127 void cxios_get_filegroup_writer(filegroup_Ptr filegroup_hdl, char * writer, int writer_size) 1128 { 1129 CTimer::get("XIOS").resume(); 1130 if (!string_copy(filegroup_hdl->writer.getInheritedValue(), writer, writer_size)) 1131 ERROR("void cxios_get_filegroup_writer(filegroup_Ptr filegroup_hdl, char * writer, int writer_size)", << "Input string is too short"); 1132 CTimer::get("XIOS").suspend(); 1133 } 1134 1135 bool cxios_is_defined_filegroup_writer(filegroup_Ptr filegroup_hdl) 1136 { 1137 CTimer::get("XIOS").resume(); 1138 bool isDefined = filegroup_hdl->writer.hasInheritedValue(); 1139 CTimer::get("XIOS").suspend(); 1140 return isDefined; 1141 } 963 1142 } -
XIOS3/trunk/src/interface/fortran_attr/axis_interface_attr.F90
r1492 r2616 113 113 114 114 115 SUBROUTINE cxios_set_axis_chunking_weight(axis_hdl, chunking_weight) BIND(C) 116 USE ISO_C_BINDING 117 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 118 REAL (KIND=C_DOUBLE) , VALUE :: chunking_weight 119 END SUBROUTINE cxios_set_axis_chunking_weight 120 121 SUBROUTINE cxios_get_axis_chunking_weight(axis_hdl, chunking_weight) BIND(C) 122 USE ISO_C_BINDING 123 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 124 REAL (KIND=C_DOUBLE) :: chunking_weight 125 END SUBROUTINE cxios_get_axis_chunking_weight 126 127 FUNCTION cxios_is_defined_axis_chunking_weight(axis_hdl) BIND(C) 128 USE ISO_C_BINDING 129 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_chunking_weight 130 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 131 END FUNCTION cxios_is_defined_axis_chunking_weight 132 133 115 134 SUBROUTINE cxios_set_axis_comment(axis_hdl, comment, comment_size) BIND(C) 116 135 USE ISO_C_BINDING -
XIOS3/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90
r1492 r2616 113 113 114 114 115 SUBROUTINE cxios_set_axisgroup_chunking_weight(axisgroup_hdl, chunking_weight) BIND(C) 116 USE ISO_C_BINDING 117 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 118 REAL (KIND=C_DOUBLE) , VALUE :: chunking_weight 119 END SUBROUTINE cxios_set_axisgroup_chunking_weight 120 121 SUBROUTINE cxios_get_axisgroup_chunking_weight(axisgroup_hdl, chunking_weight) BIND(C) 122 USE ISO_C_BINDING 123 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 124 REAL (KIND=C_DOUBLE) :: chunking_weight 125 END SUBROUTINE cxios_get_axisgroup_chunking_weight 126 127 FUNCTION cxios_is_defined_axisgroup_chunking_weight(axisgroup_hdl) BIND(C) 128 USE ISO_C_BINDING 129 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_chunking_weight 130 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 131 END FUNCTION cxios_is_defined_axisgroup_chunking_weight 132 133 115 134 SUBROUTINE cxios_set_axisgroup_comment(axisgroup_hdl, comment, comment_size) BIND(C) 116 135 USE ISO_C_BINDING -
XIOS3/trunk/src/interface/fortran_attr/context_interface_attr.F90
r1941 r2616 29 29 30 30 31 SUBROUTINE cxios_set_context_default_gatherer(context_hdl, default_gatherer, default_gatherer_size) BIND(C) 32 USE ISO_C_BINDING 33 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 34 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_gatherer 35 INTEGER (kind = C_INT) , VALUE :: default_gatherer_size 36 END SUBROUTINE cxios_set_context_default_gatherer 37 38 SUBROUTINE cxios_get_context_default_gatherer(context_hdl, default_gatherer, default_gatherer_size) BIND(C) 39 USE ISO_C_BINDING 40 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 41 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_gatherer 42 INTEGER (kind = C_INT) , VALUE :: default_gatherer_size 43 END SUBROUTINE cxios_get_context_default_gatherer 44 45 FUNCTION cxios_is_defined_context_default_gatherer(context_hdl) BIND(C) 46 USE ISO_C_BINDING 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_gatherer 48 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 49 END FUNCTION cxios_is_defined_context_default_gatherer 50 51 52 SUBROUTINE cxios_set_context_default_pool(context_hdl, default_pool, default_pool_size) BIND(C) 53 USE ISO_C_BINDING 54 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 55 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_pool 56 INTEGER (kind = C_INT) , VALUE :: default_pool_size 57 END SUBROUTINE cxios_set_context_default_pool 58 59 SUBROUTINE cxios_get_context_default_pool(context_hdl, default_pool, default_pool_size) BIND(C) 60 USE ISO_C_BINDING 61 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 62 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_pool 63 INTEGER (kind = C_INT) , VALUE :: default_pool_size 64 END SUBROUTINE cxios_get_context_default_pool 65 66 FUNCTION cxios_is_defined_context_default_pool(context_hdl) BIND(C) 67 USE ISO_C_BINDING 68 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool 69 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 70 END FUNCTION cxios_is_defined_context_default_pool 71 72 73 SUBROUTINE cxios_set_context_default_pool_gatherer(context_hdl, default_pool_gatherer, default_pool_gatherer_size) BIND(C) 74 USE ISO_C_BINDING 75 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 76 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_pool_gatherer 77 INTEGER (kind = C_INT) , VALUE :: default_pool_gatherer_size 78 END SUBROUTINE cxios_set_context_default_pool_gatherer 79 80 SUBROUTINE cxios_get_context_default_pool_gatherer(context_hdl, default_pool_gatherer, default_pool_gatherer_size) BIND(C) 81 USE ISO_C_BINDING 82 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 83 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_pool_gatherer 84 INTEGER (kind = C_INT) , VALUE :: default_pool_gatherer_size 85 END SUBROUTINE cxios_get_context_default_pool_gatherer 86 87 FUNCTION cxios_is_defined_context_default_pool_gatherer(context_hdl) BIND(C) 88 USE ISO_C_BINDING 89 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool_gatherer 90 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 91 END FUNCTION cxios_is_defined_context_default_pool_gatherer 92 93 94 SUBROUTINE cxios_set_context_default_pool_reader(context_hdl, default_pool_reader, default_pool_reader_size) BIND(C) 95 USE ISO_C_BINDING 96 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 97 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_pool_reader 98 INTEGER (kind = C_INT) , VALUE :: default_pool_reader_size 99 END SUBROUTINE cxios_set_context_default_pool_reader 100 101 SUBROUTINE cxios_get_context_default_pool_reader(context_hdl, default_pool_reader, default_pool_reader_size) BIND(C) 102 USE ISO_C_BINDING 103 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 104 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_pool_reader 105 INTEGER (kind = C_INT) , VALUE :: default_pool_reader_size 106 END SUBROUTINE cxios_get_context_default_pool_reader 107 108 FUNCTION cxios_is_defined_context_default_pool_reader(context_hdl) BIND(C) 109 USE ISO_C_BINDING 110 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool_reader 111 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 112 END FUNCTION cxios_is_defined_context_default_pool_reader 113 114 115 SUBROUTINE cxios_set_context_default_pool_writer(context_hdl, default_pool_writer, default_pool_writer_size) BIND(C) 116 USE ISO_C_BINDING 117 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 118 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_pool_writer 119 INTEGER (kind = C_INT) , VALUE :: default_pool_writer_size 120 END SUBROUTINE cxios_set_context_default_pool_writer 121 122 SUBROUTINE cxios_get_context_default_pool_writer(context_hdl, default_pool_writer, default_pool_writer_size) BIND(C) 123 USE ISO_C_BINDING 124 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 125 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_pool_writer 126 INTEGER (kind = C_INT) , VALUE :: default_pool_writer_size 127 END SUBROUTINE cxios_get_context_default_pool_writer 128 129 FUNCTION cxios_is_defined_context_default_pool_writer(context_hdl) BIND(C) 130 USE ISO_C_BINDING 131 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_pool_writer 132 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 133 END FUNCTION cxios_is_defined_context_default_pool_writer 134 135 136 SUBROUTINE cxios_set_context_default_reader(context_hdl, default_reader, default_reader_size) BIND(C) 137 USE ISO_C_BINDING 138 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 139 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_reader 140 INTEGER (kind = C_INT) , VALUE :: default_reader_size 141 END SUBROUTINE cxios_set_context_default_reader 142 143 SUBROUTINE cxios_get_context_default_reader(context_hdl, default_reader, default_reader_size) BIND(C) 144 USE ISO_C_BINDING 145 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 146 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_reader 147 INTEGER (kind = C_INT) , VALUE :: default_reader_size 148 END SUBROUTINE cxios_get_context_default_reader 149 150 FUNCTION cxios_is_defined_context_default_reader(context_hdl) BIND(C) 151 USE ISO_C_BINDING 152 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_reader 153 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 154 END FUNCTION cxios_is_defined_context_default_reader 155 156 157 SUBROUTINE cxios_set_context_default_using_server2(context_hdl, default_using_server2) BIND(C) 158 USE ISO_C_BINDING 159 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 160 LOGICAL (KIND=C_BOOL) , VALUE :: default_using_server2 161 END SUBROUTINE cxios_set_context_default_using_server2 162 163 SUBROUTINE cxios_get_context_default_using_server2(context_hdl, default_using_server2) BIND(C) 164 USE ISO_C_BINDING 165 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 166 LOGICAL (KIND=C_BOOL) :: default_using_server2 167 END SUBROUTINE cxios_get_context_default_using_server2 168 169 FUNCTION cxios_is_defined_context_default_using_server2(context_hdl) BIND(C) 170 USE ISO_C_BINDING 171 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_using_server2 172 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 173 END FUNCTION cxios_is_defined_context_default_using_server2 174 175 176 SUBROUTINE cxios_set_context_default_writer(context_hdl, default_writer, default_writer_size) BIND(C) 177 USE ISO_C_BINDING 178 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 179 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_writer 180 INTEGER (kind = C_INT) , VALUE :: default_writer_size 181 END SUBROUTINE cxios_set_context_default_writer 182 183 SUBROUTINE cxios_get_context_default_writer(context_hdl, default_writer, default_writer_size) BIND(C) 184 USE ISO_C_BINDING 185 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 186 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: default_writer 187 INTEGER (kind = C_INT) , VALUE :: default_writer_size 188 END SUBROUTINE cxios_get_context_default_writer 189 190 FUNCTION cxios_is_defined_context_default_writer(context_hdl) BIND(C) 191 USE ISO_C_BINDING 192 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_default_writer 193 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 194 END FUNCTION cxios_is_defined_context_default_writer 195 196 31 197 SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C) 32 198 USE ISO_C_BINDING -
XIOS3/trunk/src/interface/fortran_attr/domain_interface_attr.F90
r1626 r2616 31 31 32 32 33 SUBROUTINE cxios_set_domain_area_1d(domain_hdl, area_1d, extent) BIND(C) 34 USE ISO_C_BINDING 35 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 36 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area_1d 37 INTEGER (kind = C_INT), DIMENSION(*) :: extent 38 END SUBROUTINE cxios_set_domain_area_1d 39 40 SUBROUTINE cxios_get_domain_area_1d(domain_hdl, area_1d, extent) BIND(C) 41 USE ISO_C_BINDING 42 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 43 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area_1d 44 INTEGER (kind = C_INT), DIMENSION(*) :: extent 45 END SUBROUTINE cxios_get_domain_area_1d 46 47 FUNCTION cxios_is_defined_domain_area_1d(domain_hdl) BIND(C) 48 USE ISO_C_BINDING 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_area_1d 50 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 51 END FUNCTION cxios_is_defined_domain_area_1d 52 53 54 SUBROUTINE cxios_set_domain_area_2d(domain_hdl, area_2d, extent) BIND(C) 55 USE ISO_C_BINDING 56 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 57 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area_2d 58 INTEGER (kind = C_INT), DIMENSION(*) :: extent 59 END SUBROUTINE cxios_set_domain_area_2d 60 61 SUBROUTINE cxios_get_domain_area_2d(domain_hdl, area_2d, extent) BIND(C) 62 USE ISO_C_BINDING 63 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 64 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area_2d 65 INTEGER (kind = C_INT), DIMENSION(*) :: extent 66 END SUBROUTINE cxios_get_domain_area_2d 67 68 FUNCTION cxios_is_defined_domain_area_2d(domain_hdl) BIND(C) 69 USE ISO_C_BINDING 70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_area_2d 71 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 72 END FUNCTION cxios_is_defined_domain_area_2d 73 74 33 75 SUBROUTINE cxios_set_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent) BIND(C) 34 76 USE ISO_C_BINDING … … 157 199 158 200 201 SUBROUTINE cxios_set_domain_chunking_weight_i(domain_hdl, chunking_weight_i) BIND(C) 202 USE ISO_C_BINDING 203 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 204 REAL (KIND=C_DOUBLE) , VALUE :: chunking_weight_i 205 END SUBROUTINE cxios_set_domain_chunking_weight_i 206 207 SUBROUTINE cxios_get_domain_chunking_weight_i(domain_hdl, chunking_weight_i) BIND(C) 208 USE ISO_C_BINDING 209 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 210 REAL (KIND=C_DOUBLE) :: chunking_weight_i 211 END SUBROUTINE cxios_get_domain_chunking_weight_i 212 213 FUNCTION cxios_is_defined_domain_chunking_weight_i(domain_hdl) BIND(C) 214 USE ISO_C_BINDING 215 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_chunking_weight_i 216 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 217 END FUNCTION cxios_is_defined_domain_chunking_weight_i 218 219 220 SUBROUTINE cxios_set_domain_chunking_weight_j(domain_hdl, chunking_weight_j) BIND(C) 221 USE ISO_C_BINDING 222 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 223 REAL (KIND=C_DOUBLE) , VALUE :: chunking_weight_j 224 END SUBROUTINE cxios_set_domain_chunking_weight_j 225 226 SUBROUTINE cxios_get_domain_chunking_weight_j(domain_hdl, chunking_weight_j) BIND(C) 227 USE ISO_C_BINDING 228 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 229 REAL (KIND=C_DOUBLE) :: chunking_weight_j 230 END SUBROUTINE cxios_get_domain_chunking_weight_j 231 232 FUNCTION cxios_is_defined_domain_chunking_weight_j(domain_hdl) BIND(C) 233 USE ISO_C_BINDING 234 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_chunking_weight_j 235 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 236 END FUNCTION cxios_is_defined_domain_chunking_weight_j 237 238 159 239 SUBROUTINE cxios_set_domain_comment(domain_hdl, comment, comment_size) BIND(C) 160 240 USE ISO_C_BINDING … … 763 843 764 844 845 SUBROUTINE cxios_set_domain_nvertex_name(domain_hdl, nvertex_name, nvertex_name_size) BIND(C) 846 USE ISO_C_BINDING 847 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 848 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: nvertex_name 849 INTEGER (kind = C_INT) , VALUE :: nvertex_name_size 850 END SUBROUTINE cxios_set_domain_nvertex_name 851 852 SUBROUTINE cxios_get_domain_nvertex_name(domain_hdl, nvertex_name, nvertex_name_size) BIND(C) 853 USE ISO_C_BINDING 854 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 855 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: nvertex_name 856 INTEGER (kind = C_INT) , VALUE :: nvertex_name_size 857 END SUBROUTINE cxios_get_domain_nvertex_name 858 859 FUNCTION cxios_is_defined_domain_nvertex_name(domain_hdl) BIND(C) 860 USE ISO_C_BINDING 861 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex_name 862 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 863 END FUNCTION cxios_is_defined_domain_nvertex_name 864 865 765 866 SUBROUTINE cxios_set_domain_prec(domain_hdl, prec) BIND(C) 766 867 USE ISO_C_BINDING -
XIOS3/trunk/src/interface/fortran_attr/domaingroup_interface_attr.F90
r1626 r2616 31 31 32 32 33 SUBROUTINE cxios_set_domaingroup_area_1d(domaingroup_hdl, area_1d, extent) BIND(C) 34 USE ISO_C_BINDING 35 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 36 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area_1d 37 INTEGER (kind = C_INT), DIMENSION(*) :: extent 38 END SUBROUTINE cxios_set_domaingroup_area_1d 39 40 SUBROUTINE cxios_get_domaingroup_area_1d(domaingroup_hdl, area_1d, extent) BIND(C) 41 USE ISO_C_BINDING 42 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 43 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area_1d 44 INTEGER (kind = C_INT), DIMENSION(*) :: extent 45 END SUBROUTINE cxios_get_domaingroup_area_1d 46 47 FUNCTION cxios_is_defined_domaingroup_area_1d(domaingroup_hdl) BIND(C) 48 USE ISO_C_BINDING 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_area_1d 50 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 51 END FUNCTION cxios_is_defined_domaingroup_area_1d 52 53 54 SUBROUTINE cxios_set_domaingroup_area_2d(domaingroup_hdl, area_2d, extent) BIND(C) 55 USE ISO_C_BINDING 56 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 57 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area_2d 58 INTEGER (kind = C_INT), DIMENSION(*) :: extent 59 END SUBROUTINE cxios_set_domaingroup_area_2d 60 61 SUBROUTINE cxios_get_domaingroup_area_2d(domaingroup_hdl, area_2d, extent) BIND(C) 62 USE ISO_C_BINDING 63 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 64 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area_2d 65 INTEGER (kind = C_INT), DIMENSION(*) :: extent 66 END SUBROUTINE cxios_get_domaingroup_area_2d 67 68 FUNCTION cxios_is_defined_domaingroup_area_2d(domaingroup_hdl) BIND(C) 69 USE ISO_C_BINDING 70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_area_2d 71 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 72 END FUNCTION cxios_is_defined_domaingroup_area_2d 73 74 33 75 SUBROUTINE cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent) BIND(C) 34 76 USE ISO_C_BINDING … … 157 199 158 200 201 SUBROUTINE cxios_set_domaingroup_chunking_weight_i(domaingroup_hdl, chunking_weight_i) BIND(C) 202 USE ISO_C_BINDING 203 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 204 REAL (KIND=C_DOUBLE) , VALUE :: chunking_weight_i 205 END SUBROUTINE cxios_set_domaingroup_chunking_weight_i 206 207 SUBROUTINE cxios_get_domaingroup_chunking_weight_i(domaingroup_hdl, chunking_weight_i) BIND(C) 208 USE ISO_C_BINDING 209 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 210 REAL (KIND=C_DOUBLE) :: chunking_weight_i 211 END SUBROUTINE cxios_get_domaingroup_chunking_weight_i 212 213 FUNCTION cxios_is_defined_domaingroup_chunking_weight_i(domaingroup_hdl) BIND(C) 214 USE ISO_C_BINDING 215 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_chunking_weight_i 216 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 217 END FUNCTION cxios_is_defined_domaingroup_chunking_weight_i 218 219 220 SUBROUTINE cxios_set_domaingroup_chunking_weight_j(domaingroup_hdl, chunking_weight_j) BIND(C) 221 USE ISO_C_BINDING 222 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 223 REAL (KIND=C_DOUBLE) , VALUE :: chunking_weight_j 224 END SUBROUTINE cxios_set_domaingroup_chunking_weight_j 225 226 SUBROUTINE cxios_get_domaingroup_chunking_weight_j(domaingroup_hdl, chunking_weight_j) BIND(C) 227 USE ISO_C_BINDING 228 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 229 REAL (KIND=C_DOUBLE) :: chunking_weight_j 230 END SUBROUTINE cxios_get_domaingroup_chunking_weight_j 231 232 FUNCTION cxios_is_defined_domaingroup_chunking_weight_j(domaingroup_hdl) BIND(C) 233 USE ISO_C_BINDING 234 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_chunking_weight_j 235 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 236 END FUNCTION cxios_is_defined_domaingroup_chunking_weight_j 237 238 159 239 SUBROUTINE cxios_set_domaingroup_comment(domaingroup_hdl, comment, comment_size) BIND(C) 160 240 USE ISO_C_BINDING … … 784 864 785 865 866 SUBROUTINE cxios_set_domaingroup_nvertex_name(domaingroup_hdl, nvertex_name, nvertex_name_size) BIND(C) 867 USE ISO_C_BINDING 868 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 869 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: nvertex_name 870 INTEGER (kind = C_INT) , VALUE :: nvertex_name_size 871 END SUBROUTINE cxios_set_domaingroup_nvertex_name 872 873 SUBROUTINE cxios_get_domaingroup_nvertex_name(domaingroup_hdl, nvertex_name, nvertex_name_size) BIND(C) 874 USE ISO_C_BINDING 875 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 876 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: nvertex_name 877 INTEGER (kind = C_INT) , VALUE :: nvertex_name_size 878 END SUBROUTINE cxios_get_domaingroup_nvertex_name 879 880 FUNCTION cxios_is_defined_domaingroup_nvertex_name(domaingroup_hdl) BIND(C) 881 USE ISO_C_BINDING 882 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nvertex_name 883 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 884 END FUNCTION cxios_is_defined_domaingroup_nvertex_name 885 886 786 887 SUBROUTINE cxios_set_domaingroup_prec(domaingroup_hdl, prec) BIND(C) 787 888 USE ISO_C_BINDING -
XIOS3/trunk/src/interface/fortran_attr/field_interface_attr.F90
r2338 r2616 130 130 131 131 132 SUBROUTINE cxios_set_field_chunking_blocksize_target(field_hdl, chunking_blocksize_target) BIND(C) 133 USE ISO_C_BINDING 134 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 135 REAL (KIND=C_DOUBLE) , VALUE :: chunking_blocksize_target 136 END SUBROUTINE cxios_set_field_chunking_blocksize_target 137 138 SUBROUTINE cxios_get_field_chunking_blocksize_target(field_hdl, chunking_blocksize_target) BIND(C) 139 USE ISO_C_BINDING 140 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 141 REAL (KIND=C_DOUBLE) :: chunking_blocksize_target 142 END SUBROUTINE cxios_get_field_chunking_blocksize_target 143 144 FUNCTION cxios_is_defined_field_chunking_blocksize_target(field_hdl) BIND(C) 145 USE ISO_C_BINDING 146 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_chunking_blocksize_target 147 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 148 END FUNCTION cxios_is_defined_field_chunking_blocksize_target 149 150 132 151 SUBROUTINE cxios_set_field_comment(field_hdl, comment, comment_size) BIND(C) 133 152 USE ISO_C_BINDING … … 170 189 171 190 191 SUBROUTINE cxios_set_field_compression_params(field_hdl, compression_params, extent) BIND(C) 192 USE ISO_C_BINDING 193 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 194 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: compression_params 195 INTEGER (kind = C_INT), DIMENSION(*) :: extent 196 END SUBROUTINE cxios_set_field_compression_params 197 198 SUBROUTINE cxios_get_field_compression_params(field_hdl, compression_params, extent) BIND(C) 199 USE ISO_C_BINDING 200 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 201 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: compression_params 202 INTEGER (kind = C_INT), DIMENSION(*) :: extent 203 END SUBROUTINE cxios_get_field_compression_params 204 205 FUNCTION cxios_is_defined_field_compression_params(field_hdl) BIND(C) 206 USE ISO_C_BINDING 207 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_params 208 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 209 END FUNCTION cxios_is_defined_field_compression_params 210 211 212 SUBROUTINE cxios_set_field_compression_type(field_hdl, compression_type, compression_type_size) BIND(C) 213 USE ISO_C_BINDING 214 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 215 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: compression_type 216 INTEGER (kind = C_INT) , VALUE :: compression_type_size 217 END SUBROUTINE cxios_set_field_compression_type 218 219 SUBROUTINE cxios_get_field_compression_type(field_hdl, compression_type, compression_type_size) BIND(C) 220 USE ISO_C_BINDING 221 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 222 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: compression_type 223 INTEGER (kind = C_INT) , VALUE :: compression_type_size 224 END SUBROUTINE cxios_get_field_compression_type 225 226 FUNCTION cxios_is_defined_field_compression_type(field_hdl) BIND(C) 227 USE ISO_C_BINDING 228 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_type 229 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 230 END FUNCTION cxios_is_defined_field_compression_type 231 232 233 SUBROUTINE cxios_set_field_conversion_by_NetCDF(field_hdl, conversion_by_NetCDF) BIND(C) 234 USE ISO_C_BINDING 235 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 236 LOGICAL (KIND=C_BOOL) , VALUE :: conversion_by_NetCDF 237 END SUBROUTINE cxios_set_field_conversion_by_NetCDF 238 239 SUBROUTINE cxios_get_field_conversion_by_NetCDF(field_hdl, conversion_by_NetCDF) BIND(C) 240 USE ISO_C_BINDING 241 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 242 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF 243 END SUBROUTINE cxios_get_field_conversion_by_NetCDF 244 245 FUNCTION cxios_is_defined_field_conversion_by_NetCDF(field_hdl) BIND(C) 246 USE ISO_C_BINDING 247 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_conversion_by_NetCDF 248 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 249 END FUNCTION cxios_is_defined_field_conversion_by_NetCDF 250 251 172 252 SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C) 173 253 USE ISO_C_BINDING -
XIOS3/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90
r2338 r2616 130 130 131 131 132 SUBROUTINE cxios_set_fieldgroup_chunking_blocksize_target(fieldgroup_hdl, chunking_blocksize_target) BIND(C) 133 USE ISO_C_BINDING 134 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 135 REAL (KIND=C_DOUBLE) , VALUE :: chunking_blocksize_target 136 END SUBROUTINE cxios_set_fieldgroup_chunking_blocksize_target 137 138 SUBROUTINE cxios_get_fieldgroup_chunking_blocksize_target(fieldgroup_hdl, chunking_blocksize_target) BIND(C) 139 USE ISO_C_BINDING 140 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 141 REAL (KIND=C_DOUBLE) :: chunking_blocksize_target 142 END SUBROUTINE cxios_get_fieldgroup_chunking_blocksize_target 143 144 FUNCTION cxios_is_defined_fieldgroup_chunking_blocksize_target(fieldgroup_hdl) BIND(C) 145 USE ISO_C_BINDING 146 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_chunking_blocksize_target 147 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 148 END FUNCTION cxios_is_defined_fieldgroup_chunking_blocksize_target 149 150 132 151 SUBROUTINE cxios_set_fieldgroup_comment(fieldgroup_hdl, comment, comment_size) BIND(C) 133 152 USE ISO_C_BINDING … … 170 189 171 190 191 SUBROUTINE cxios_set_fieldgroup_compression_params(fieldgroup_hdl, compression_params, extent) BIND(C) 192 USE ISO_C_BINDING 193 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 194 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: compression_params 195 INTEGER (kind = C_INT), DIMENSION(*) :: extent 196 END SUBROUTINE cxios_set_fieldgroup_compression_params 197 198 SUBROUTINE cxios_get_fieldgroup_compression_params(fieldgroup_hdl, compression_params, extent) BIND(C) 199 USE ISO_C_BINDING 200 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 201 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: compression_params 202 INTEGER (kind = C_INT), DIMENSION(*) :: extent 203 END SUBROUTINE cxios_get_fieldgroup_compression_params 204 205 FUNCTION cxios_is_defined_fieldgroup_compression_params(fieldgroup_hdl) BIND(C) 206 USE ISO_C_BINDING 207 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_compression_params 208 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 209 END FUNCTION cxios_is_defined_fieldgroup_compression_params 210 211 212 SUBROUTINE cxios_set_fieldgroup_compression_type(fieldgroup_hdl, compression_type, compression_type_size) BIND(C) 213 USE ISO_C_BINDING 214 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 215 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: compression_type 216 INTEGER (kind = C_INT) , VALUE :: compression_type_size 217 END SUBROUTINE cxios_set_fieldgroup_compression_type 218 219 SUBROUTINE cxios_get_fieldgroup_compression_type(fieldgroup_hdl, compression_type, compression_type_size) BIND(C) 220 USE ISO_C_BINDING 221 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 222 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: compression_type 223 INTEGER (kind = C_INT) , VALUE :: compression_type_size 224 END SUBROUTINE cxios_get_fieldgroup_compression_type 225 226 FUNCTION cxios_is_defined_fieldgroup_compression_type(fieldgroup_hdl) BIND(C) 227 USE ISO_C_BINDING 228 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_compression_type 229 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 230 END FUNCTION cxios_is_defined_fieldgroup_compression_type 231 232 233 SUBROUTINE cxios_set_fieldgroup_conversion_by_NetCDF(fieldgroup_hdl, conversion_by_NetCDF) BIND(C) 234 USE ISO_C_BINDING 235 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 236 LOGICAL (KIND=C_BOOL) , VALUE :: conversion_by_NetCDF 237 END SUBROUTINE cxios_set_fieldgroup_conversion_by_NetCDF 238 239 SUBROUTINE cxios_get_fieldgroup_conversion_by_NetCDF(fieldgroup_hdl, conversion_by_NetCDF) BIND(C) 240 USE ISO_C_BINDING 241 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 242 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF 243 END SUBROUTINE cxios_get_fieldgroup_conversion_by_NetCDF 244 245 FUNCTION cxios_is_defined_fieldgroup_conversion_by_NetCDF(fieldgroup_hdl) BIND(C) 246 USE ISO_C_BINDING 247 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_conversion_by_NetCDF 248 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 249 END FUNCTION cxios_is_defined_fieldgroup_conversion_by_NetCDF 250 251 172 252 SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) 173 253 USE ISO_C_BINDING -
XIOS3/trunk/src/interface/fortran_attr/file_interface_attr.F90
r1492 r2616 191 191 192 192 193 SUBROUTINE cxios_set_file_gatherer(file_hdl, gatherer, gatherer_size) BIND(C) 194 USE ISO_C_BINDING 195 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 196 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: gatherer 197 INTEGER (kind = C_INT) , VALUE :: gatherer_size 198 END SUBROUTINE cxios_set_file_gatherer 199 200 SUBROUTINE cxios_get_file_gatherer(file_hdl, gatherer, gatherer_size) BIND(C) 201 USE ISO_C_BINDING 202 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 203 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: gatherer 204 INTEGER (kind = C_INT) , VALUE :: gatherer_size 205 END SUBROUTINE cxios_get_file_gatherer 206 207 FUNCTION cxios_is_defined_file_gatherer(file_hdl) BIND(C) 208 USE ISO_C_BINDING 209 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_gatherer 210 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 211 END FUNCTION cxios_is_defined_file_gatherer 212 213 193 214 SUBROUTINE cxios_set_file_min_digits(file_hdl, min_digits) BIND(C) 194 215 USE ISO_C_BINDING … … 334 355 335 356 357 SUBROUTINE cxios_set_file_pool_gatherer(file_hdl, pool_gatherer, pool_gatherer_size) BIND(C) 358 USE ISO_C_BINDING 359 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 360 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: pool_gatherer 361 INTEGER (kind = C_INT) , VALUE :: pool_gatherer_size 362 END SUBROUTINE cxios_set_file_pool_gatherer 363 364 SUBROUTINE cxios_get_file_pool_gatherer(file_hdl, pool_gatherer, pool_gatherer_size) BIND(C) 365 USE ISO_C_BINDING 366 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 367 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: pool_gatherer 368 INTEGER (kind = C_INT) , VALUE :: pool_gatherer_size 369 END SUBROUTINE cxios_get_file_pool_gatherer 370 371 FUNCTION cxios_is_defined_file_pool_gatherer(file_hdl) BIND(C) 372 USE ISO_C_BINDING 373 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_pool_gatherer 374 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 375 END FUNCTION cxios_is_defined_file_pool_gatherer 376 377 378 SUBROUTINE cxios_set_file_pool_reader(file_hdl, pool_reader, pool_reader_size) BIND(C) 379 USE ISO_C_BINDING 380 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 381 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: pool_reader 382 INTEGER (kind = C_INT) , VALUE :: pool_reader_size 383 END SUBROUTINE cxios_set_file_pool_reader 384 385 SUBROUTINE cxios_get_file_pool_reader(file_hdl, pool_reader, pool_reader_size) BIND(C) 386 USE ISO_C_BINDING 387 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 388 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: pool_reader 389 INTEGER (kind = C_INT) , VALUE :: pool_reader_size 390 END SUBROUTINE cxios_get_file_pool_reader 391 392 FUNCTION cxios_is_defined_file_pool_reader(file_hdl) BIND(C) 393 USE ISO_C_BINDING 394 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_pool_reader 395 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 396 END FUNCTION cxios_is_defined_file_pool_reader 397 398 399 SUBROUTINE cxios_set_file_pool_writer(file_hdl, pool_writer, pool_writer_size) BIND(C) 400 USE ISO_C_BINDING 401 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 402 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: pool_writer 403 INTEGER (kind = C_INT) , VALUE :: pool_writer_size 404 END SUBROUTINE cxios_set_file_pool_writer 405 406 SUBROUTINE cxios_get_file_pool_writer(file_hdl, pool_writer, pool_writer_size) BIND(C) 407 USE ISO_C_BINDING 408 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 409 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: pool_writer 410 INTEGER (kind = C_INT) , VALUE :: pool_writer_size 411 END SUBROUTINE cxios_get_file_pool_writer 412 413 FUNCTION cxios_is_defined_file_pool_writer(file_hdl) BIND(C) 414 USE ISO_C_BINDING 415 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_pool_writer 416 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 417 END FUNCTION cxios_is_defined_file_pool_writer 418 419 336 420 SUBROUTINE cxios_set_file_read_metadata_par(file_hdl, read_metadata_par) BIND(C) 337 421 USE ISO_C_BINDING … … 351 435 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 352 436 END FUNCTION cxios_is_defined_file_read_metadata_par 437 438 439 SUBROUTINE cxios_set_file_reader(file_hdl, reader, reader_size) BIND(C) 440 USE ISO_C_BINDING 441 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 442 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: reader 443 INTEGER (kind = C_INT) , VALUE :: reader_size 444 END SUBROUTINE cxios_set_file_reader 445 446 SUBROUTINE cxios_get_file_reader(file_hdl, reader, reader_size) BIND(C) 447 USE ISO_C_BINDING 448 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 449 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: reader 450 INTEGER (kind = C_INT) , VALUE :: reader_size 451 END SUBROUTINE cxios_get_file_reader 452 453 FUNCTION cxios_is_defined_file_reader(file_hdl) BIND(C) 454 USE ISO_C_BINDING 455 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_reader 456 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 457 END FUNCTION cxios_is_defined_file_reader 353 458 354 459 … … 666 771 667 772 773 SUBROUTINE cxios_set_file_using_server2(file_hdl, using_server2) BIND(C) 774 USE ISO_C_BINDING 775 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 776 LOGICAL (KIND=C_BOOL) , VALUE :: using_server2 777 END SUBROUTINE cxios_set_file_using_server2 778 779 SUBROUTINE cxios_get_file_using_server2(file_hdl, using_server2) BIND(C) 780 USE ISO_C_BINDING 781 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 782 LOGICAL (KIND=C_BOOL) :: using_server2 783 END SUBROUTINE cxios_get_file_using_server2 784 785 FUNCTION cxios_is_defined_file_using_server2(file_hdl) BIND(C) 786 USE ISO_C_BINDING 787 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_using_server2 788 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 789 END FUNCTION cxios_is_defined_file_using_server2 790 791 668 792 SUBROUTINE cxios_set_file_uuid_format(file_hdl, uuid_format, uuid_format_size) BIND(C) 669 793 USE ISO_C_BINDING … … 707 831 END FUNCTION cxios_is_defined_file_uuid_name 708 832 833 834 SUBROUTINE cxios_set_file_writer(file_hdl, writer, writer_size) BIND(C) 835 USE ISO_C_BINDING 836 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 837 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: writer 838 INTEGER (kind = C_INT) , VALUE :: writer_size 839 END SUBROUTINE cxios_set_file_writer 840 841 SUBROUTINE cxios_get_file_writer(file_hdl, writer, writer_size) BIND(C) 842 USE ISO_C_BINDING 843 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 844 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: writer 845 INTEGER (kind = C_INT) , VALUE :: writer_size 846 END SUBROUTINE cxios_get_file_writer 847 848 FUNCTION cxios_is_defined_file_writer(file_hdl) BIND(C) 849 USE ISO_C_BINDING 850 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_writer 851 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 852 END FUNCTION cxios_is_defined_file_writer 853 709 854 END INTERFACE 710 855 -
XIOS3/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90
r1492 r2616 191 191 192 192 193 SUBROUTINE cxios_set_filegroup_gatherer(filegroup_hdl, gatherer, gatherer_size) BIND(C) 194 USE ISO_C_BINDING 195 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 196 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: gatherer 197 INTEGER (kind = C_INT) , VALUE :: gatherer_size 198 END SUBROUTINE cxios_set_filegroup_gatherer 199 200 SUBROUTINE cxios_get_filegroup_gatherer(filegroup_hdl, gatherer, gatherer_size) BIND(C) 201 USE ISO_C_BINDING 202 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 203 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: gatherer 204 INTEGER (kind = C_INT) , VALUE :: gatherer_size 205 END SUBROUTINE cxios_get_filegroup_gatherer 206 207 FUNCTION cxios_is_defined_filegroup_gatherer(filegroup_hdl) BIND(C) 208 USE ISO_C_BINDING 209 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_gatherer 210 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 211 END FUNCTION cxios_is_defined_filegroup_gatherer 212 213 193 214 SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C) 194 215 USE ISO_C_BINDING … … 355 376 356 377 378 SUBROUTINE cxios_set_filegroup_pool_gatherer(filegroup_hdl, pool_gatherer, pool_gatherer_size) BIND(C) 379 USE ISO_C_BINDING 380 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 381 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: pool_gatherer 382 INTEGER (kind = C_INT) , VALUE :: pool_gatherer_size 383 END SUBROUTINE cxios_set_filegroup_pool_gatherer 384 385 SUBROUTINE cxios_get_filegroup_pool_gatherer(filegroup_hdl, pool_gatherer, pool_gatherer_size) BIND(C) 386 USE ISO_C_BINDING 387 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 388 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: pool_gatherer 389 INTEGER (kind = C_INT) , VALUE :: pool_gatherer_size 390 END SUBROUTINE cxios_get_filegroup_pool_gatherer 391 392 FUNCTION cxios_is_defined_filegroup_pool_gatherer(filegroup_hdl) BIND(C) 393 USE ISO_C_BINDING 394 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_pool_gatherer 395 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 396 END FUNCTION cxios_is_defined_filegroup_pool_gatherer 397 398 399 SUBROUTINE cxios_set_filegroup_pool_reader(filegroup_hdl, pool_reader, pool_reader_size) BIND(C) 400 USE ISO_C_BINDING 401 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 402 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: pool_reader 403 INTEGER (kind = C_INT) , VALUE :: pool_reader_size 404 END SUBROUTINE cxios_set_filegroup_pool_reader 405 406 SUBROUTINE cxios_get_filegroup_pool_reader(filegroup_hdl, pool_reader, pool_reader_size) BIND(C) 407 USE ISO_C_BINDING 408 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 409 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: pool_reader 410 INTEGER (kind = C_INT) , VALUE :: pool_reader_size 411 END SUBROUTINE cxios_get_filegroup_pool_reader 412 413 FUNCTION cxios_is_defined_filegroup_pool_reader(filegroup_hdl) BIND(C) 414 USE ISO_C_BINDING 415 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_pool_reader 416 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 417 END FUNCTION cxios_is_defined_filegroup_pool_reader 418 419 420 SUBROUTINE cxios_set_filegroup_pool_writer(filegroup_hdl, pool_writer, pool_writer_size) BIND(C) 421 USE ISO_C_BINDING 422 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 423 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: pool_writer 424 INTEGER (kind = C_INT) , VALUE :: pool_writer_size 425 END SUBROUTINE cxios_set_filegroup_pool_writer 426 427 SUBROUTINE cxios_get_filegroup_pool_writer(filegroup_hdl, pool_writer, pool_writer_size) BIND(C) 428 USE ISO_C_BINDING 429 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 430 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: pool_writer 431 INTEGER (kind = C_INT) , VALUE :: pool_writer_size 432 END SUBROUTINE cxios_get_filegroup_pool_writer 433 434 FUNCTION cxios_is_defined_filegroup_pool_writer(filegroup_hdl) BIND(C) 435 USE ISO_C_BINDING 436 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_pool_writer 437 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 438 END FUNCTION cxios_is_defined_filegroup_pool_writer 439 440 357 441 SUBROUTINE cxios_set_filegroup_read_metadata_par(filegroup_hdl, read_metadata_par) BIND(C) 358 442 USE ISO_C_BINDING … … 372 456 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 373 457 END FUNCTION cxios_is_defined_filegroup_read_metadata_par 458 459 460 SUBROUTINE cxios_set_filegroup_reader(filegroup_hdl, reader, reader_size) BIND(C) 461 USE ISO_C_BINDING 462 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 463 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: reader 464 INTEGER (kind = C_INT) , VALUE :: reader_size 465 END SUBROUTINE cxios_set_filegroup_reader 466 467 SUBROUTINE cxios_get_filegroup_reader(filegroup_hdl, reader, reader_size) BIND(C) 468 USE ISO_C_BINDING 469 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 470 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: reader 471 INTEGER (kind = C_INT) , VALUE :: reader_size 472 END SUBROUTINE cxios_get_filegroup_reader 473 474 FUNCTION cxios_is_defined_filegroup_reader(filegroup_hdl) BIND(C) 475 USE ISO_C_BINDING 476 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_reader 477 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 478 END FUNCTION cxios_is_defined_filegroup_reader 374 479 375 480 … … 687 792 688 793 794 SUBROUTINE cxios_set_filegroup_using_server2(filegroup_hdl, using_server2) BIND(C) 795 USE ISO_C_BINDING 796 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 797 LOGICAL (KIND=C_BOOL) , VALUE :: using_server2 798 END SUBROUTINE cxios_set_filegroup_using_server2 799 800 SUBROUTINE cxios_get_filegroup_using_server2(filegroup_hdl, using_server2) BIND(C) 801 USE ISO_C_BINDING 802 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 803 LOGICAL (KIND=C_BOOL) :: using_server2 804 END SUBROUTINE cxios_get_filegroup_using_server2 805 806 FUNCTION cxios_is_defined_filegroup_using_server2(filegroup_hdl) BIND(C) 807 USE ISO_C_BINDING 808 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_using_server2 809 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 810 END FUNCTION cxios_is_defined_filegroup_using_server2 811 812 689 813 SUBROUTINE cxios_set_filegroup_uuid_format(filegroup_hdl, uuid_format, uuid_format_size) BIND(C) 690 814 USE ISO_C_BINDING … … 728 852 END FUNCTION cxios_is_defined_filegroup_uuid_name 729 853 854 855 SUBROUTINE cxios_set_filegroup_writer(filegroup_hdl, writer, writer_size) BIND(C) 856 USE ISO_C_BINDING 857 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 858 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: writer 859 INTEGER (kind = C_INT) , VALUE :: writer_size 860 END SUBROUTINE cxios_set_filegroup_writer 861 862 SUBROUTINE cxios_get_filegroup_writer(filegroup_hdl, writer, writer_size) BIND(C) 863 USE ISO_C_BINDING 864 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 865 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: writer 866 INTEGER (kind = C_INT) , VALUE :: writer_size 867 END SUBROUTINE cxios_get_filegroup_writer 868 869 FUNCTION cxios_is_defined_filegroup_writer(filegroup_hdl) BIND(C) 870 USE ISO_C_BINDING 871 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_writer 872 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 873 END FUNCTION cxios_is_defined_filegroup_writer 874 730 875 END INTERFACE 731 876 -
XIOS3/trunk/src/interface/fortran_attr/iaxis_attr.F90
r1492 r2616 12 12 13 13 SUBROUTINE xios(set_axis_attr) & 14 ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&15 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label&16 , l ong_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit&17 , value )14 ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 15 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index & 16 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 17 , unit, value ) 18 18 19 19 IMPLICIT NONE … … 25 25 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) 26 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 27 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight 27 28 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 28 29 INTEGER , OPTIONAL, INTENT(IN) :: data_begin … … 52 53 (axis_id,axis_hdl) 53 54 CALL xios(set_axis_attr_hdl_) & 54 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&55 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label&56 , l ong_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit&57 , value )55 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 56 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index & 57 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 58 , unit, value ) 58 59 59 60 END SUBROUTINE xios(set_axis_attr) 60 61 61 62 SUBROUTINE xios(set_axis_attr_hdl) & 62 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&63 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label&64 , l ong_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit&65 , value )63 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 64 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index & 65 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 66 , unit, value ) 66 67 67 68 IMPLICIT NONE … … 72 73 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) 73 74 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 75 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight 74 76 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 75 77 INTEGER , OPTIONAL, INTENT(IN) :: data_begin … … 97 99 98 100 CALL xios(set_axis_attr_hdl_) & 99 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&100 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label&101 , l ong_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit&102 , value )101 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 102 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index & 103 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 104 , unit, value ) 103 105 104 106 END SUBROUTINE xios(set_axis_attr_hdl) 105 107 106 108 SUBROUTINE xios(set_axis_attr_hdl_) & 107 ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, c omment_, data_begin_, data_index_ &108 , data_ n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_, index_ &109 , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_ &110 , unit_, value_ )109 ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_ & 110 , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ & 111 , index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_ & 112 , prec_, standard_name_, unit_, value_ ) 111 113 112 114 IMPLICIT NONE … … 117 119 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:) 118 120 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_ 121 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_ 119 122 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 120 123 INTEGER , OPTIONAL, INTENT(IN) :: data_begin_ … … 166 169 ENDIF 167 170 171 IF (PRESENT(chunking_weight_)) THEN 172 CALL cxios_set_axis_chunking_weight & 173 (axis_hdl%daddr, chunking_weight_) 174 ENDIF 175 168 176 IF (PRESENT(comment_)) THEN 169 177 CALL cxios_set_axis_comment & … … 281 289 282 290 SUBROUTINE xios(get_axis_attr) & 283 ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&284 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label&285 , l ong_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit&286 , value )291 ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 292 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index & 293 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 294 , unit, value ) 287 295 288 296 IMPLICIT NONE … … 294 302 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) 295 303 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 304 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight 296 305 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 297 306 INTEGER , OPTIONAL, INTENT(OUT) :: data_begin … … 321 330 (axis_id,axis_hdl) 322 331 CALL xios(get_axis_attr_hdl_) & 323 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&324 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label&325 , l ong_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit&326 , value )332 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 333 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index & 334 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 335 , unit, value ) 327 336 328 337 END SUBROUTINE xios(get_axis_attr) 329 338 330 339 SUBROUTINE xios(get_axis_attr_hdl) & 331 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&332 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label&333 , l ong_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit&334 , value )340 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 341 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index & 342 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 343 , unit, value ) 335 344 336 345 IMPLICIT NONE … … 341 350 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) 342 351 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 352 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight 343 353 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 344 354 INTEGER , OPTIONAL, INTENT(OUT) :: data_begin … … 366 376 367 377 CALL xios(get_axis_attr_hdl_) & 368 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&369 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label&370 , l ong_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit&371 , value )378 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 379 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index & 380 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 381 , unit, value ) 372 382 373 383 END SUBROUTINE xios(get_axis_attr_hdl) 374 384 375 385 SUBROUTINE xios(get_axis_attr_hdl_) & 376 ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, c omment_, data_begin_, data_index_ &377 , data_ n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_, index_ &378 , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_ &379 , unit_, value_ )386 ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_ & 387 , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ & 388 , index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_ & 389 , prec_, standard_name_, unit_, value_ ) 380 390 381 391 IMPLICIT NONE … … 386 396 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:) 387 397 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_ 398 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_ 388 399 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 389 400 INTEGER , OPTIONAL, INTENT(OUT) :: data_begin_ … … 435 446 ENDIF 436 447 448 IF (PRESENT(chunking_weight_)) THEN 449 CALL cxios_get_axis_chunking_weight & 450 (axis_hdl%daddr, chunking_weight_) 451 ENDIF 452 437 453 IF (PRESENT(comment_)) THEN 438 454 CALL cxios_get_axis_comment & … … 550 566 551 567 SUBROUTINE xios(is_defined_axis_attr) & 552 ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&553 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label&554 , l ong_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit&555 , value )568 ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 569 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index & 570 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 571 , unit, value ) 556 572 557 573 IMPLICIT NONE … … 568 584 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 569 585 LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 586 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight 587 LOGICAL(KIND=C_BOOL) :: chunking_weight_tmp 570 588 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 571 589 LOGICAL(KIND=C_BOOL) :: comment_tmp … … 616 634 (axis_id,axis_hdl) 617 635 CALL xios(is_defined_axis_attr_hdl_) & 618 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&619 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label&620 , l ong_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit&621 , value )636 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 637 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index & 638 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 639 , unit, value ) 622 640 623 641 END SUBROUTINE xios(is_defined_axis_attr) 624 642 625 643 SUBROUTINE xios(is_defined_axis_attr_hdl) & 626 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&627 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label&628 , l ong_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit&629 , value )644 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 645 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index & 646 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 647 , unit, value ) 630 648 631 649 IMPLICIT NONE … … 641 659 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 642 660 LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 661 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight 662 LOGICAL(KIND=C_BOOL) :: chunking_weight_tmp 643 663 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 644 664 LOGICAL(KIND=C_BOOL) :: comment_tmp … … 687 707 688 708 CALL xios(is_defined_axis_attr_hdl_) & 689 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&690 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label&691 , l ong_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit&692 , value )709 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 710 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index & 711 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 712 , unit, value ) 693 713 694 714 END SUBROUTINE xios(is_defined_axis_attr_hdl) 695 715 696 716 SUBROUTINE xios(is_defined_axis_attr_hdl_) & 697 ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, c omment_, data_begin_, data_index_ &698 , data_ n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_, index_ &699 , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_ &700 , unit_, value_ )717 ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_ & 718 , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ & 719 , index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_ & 720 , prec_, standard_name_, unit_, value_ ) 701 721 702 722 IMPLICIT NONE … … 712 732 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_ 713 733 LOGICAL(KIND=C_BOOL) :: bounds_name__tmp 734 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_ 735 LOGICAL(KIND=C_BOOL) :: chunking_weight__tmp 714 736 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 715 737 LOGICAL(KIND=C_BOOL) :: comment__tmp … … 787 809 ENDIF 788 810 811 IF (PRESENT(chunking_weight_)) THEN 812 chunking_weight__tmp = cxios_is_defined_axis_chunking_weight & 813 (axis_hdl%daddr) 814 chunking_weight_ = chunking_weight__tmp 815 ENDIF 816 789 817 IF (PRESENT(comment_)) THEN 790 818 comment__tmp = cxios_is_defined_axis_comment & -
XIOS3/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90
r1492 r2616 12 12 13 13 SUBROUTINE xios(set_axisgroup_attr) & 14 ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&15 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index&16 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &14 ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 15 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref & 16 , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 17 17 , unit, value ) 18 18 … … 25 25 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) 26 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 27 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight 27 28 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 28 29 INTEGER , OPTIONAL, INTENT(IN) :: data_begin … … 53 54 (axisgroup_id,axisgroup_hdl) 54 55 CALL xios(set_axisgroup_attr_hdl_) & 55 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&56 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index&57 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &56 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 57 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref & 58 , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 58 59 , unit, value ) 59 60 … … 61 62 62 63 SUBROUTINE xios(set_axisgroup_attr_hdl) & 63 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&64 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index&65 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &64 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 65 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref & 66 , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 66 67 , unit, value ) 67 68 … … 73 74 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) 74 75 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 76 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight 75 77 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 76 78 INTEGER , OPTIONAL, INTENT(IN) :: data_begin … … 99 101 100 102 CALL xios(set_axisgroup_attr_hdl_) & 101 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&102 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index&103 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &103 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 104 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref & 105 , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 104 106 , unit, value ) 105 107 … … 107 109 108 110 SUBROUTINE xios(set_axisgroup_attr_hdl_) & 109 ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, c omment_, data_begin_ &110 , data_ index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ &111 ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_ & 112 , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ & 111 113 , group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_ & 112 114 , positive_, prec_, standard_name_, unit_, value_ ) … … 119 121 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:) 120 122 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_ 123 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_ 121 124 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 122 125 INTEGER , OPTIONAL, INTENT(IN) :: data_begin_ … … 169 172 ENDIF 170 173 174 IF (PRESENT(chunking_weight_)) THEN 175 CALL cxios_set_axisgroup_chunking_weight & 176 (axisgroup_hdl%daddr, chunking_weight_) 177 ENDIF 178 171 179 IF (PRESENT(comment_)) THEN 172 180 CALL cxios_set_axisgroup_comment & … … 289 297 290 298 SUBROUTINE xios(get_axisgroup_attr) & 291 ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&292 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index&293 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &299 ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 300 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref & 301 , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 294 302 , unit, value ) 295 303 … … 302 310 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) 303 311 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 312 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight 304 313 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 305 314 INTEGER , OPTIONAL, INTENT(OUT) :: data_begin … … 330 339 (axisgroup_id,axisgroup_hdl) 331 340 CALL xios(get_axisgroup_attr_hdl_) & 332 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&333 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index&334 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &341 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 342 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref & 343 , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 335 344 , unit, value ) 336 345 … … 338 347 339 348 SUBROUTINE xios(get_axisgroup_attr_hdl) & 340 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&341 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index&342 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &349 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 350 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref & 351 , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 343 352 , unit, value ) 344 353 … … 350 359 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) 351 360 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 361 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight 352 362 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 353 363 INTEGER , OPTIONAL, INTENT(OUT) :: data_begin … … 376 386 377 387 CALL xios(get_axisgroup_attr_hdl_) & 378 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&379 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index&380 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &388 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 389 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref & 390 , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 381 391 , unit, value ) 382 392 … … 384 394 385 395 SUBROUTINE xios(get_axisgroup_attr_hdl_) & 386 ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, c omment_, data_begin_ &387 , data_ index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ &396 ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_ & 397 , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ & 388 398 , group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_ & 389 399 , positive_, prec_, standard_name_, unit_, value_ ) … … 396 406 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:) 397 407 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_ 408 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_ 398 409 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 399 410 INTEGER , OPTIONAL, INTENT(OUT) :: data_begin_ … … 446 457 ENDIF 447 458 459 IF (PRESENT(chunking_weight_)) THEN 460 CALL cxios_get_axisgroup_chunking_weight & 461 (axisgroup_hdl%daddr, chunking_weight_) 462 ENDIF 463 448 464 IF (PRESENT(comment_)) THEN 449 465 CALL cxios_get_axisgroup_comment & … … 566 582 567 583 SUBROUTINE xios(is_defined_axisgroup_attr) & 568 ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&569 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index&570 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &584 ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 585 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref & 586 , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 571 587 , unit, value ) 572 588 … … 584 600 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 585 601 LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 602 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight 603 LOGICAL(KIND=C_BOOL) :: chunking_weight_tmp 586 604 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 587 605 LOGICAL(KIND=C_BOOL) :: comment_tmp … … 634 652 (axisgroup_id,axisgroup_hdl) 635 653 CALL xios(is_defined_axisgroup_attr_hdl_) & 636 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&637 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index&638 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &654 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 655 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref & 656 , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 639 657 , unit, value ) 640 658 … … 642 660 643 661 SUBROUTINE xios(is_defined_axisgroup_attr_hdl) & 644 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&645 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index&646 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &662 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 663 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref & 664 , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 647 665 , unit, value ) 648 666 … … 659 677 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 660 678 LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 679 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight 680 LOGICAL(KIND=C_BOOL) :: chunking_weight_tmp 661 681 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 662 682 LOGICAL(KIND=C_BOOL) :: comment_tmp … … 707 727 708 728 CALL xios(is_defined_axisgroup_attr_hdl_) & 709 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, c omment, data_begin, data_index&710 , data_ n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index&711 , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &729 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin & 730 , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref & 731 , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name & 712 732 , unit, value ) 713 733 … … 715 735 716 736 SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) & 717 ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, c omment_, data_begin_ &718 , data_ index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ &737 ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_ & 738 , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ & 719 739 , group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_ & 720 740 , positive_, prec_, standard_name_, unit_, value_ ) … … 732 752 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_ 733 753 LOGICAL(KIND=C_BOOL) :: bounds_name__tmp 754 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_ 755 LOGICAL(KIND=C_BOOL) :: chunking_weight__tmp 734 756 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 735 757 LOGICAL(KIND=C_BOOL) :: comment__tmp … … 809 831 ENDIF 810 832 833 IF (PRESENT(chunking_weight_)) THEN 834 chunking_weight__tmp = cxios_is_defined_axisgroup_chunking_weight & 835 (axisgroup_hdl%daddr) 836 chunking_weight_ = chunking_weight__tmp 837 ENDIF 838 811 839 IF (PRESENT(comment_)) THEN 812 840 comment__tmp = cxios_is_defined_axisgroup_comment & -
XIOS3/trunk/src/interface/fortran_attr/icontext_attr.F90
r1941 r2616 12 12 13 13 SUBROUTINE xios(set_context_attr) & 14 ( context_id, attached_mode, output_dir ) 14 ( context_id, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader & 15 , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 15 16 16 17 IMPLICIT NONE … … 19 20 LOGICAL , OPTIONAL, INTENT(IN) :: attached_mode 20 21 LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_gatherer 23 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool 24 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_gatherer 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_reader 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_writer 27 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_reader 28 LOGICAL , OPTIONAL, INTENT(IN) :: default_using_server2 29 LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_writer 21 31 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir 22 32 … … 24 34 (context_id,context_hdl) 25 35 CALL xios(set_context_attr_hdl_) & 26 ( context_hdl, attached_mode, output_dir ) 36 ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader & 37 , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 27 38 28 39 END SUBROUTINE xios(set_context_attr) 29 40 30 41 SUBROUTINE xios(set_context_attr_hdl) & 31 ( context_hdl, attached_mode, output_dir ) 42 ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader & 43 , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 32 44 33 45 IMPLICIT NONE … … 35 47 LOGICAL , OPTIONAL, INTENT(IN) :: attached_mode 36 48 LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 49 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_gatherer 50 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool 51 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_gatherer 52 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_reader 53 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_writer 54 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_reader 55 LOGICAL , OPTIONAL, INTENT(IN) :: default_using_server2 56 LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp 57 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_writer 37 58 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir 38 59 39 60 CALL xios(set_context_attr_hdl_) & 40 ( context_hdl, attached_mode, output_dir ) 61 ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader & 62 , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 41 63 42 64 END SUBROUTINE xios(set_context_attr_hdl) 43 65 44 66 SUBROUTINE xios(set_context_attr_hdl_) & 45 ( context_hdl, attached_mode_, output_dir_ ) 67 ( context_hdl, attached_mode_, default_gatherer_, default_pool_, default_pool_gatherer_, default_pool_reader_ & 68 , default_pool_writer_, default_reader_, default_using_server2_, default_writer_, output_dir_ & 69 ) 46 70 47 71 IMPLICIT NONE … … 49 73 LOGICAL , OPTIONAL, INTENT(IN) :: attached_mode_ 50 74 LOGICAL (KIND=C_BOOL) :: attached_mode__tmp 75 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_gatherer_ 76 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_ 77 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_gatherer_ 78 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_reader_ 79 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_pool_writer_ 80 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_reader_ 81 LOGICAL , OPTIONAL, INTENT(IN) :: default_using_server2_ 82 LOGICAL (KIND=C_BOOL) :: default_using_server2__tmp 83 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: default_writer_ 51 84 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_ 52 85 … … 57 90 ENDIF 58 91 92 IF (PRESENT(default_gatherer_)) THEN 93 CALL cxios_set_context_default_gatherer & 94 (context_hdl%daddr, default_gatherer_, len(default_gatherer_)) 95 ENDIF 96 97 IF (PRESENT(default_pool_)) THEN 98 CALL cxios_set_context_default_pool & 99 (context_hdl%daddr, default_pool_, len(default_pool_)) 100 ENDIF 101 102 IF (PRESENT(default_pool_gatherer_)) THEN 103 CALL cxios_set_context_default_pool_gatherer & 104 (context_hdl%daddr, default_pool_gatherer_, len(default_pool_gatherer_)) 105 ENDIF 106 107 IF (PRESENT(default_pool_reader_)) THEN 108 CALL cxios_set_context_default_pool_reader & 109 (context_hdl%daddr, default_pool_reader_, len(default_pool_reader_)) 110 ENDIF 111 112 IF (PRESENT(default_pool_writer_)) THEN 113 CALL cxios_set_context_default_pool_writer & 114 (context_hdl%daddr, default_pool_writer_, len(default_pool_writer_)) 115 ENDIF 116 117 IF (PRESENT(default_reader_)) THEN 118 CALL cxios_set_context_default_reader & 119 (context_hdl%daddr, default_reader_, len(default_reader_)) 120 ENDIF 121 122 IF (PRESENT(default_using_server2_)) THEN 123 default_using_server2__tmp = default_using_server2_ 124 CALL cxios_set_context_default_using_server2 & 125 (context_hdl%daddr, default_using_server2__tmp) 126 ENDIF 127 128 IF (PRESENT(default_writer_)) THEN 129 CALL cxios_set_context_default_writer & 130 (context_hdl%daddr, default_writer_, len(default_writer_)) 131 ENDIF 132 59 133 IF (PRESENT(output_dir_)) THEN 60 134 CALL cxios_set_context_output_dir & … … 65 139 66 140 SUBROUTINE xios(get_context_attr) & 67 ( context_id, attached_mode, output_dir ) 141 ( context_id, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader & 142 , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 68 143 69 144 IMPLICIT NONE … … 72 147 LOGICAL , OPTIONAL, INTENT(OUT) :: attached_mode 73 148 LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 149 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_gatherer 150 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool 151 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_gatherer 152 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_reader 153 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_writer 154 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_reader 155 LOGICAL , OPTIONAL, INTENT(OUT) :: default_using_server2 156 LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp 157 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_writer 74 158 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir 75 159 … … 77 161 (context_id,context_hdl) 78 162 CALL xios(get_context_attr_hdl_) & 79 ( context_hdl, attached_mode, output_dir ) 163 ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader & 164 , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 80 165 81 166 END SUBROUTINE xios(get_context_attr) 82 167 83 168 SUBROUTINE xios(get_context_attr_hdl) & 84 ( context_hdl, attached_mode, output_dir ) 169 ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader & 170 , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 85 171 86 172 IMPLICIT NONE … … 88 174 LOGICAL , OPTIONAL, INTENT(OUT) :: attached_mode 89 175 LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 176 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_gatherer 177 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool 178 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_gatherer 179 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_reader 180 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_writer 181 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_reader 182 LOGICAL , OPTIONAL, INTENT(OUT) :: default_using_server2 183 LOGICAL (KIND=C_BOOL) :: default_using_server2_tmp 184 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_writer 90 185 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir 91 186 92 187 CALL xios(get_context_attr_hdl_) & 93 ( context_hdl, attached_mode, output_dir ) 188 ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader & 189 , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 94 190 95 191 END SUBROUTINE xios(get_context_attr_hdl) 96 192 97 193 SUBROUTINE xios(get_context_attr_hdl_) & 98 ( context_hdl, attached_mode_, output_dir_ ) 194 ( context_hdl, attached_mode_, default_gatherer_, default_pool_, default_pool_gatherer_, default_pool_reader_ & 195 , default_pool_writer_, default_reader_, default_using_server2_, default_writer_, output_dir_ & 196 ) 99 197 100 198 IMPLICIT NONE … … 102 200 LOGICAL , OPTIONAL, INTENT(OUT) :: attached_mode_ 103 201 LOGICAL (KIND=C_BOOL) :: attached_mode__tmp 202 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_gatherer_ 203 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_ 204 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_gatherer_ 205 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_reader_ 206 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_pool_writer_ 207 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_reader_ 208 LOGICAL , OPTIONAL, INTENT(OUT) :: default_using_server2_ 209 LOGICAL (KIND=C_BOOL) :: default_using_server2__tmp 210 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: default_writer_ 104 211 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_ 105 212 … … 110 217 ENDIF 111 218 219 IF (PRESENT(default_gatherer_)) THEN 220 CALL cxios_get_context_default_gatherer & 221 (context_hdl%daddr, default_gatherer_, len(default_gatherer_)) 222 ENDIF 223 224 IF (PRESENT(default_pool_)) THEN 225 CALL cxios_get_context_default_pool & 226 (context_hdl%daddr, default_pool_, len(default_pool_)) 227 ENDIF 228 229 IF (PRESENT(default_pool_gatherer_)) THEN 230 CALL cxios_get_context_default_pool_gatherer & 231 (context_hdl%daddr, default_pool_gatherer_, len(default_pool_gatherer_)) 232 ENDIF 233 234 IF (PRESENT(default_pool_reader_)) THEN 235 CALL cxios_get_context_default_pool_reader & 236 (context_hdl%daddr, default_pool_reader_, len(default_pool_reader_)) 237 ENDIF 238 239 IF (PRESENT(default_pool_writer_)) THEN 240 CALL cxios_get_context_default_pool_writer & 241 (context_hdl%daddr, default_pool_writer_, len(default_pool_writer_)) 242 ENDIF 243 244 IF (PRESENT(default_reader_)) THEN 245 CALL cxios_get_context_default_reader & 246 (context_hdl%daddr, default_reader_, len(default_reader_)) 247 ENDIF 248 249 IF (PRESENT(default_using_server2_)) THEN 250 CALL cxios_get_context_default_using_server2 & 251 (context_hdl%daddr, default_using_server2__tmp) 252 default_using_server2_ = default_using_server2__tmp 253 ENDIF 254 255 IF (PRESENT(default_writer_)) THEN 256 CALL cxios_get_context_default_writer & 257 (context_hdl%daddr, default_writer_, len(default_writer_)) 258 ENDIF 259 112 260 IF (PRESENT(output_dir_)) THEN 113 261 CALL cxios_get_context_output_dir & … … 118 266 119 267 SUBROUTINE xios(is_defined_context_attr) & 120 ( context_id, attached_mode, output_dir ) 268 ( context_id, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader & 269 , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 121 270 122 271 IMPLICIT NONE … … 125 274 LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode 126 275 LOGICAL(KIND=C_BOOL) :: attached_mode_tmp 276 LOGICAL, OPTIONAL, INTENT(OUT) :: default_gatherer 277 LOGICAL(KIND=C_BOOL) :: default_gatherer_tmp 278 LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool 279 LOGICAL(KIND=C_BOOL) :: default_pool_tmp 280 LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_gatherer 281 LOGICAL(KIND=C_BOOL) :: default_pool_gatherer_tmp 282 LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_reader 283 LOGICAL(KIND=C_BOOL) :: default_pool_reader_tmp 284 LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_writer 285 LOGICAL(KIND=C_BOOL) :: default_pool_writer_tmp 286 LOGICAL, OPTIONAL, INTENT(OUT) :: default_reader 287 LOGICAL(KIND=C_BOOL) :: default_reader_tmp 288 LOGICAL, OPTIONAL, INTENT(OUT) :: default_using_server2 289 LOGICAL(KIND=C_BOOL) :: default_using_server2_tmp 290 LOGICAL, OPTIONAL, INTENT(OUT) :: default_writer 291 LOGICAL(KIND=C_BOOL) :: default_writer_tmp 127 292 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 128 293 LOGICAL(KIND=C_BOOL) :: output_dir_tmp … … 131 296 (context_id,context_hdl) 132 297 CALL xios(is_defined_context_attr_hdl_) & 133 ( context_hdl, attached_mode, output_dir ) 298 ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader & 299 , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 134 300 135 301 END SUBROUTINE xios(is_defined_context_attr) 136 302 137 303 SUBROUTINE xios(is_defined_context_attr_hdl) & 138 ( context_hdl, attached_mode, output_dir ) 304 ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader & 305 , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 139 306 140 307 IMPLICIT NONE … … 142 309 LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode 143 310 LOGICAL(KIND=C_BOOL) :: attached_mode_tmp 311 LOGICAL, OPTIONAL, INTENT(OUT) :: default_gatherer 312 LOGICAL(KIND=C_BOOL) :: default_gatherer_tmp 313 LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool 314 LOGICAL(KIND=C_BOOL) :: default_pool_tmp 315 LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_gatherer 316 LOGICAL(KIND=C_BOOL) :: default_pool_gatherer_tmp 317 LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_reader 318 LOGICAL(KIND=C_BOOL) :: default_pool_reader_tmp 319 LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_writer 320 LOGICAL(KIND=C_BOOL) :: default_pool_writer_tmp 321 LOGICAL, OPTIONAL, INTENT(OUT) :: default_reader 322 LOGICAL(KIND=C_BOOL) :: default_reader_tmp 323 LOGICAL, OPTIONAL, INTENT(OUT) :: default_using_server2 324 LOGICAL(KIND=C_BOOL) :: default_using_server2_tmp 325 LOGICAL, OPTIONAL, INTENT(OUT) :: default_writer 326 LOGICAL(KIND=C_BOOL) :: default_writer_tmp 144 327 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 145 328 LOGICAL(KIND=C_BOOL) :: output_dir_tmp 146 329 147 330 CALL xios(is_defined_context_attr_hdl_) & 148 ( context_hdl, attached_mode, output_dir ) 331 ( context_hdl, attached_mode, default_gatherer, default_pool, default_pool_gatherer, default_pool_reader & 332 , default_pool_writer, default_reader, default_using_server2, default_writer, output_dir ) 149 333 150 334 END SUBROUTINE xios(is_defined_context_attr_hdl) 151 335 152 336 SUBROUTINE xios(is_defined_context_attr_hdl_) & 153 ( context_hdl, attached_mode_, output_dir_ ) 337 ( context_hdl, attached_mode_, default_gatherer_, default_pool_, default_pool_gatherer_, default_pool_reader_ & 338 , default_pool_writer_, default_reader_, default_using_server2_, default_writer_, output_dir_ & 339 ) 154 340 155 341 IMPLICIT NONE … … 157 343 LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode_ 158 344 LOGICAL(KIND=C_BOOL) :: attached_mode__tmp 345 LOGICAL, OPTIONAL, INTENT(OUT) :: default_gatherer_ 346 LOGICAL(KIND=C_BOOL) :: default_gatherer__tmp 347 LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_ 348 LOGICAL(KIND=C_BOOL) :: default_pool__tmp 349 LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_gatherer_ 350 LOGICAL(KIND=C_BOOL) :: default_pool_gatherer__tmp 351 LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_reader_ 352 LOGICAL(KIND=C_BOOL) :: default_pool_reader__tmp 353 LOGICAL, OPTIONAL, INTENT(OUT) :: default_pool_writer_ 354 LOGICAL(KIND=C_BOOL) :: default_pool_writer__tmp 355 LOGICAL, OPTIONAL, INTENT(OUT) :: default_reader_ 356 LOGICAL(KIND=C_BOOL) :: default_reader__tmp 357 LOGICAL, OPTIONAL, INTENT(OUT) :: default_using_server2_ 358 LOGICAL(KIND=C_BOOL) :: default_using_server2__tmp 359 LOGICAL, OPTIONAL, INTENT(OUT) :: default_writer_ 360 LOGICAL(KIND=C_BOOL) :: default_writer__tmp 159 361 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_ 160 362 LOGICAL(KIND=C_BOOL) :: output_dir__tmp … … 166 368 ENDIF 167 369 370 IF (PRESENT(default_gatherer_)) THEN 371 default_gatherer__tmp = cxios_is_defined_context_default_gatherer & 372 (context_hdl%daddr) 373 default_gatherer_ = default_gatherer__tmp 374 ENDIF 375 376 IF (PRESENT(default_pool_)) THEN 377 default_pool__tmp = cxios_is_defined_context_default_pool & 378 (context_hdl%daddr) 379 default_pool_ = default_pool__tmp 380 ENDIF 381 382 IF (PRESENT(default_pool_gatherer_)) THEN 383 default_pool_gatherer__tmp = cxios_is_defined_context_default_pool_gatherer & 384 (context_hdl%daddr) 385 default_pool_gatherer_ = default_pool_gatherer__tmp 386 ENDIF 387 388 IF (PRESENT(default_pool_reader_)) THEN 389 default_pool_reader__tmp = cxios_is_defined_context_default_pool_reader & 390 (context_hdl%daddr) 391 default_pool_reader_ = default_pool_reader__tmp 392 ENDIF 393 394 IF (PRESENT(default_pool_writer_)) THEN 395 default_pool_writer__tmp = cxios_is_defined_context_default_pool_writer & 396 (context_hdl%daddr) 397 default_pool_writer_ = default_pool_writer__tmp 398 ENDIF 399 400 IF (PRESENT(default_reader_)) THEN 401 default_reader__tmp = cxios_is_defined_context_default_reader & 402 (context_hdl%daddr) 403 default_reader_ = default_reader__tmp 404 ENDIF 405 406 IF (PRESENT(default_using_server2_)) THEN 407 default_using_server2__tmp = cxios_is_defined_context_default_using_server2 & 408 (context_hdl%daddr) 409 default_using_server2_ = default_using_server2__tmp 410 ENDIF 411 412 IF (PRESENT(default_writer_)) THEN 413 default_writer__tmp = cxios_is_defined_context_default_writer & 414 (context_hdl%daddr) 415 default_writer_ = default_writer__tmp 416 ENDIF 417 168 418 IF (PRESENT(output_dir_)) THEN 169 419 output_dir__tmp = cxios_is_defined_context_output_dir & -
XIOS3/trunk/src/interface/fortran_attr/idomain_attr.F90
r1626 r2616 12 12 13 13 SUBROUTINE xios(set_domain_attr) & 14 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 15 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 16 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 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 ) 14 ( domain_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 15 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 16 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 17 , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name & 18 , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name & 19 , prec, radius, standard_name, type ) 19 20 20 21 IMPLICIT NONE … … 22 23 CHARACTER(LEN=*), INTENT(IN) ::domain_id 23 24 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:) 25 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d(:) 26 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d(:,:) 24 27 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 25 28 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) … … 28 31 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 29 32 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 33 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i 34 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j 30 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 31 36 INTEGER , OPTIONAL, INTENT(IN) :: data_dim … … 60 65 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 61 66 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 67 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name 62 68 INTEGER , OPTIONAL, INTENT(IN) :: prec 63 69 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius … … 68 74 (domain_id,domain_hdl) 69 75 CALL xios(set_domain_attr_hdl_) & 70 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 71 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 72 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 73 , 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 ) 76 ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 77 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 78 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 79 , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name & 80 , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name & 81 , prec, radius, standard_name, type ) 75 82 76 83 END SUBROUTINE xios(set_domain_attr) 77 84 78 85 SUBROUTINE xios(set_domain_attr_hdl) & 79 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 80 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 81 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 82 , 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 ) 86 ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 87 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 88 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 89 , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name & 90 , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name & 91 , prec, radius, standard_name, type ) 84 92 85 93 IMPLICIT NONE 86 94 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl 87 95 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:) 96 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d(:) 97 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d(:,:) 88 98 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 89 99 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) … … 92 102 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 93 103 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 104 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i 105 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j 94 106 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 95 107 INTEGER , OPTIONAL, INTENT(IN) :: data_dim … … 124 136 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 125 137 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 138 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name 126 139 INTEGER , OPTIONAL, INTENT(IN) :: prec 127 140 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius … … 130 143 131 144 CALL xios(set_domain_attr_hdl_) & 132 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 133 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 134 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 135 , 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 ) 145 ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 146 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 147 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 148 , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name & 149 , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name & 150 , prec, radius, standard_name, type ) 137 151 138 152 END SUBROUTINE xios(set_domain_attr_hdl) 139 153 140 154 SUBROUTINE xios(set_domain_attr_hdl_) & 141 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ &142 , bounds_lon_ name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ &143 , data_ ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ &144 , 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_ &146 )155 ( domain_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_ & 156 , bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_, data_dim_ & 157 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_ & 158 , dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_, latvalue_2d_ & 159 , lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_ & 160 , nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_ ) 147 161 148 162 IMPLICIT NONE 149 163 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl 150 164 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:) 165 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d_(:) 166 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d_(:,:) 151 167 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:) 152 168 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:) … … 155 171 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:) 156 172 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_ 173 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i_ 174 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j_ 157 175 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 158 176 INTEGER , OPTIONAL, INTENT(IN) :: data_dim_ … … 187 205 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_ 188 206 INTEGER , OPTIONAL, INTENT(IN) :: nvertex_ 207 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name_ 189 208 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 190 209 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ … … 197 216 ENDIF 198 217 218 IF (PRESENT(area_1d_)) THEN 219 CALL cxios_set_domain_area_1d & 220 (domain_hdl%daddr, area_1d_, SHAPE(area_1d_)) 221 ENDIF 222 223 IF (PRESENT(area_2d_)) THEN 224 CALL cxios_set_domain_area_2d & 225 (domain_hdl%daddr, area_2d_, SHAPE(area_2d_)) 226 ENDIF 227 199 228 IF (PRESENT(bounds_lat_1d_)) THEN 200 229 CALL cxios_set_domain_bounds_lat_1d & … … 225 254 CALL cxios_set_domain_bounds_lon_name & 226 255 (domain_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 256 ENDIF 257 258 IF (PRESENT(chunking_weight_i_)) THEN 259 CALL cxios_set_domain_chunking_weight_i & 260 (domain_hdl%daddr, chunking_weight_i_) 261 ENDIF 262 263 IF (PRESENT(chunking_weight_j_)) THEN 264 CALL cxios_set_domain_chunking_weight_j & 265 (domain_hdl%daddr, chunking_weight_j_) 227 266 ENDIF 228 267 … … 381 420 ENDIF 382 421 422 IF (PRESENT(nvertex_name_)) THEN 423 CALL cxios_set_domain_nvertex_name & 424 (domain_hdl%daddr, nvertex_name_, len(nvertex_name_)) 425 ENDIF 426 383 427 IF (PRESENT(prec_)) THEN 384 428 CALL cxios_set_domain_prec & … … 404 448 405 449 SUBROUTINE xios(get_domain_attr) & 406 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 407 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 408 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 409 , 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 ) 450 ( domain_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 451 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 452 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 453 , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name & 454 , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name & 455 , prec, radius, standard_name, type ) 411 456 412 457 IMPLICIT NONE … … 414 459 CHARACTER(LEN=*), INTENT(IN) ::domain_id 415 460 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:) 461 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d(:) 462 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d(:,:) 416 463 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 417 464 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) … … 420 467 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 421 468 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 469 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i 470 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j 422 471 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 423 472 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim … … 452 501 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 453 502 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 503 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name 454 504 INTEGER , OPTIONAL, INTENT(OUT) :: prec 455 505 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius … … 460 510 (domain_id,domain_hdl) 461 511 CALL xios(get_domain_attr_hdl_) & 462 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 463 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 464 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 465 , 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 ) 512 ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 513 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 514 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 515 , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name & 516 , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name & 517 , prec, radius, standard_name, type ) 467 518 468 519 END SUBROUTINE xios(get_domain_attr) 469 520 470 521 SUBROUTINE xios(get_domain_attr_hdl) & 471 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 472 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 473 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 474 , 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 ) 522 ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 523 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 524 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 525 , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name & 526 , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name & 527 , prec, radius, standard_name, type ) 476 528 477 529 IMPLICIT NONE 478 530 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl 479 531 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:) 532 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d(:) 533 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d(:,:) 480 534 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 481 535 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) … … 484 538 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 485 539 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 540 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i 541 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j 486 542 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 487 543 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim … … 516 572 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 517 573 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 574 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name 518 575 INTEGER , OPTIONAL, INTENT(OUT) :: prec 519 576 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius … … 522 579 523 580 CALL xios(get_domain_attr_hdl_) & 524 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 525 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 526 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 527 , 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 ) 581 ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 582 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 583 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 584 , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name & 585 , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name & 586 , prec, radius, standard_name, type ) 529 587 530 588 END SUBROUTINE xios(get_domain_attr_hdl) 531 589 532 590 SUBROUTINE xios(get_domain_attr_hdl_) & 533 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ &534 , bounds_lon_ name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ &535 , data_ ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ &536 , 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_ &538 )591 ( domain_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_ & 592 , bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_, data_dim_ & 593 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_ & 594 , dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_, latvalue_2d_ & 595 , lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_ & 596 , nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_ ) 539 597 540 598 IMPLICIT NONE 541 599 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl 542 600 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:) 601 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d_(:) 602 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d_(:,:) 543 603 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:) 544 604 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:) … … 547 607 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:) 548 608 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 609 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i_ 610 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j_ 549 611 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 550 612 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_ … … 579 641 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_ 580 642 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_ 643 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name_ 581 644 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 582 645 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ … … 589 652 ENDIF 590 653 654 IF (PRESENT(area_1d_)) THEN 655 CALL cxios_get_domain_area_1d & 656 (domain_hdl%daddr, area_1d_, SHAPE(area_1d_)) 657 ENDIF 658 659 IF (PRESENT(area_2d_)) THEN 660 CALL cxios_get_domain_area_2d & 661 (domain_hdl%daddr, area_2d_, SHAPE(area_2d_)) 662 ENDIF 663 591 664 IF (PRESENT(bounds_lat_1d_)) THEN 592 665 CALL cxios_get_domain_bounds_lat_1d & … … 617 690 CALL cxios_get_domain_bounds_lon_name & 618 691 (domain_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 692 ENDIF 693 694 IF (PRESENT(chunking_weight_i_)) THEN 695 CALL cxios_get_domain_chunking_weight_i & 696 (domain_hdl%daddr, chunking_weight_i_) 697 ENDIF 698 699 IF (PRESENT(chunking_weight_j_)) THEN 700 CALL cxios_get_domain_chunking_weight_j & 701 (domain_hdl%daddr, chunking_weight_j_) 619 702 ENDIF 620 703 … … 773 856 ENDIF 774 857 858 IF (PRESENT(nvertex_name_)) THEN 859 CALL cxios_get_domain_nvertex_name & 860 (domain_hdl%daddr, nvertex_name_, len(nvertex_name_)) 861 ENDIF 862 775 863 IF (PRESENT(prec_)) THEN 776 864 CALL cxios_get_domain_prec & … … 796 884 797 885 SUBROUTINE xios(is_defined_domain_attr) & 798 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 799 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 800 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 801 , 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 ) 886 ( domain_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 887 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 888 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 889 , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name & 890 , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name & 891 , prec, radius, standard_name, type ) 803 892 804 893 IMPLICIT NONE … … 807 896 LOGICAL, OPTIONAL, INTENT(OUT) :: area 808 897 LOGICAL(KIND=C_BOOL) :: area_tmp 898 LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d 899 LOGICAL(KIND=C_BOOL) :: area_1d_tmp 900 LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d 901 LOGICAL(KIND=C_BOOL) :: area_2d_tmp 809 902 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d 810 903 LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp … … 819 912 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 820 913 LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 914 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i 915 LOGICAL(KIND=C_BOOL) :: chunking_weight_i_tmp 916 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j 917 LOGICAL(KIND=C_BOOL) :: chunking_weight_j_tmp 821 918 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 822 919 LOGICAL(KIND=C_BOOL) :: comment_tmp … … 879 976 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 880 977 LOGICAL(KIND=C_BOOL) :: nvertex_tmp 978 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name 979 LOGICAL(KIND=C_BOOL) :: nvertex_name_tmp 881 980 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 882 981 LOGICAL(KIND=C_BOOL) :: prec_tmp … … 891 990 (domain_id,domain_hdl) 892 991 CALL xios(is_defined_domain_attr_hdl_) & 893 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 894 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 895 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 896 , 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 ) 992 ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 993 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 994 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 995 , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name & 996 , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name & 997 , prec, radius, standard_name, type ) 898 998 899 999 END SUBROUTINE xios(is_defined_domain_attr) 900 1000 901 1001 SUBROUTINE xios(is_defined_domain_attr_hdl) & 902 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 903 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 904 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 905 , 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 ) 1002 ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 1003 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 1004 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 1005 , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name & 1006 , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name & 1007 , prec, radius, standard_name, type ) 907 1008 908 1009 IMPLICIT NONE … … 910 1011 LOGICAL, OPTIONAL, INTENT(OUT) :: area 911 1012 LOGICAL(KIND=C_BOOL) :: area_tmp 1013 LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d 1014 LOGICAL(KIND=C_BOOL) :: area_1d_tmp 1015 LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d 1016 LOGICAL(KIND=C_BOOL) :: area_2d_tmp 912 1017 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d 913 1018 LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp … … 922 1027 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 923 1028 LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 1029 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i 1030 LOGICAL(KIND=C_BOOL) :: chunking_weight_i_tmp 1031 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j 1032 LOGICAL(KIND=C_BOOL) :: chunking_weight_j_tmp 924 1033 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 925 1034 LOGICAL(KIND=C_BOOL) :: comment_tmp … … 982 1091 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 983 1092 LOGICAL(KIND=C_BOOL) :: nvertex_tmp 1093 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name 1094 LOGICAL(KIND=C_BOOL) :: nvertex_name_tmp 984 1095 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 985 1096 LOGICAL(KIND=C_BOOL) :: prec_tmp … … 992 1103 993 1104 CALL xios(is_defined_domain_attr_hdl_) & 994 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 995 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 996 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 997 , 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 ) 1105 ( domain_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 1106 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 1107 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 1108 , i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name, long_name & 1109 , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, nvertex_name & 1110 , prec, radius, standard_name, type ) 999 1111 1000 1112 END SUBROUTINE xios(is_defined_domain_attr_hdl) 1001 1113 1002 1114 SUBROUTINE xios(is_defined_domain_attr_hdl_) & 1003 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ &1004 , bounds_lon_ name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ &1005 , data_ ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ &1006 , 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_ &1008 )1115 ( domain_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_ & 1116 , bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_, data_dim_ & 1117 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_ & 1118 , dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_, latvalue_2d_ & 1119 , lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_ & 1120 , nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_ ) 1009 1121 1010 1122 IMPLICIT NONE … … 1012 1124 LOGICAL, OPTIONAL, INTENT(OUT) :: area_ 1013 1125 LOGICAL(KIND=C_BOOL) :: area__tmp 1126 LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d_ 1127 LOGICAL(KIND=C_BOOL) :: area_1d__tmp 1128 LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d_ 1129 LOGICAL(KIND=C_BOOL) :: area_2d__tmp 1014 1130 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_ 1015 1131 LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp … … 1024 1140 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 1025 1141 LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp 1142 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i_ 1143 LOGICAL(KIND=C_BOOL) :: chunking_weight_i__tmp 1144 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j_ 1145 LOGICAL(KIND=C_BOOL) :: chunking_weight_j__tmp 1026 1146 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 1027 1147 LOGICAL(KIND=C_BOOL) :: comment__tmp … … 1084 1204 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 1085 1205 LOGICAL(KIND=C_BOOL) :: nvertex__tmp 1206 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name_ 1207 LOGICAL(KIND=C_BOOL) :: nvertex_name__tmp 1086 1208 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 1087 1209 LOGICAL(KIND=C_BOOL) :: prec__tmp … … 1099 1221 ENDIF 1100 1222 1223 IF (PRESENT(area_1d_)) THEN 1224 area_1d__tmp = cxios_is_defined_domain_area_1d & 1225 (domain_hdl%daddr) 1226 area_1d_ = area_1d__tmp 1227 ENDIF 1228 1229 IF (PRESENT(area_2d_)) THEN 1230 area_2d__tmp = cxios_is_defined_domain_area_2d & 1231 (domain_hdl%daddr) 1232 area_2d_ = area_2d__tmp 1233 ENDIF 1234 1101 1235 IF (PRESENT(bounds_lat_1d_)) THEN 1102 1236 bounds_lat_1d__tmp = cxios_is_defined_domain_bounds_lat_1d & … … 1135 1269 ENDIF 1136 1270 1271 IF (PRESENT(chunking_weight_i_)) THEN 1272 chunking_weight_i__tmp = cxios_is_defined_domain_chunking_weight_i & 1273 (domain_hdl%daddr) 1274 chunking_weight_i_ = chunking_weight_i__tmp 1275 ENDIF 1276 1277 IF (PRESENT(chunking_weight_j_)) THEN 1278 chunking_weight_j__tmp = cxios_is_defined_domain_chunking_weight_j & 1279 (domain_hdl%daddr) 1280 chunking_weight_j_ = chunking_weight_j__tmp 1281 ENDIF 1282 1137 1283 IF (PRESENT(comment_)) THEN 1138 1284 comment__tmp = cxios_is_defined_domain_comment & … … 1315 1461 ENDIF 1316 1462 1463 IF (PRESENT(nvertex_name_)) THEN 1464 nvertex_name__tmp = cxios_is_defined_domain_nvertex_name & 1465 (domain_hdl%daddr) 1466 nvertex_name_ = nvertex_name__tmp 1467 ENDIF 1468 1317 1469 IF (PRESENT(prec_)) THEN 1318 1470 prec__tmp = cxios_is_defined_domain_prec & -
XIOS3/trunk/src/interface/fortran_attr/idomaingroup_attr.F90
r1626 r2616 12 12 13 13 SUBROUTINE xios(set_domaingroup_attr) & 14 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 15 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 16 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 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 ) 14 ( domaingroup_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 15 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 16 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 17 , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name & 18 , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex & 19 , nvertex_name, prec, radius, standard_name, type ) 19 20 20 21 IMPLICIT NONE … … 22 23 CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id 23 24 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:) 25 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d(:) 26 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d(:,:) 24 27 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 25 28 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) … … 28 31 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 29 32 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 33 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i 34 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j 30 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 31 36 INTEGER , OPTIONAL, INTENT(IN) :: data_dim … … 61 66 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 62 67 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 68 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name 63 69 INTEGER , OPTIONAL, INTENT(IN) :: prec 64 70 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius … … 69 75 (domaingroup_id,domaingroup_hdl) 70 76 CALL xios(set_domaingroup_attr_hdl_) & 71 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 72 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 73 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 74 , 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 ) 77 ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 78 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 79 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 80 , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name & 81 , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex & 82 , nvertex_name, prec, radius, standard_name, type ) 76 83 77 84 END SUBROUTINE xios(set_domaingroup_attr) 78 85 79 86 SUBROUTINE xios(set_domaingroup_attr_hdl) & 80 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 81 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 82 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 83 , 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 ) 87 ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 88 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 89 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 90 , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name & 91 , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex & 92 , nvertex_name, prec, radius, standard_name, type ) 85 93 86 94 IMPLICIT NONE 87 95 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 88 96 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:) 97 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d(:) 98 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d(:,:) 89 99 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 90 100 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) … … 93 103 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 94 104 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 105 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i 106 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j 95 107 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 96 108 INTEGER , OPTIONAL, INTENT(IN) :: data_dim … … 126 138 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 127 139 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 140 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name 128 141 INTEGER , OPTIONAL, INTENT(IN) :: prec 129 142 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius … … 132 145 133 146 CALL xios(set_domaingroup_attr_hdl_) & 134 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 135 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 136 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 137 , 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 ) 147 ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 148 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 149 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 150 , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name & 151 , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex & 152 , nvertex_name, prec, radius, standard_name, type ) 139 153 140 154 END SUBROUTINE xios(set_domaingroup_attr_hdl) 141 155 142 156 SUBROUTINE xios(set_domaingroup_attr_hdl_) & 143 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ & 144 , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ & 145 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_ & 146 , 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_ ) 157 ( domaingroup_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_ & 158 , bounds_lon_1d_, bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_ & 159 , data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_ & 160 , dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_ & 161 , latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_ & 162 , ni_, ni_glo_, nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_ & 163 ) 149 164 150 165 IMPLICIT NONE 151 166 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 152 167 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:) 168 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d_(:) 169 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d_(:,:) 153 170 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:) 154 171 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:) … … 157 174 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:) 158 175 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_ 176 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i_ 177 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j_ 159 178 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 160 179 INTEGER , OPTIONAL, INTENT(IN) :: data_dim_ … … 190 209 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_ 191 210 INTEGER , OPTIONAL, INTENT(IN) :: nvertex_ 211 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name_ 192 212 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 193 213 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ … … 200 220 ENDIF 201 221 222 IF (PRESENT(area_1d_)) THEN 223 CALL cxios_set_domaingroup_area_1d & 224 (domaingroup_hdl%daddr, area_1d_, SHAPE(area_1d_)) 225 ENDIF 226 227 IF (PRESENT(area_2d_)) THEN 228 CALL cxios_set_domaingroup_area_2d & 229 (domaingroup_hdl%daddr, area_2d_, SHAPE(area_2d_)) 230 ENDIF 231 202 232 IF (PRESENT(bounds_lat_1d_)) THEN 203 233 CALL cxios_set_domaingroup_bounds_lat_1d & … … 228 258 CALL cxios_set_domaingroup_bounds_lon_name & 229 259 (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 260 ENDIF 261 262 IF (PRESENT(chunking_weight_i_)) THEN 263 CALL cxios_set_domaingroup_chunking_weight_i & 264 (domaingroup_hdl%daddr, chunking_weight_i_) 265 ENDIF 266 267 IF (PRESENT(chunking_weight_j_)) THEN 268 CALL cxios_set_domaingroup_chunking_weight_j & 269 (domaingroup_hdl%daddr, chunking_weight_j_) 230 270 ENDIF 231 271 … … 389 429 ENDIF 390 430 431 IF (PRESENT(nvertex_name_)) THEN 432 CALL cxios_set_domaingroup_nvertex_name & 433 (domaingroup_hdl%daddr, nvertex_name_, len(nvertex_name_)) 434 ENDIF 435 391 436 IF (PRESENT(prec_)) THEN 392 437 CALL cxios_set_domaingroup_prec & … … 412 457 413 458 SUBROUTINE xios(get_domaingroup_attr) & 414 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 415 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 416 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 417 , 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 ) 459 ( domaingroup_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 460 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 461 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 462 , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name & 463 , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex & 464 , nvertex_name, prec, radius, standard_name, type ) 419 465 420 466 IMPLICIT NONE … … 422 468 CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id 423 469 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:) 470 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d(:) 471 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d(:,:) 424 472 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 425 473 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) … … 428 476 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 429 477 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 478 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i 479 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j 430 480 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 431 481 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim … … 461 511 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 462 512 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 513 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name 463 514 INTEGER , OPTIONAL, INTENT(OUT) :: prec 464 515 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius … … 469 520 (domaingroup_id,domaingroup_hdl) 470 521 CALL xios(get_domaingroup_attr_hdl_) & 471 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 472 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 473 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 474 , 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 ) 522 ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 523 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 524 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 525 , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name & 526 , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex & 527 , nvertex_name, prec, radius, standard_name, type ) 476 528 477 529 END SUBROUTINE xios(get_domaingroup_attr) 478 530 479 531 SUBROUTINE xios(get_domaingroup_attr_hdl) & 480 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 481 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 482 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 483 , 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 ) 532 ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 533 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 534 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 535 , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name & 536 , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex & 537 , nvertex_name, prec, radius, standard_name, type ) 485 538 486 539 IMPLICIT NONE 487 540 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 488 541 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:) 542 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d(:) 543 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d(:,:) 489 544 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 490 545 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) … … 493 548 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 494 549 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 550 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i 551 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j 495 552 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 496 553 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim … … 526 583 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 527 584 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 585 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name 528 586 INTEGER , OPTIONAL, INTENT(OUT) :: prec 529 587 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius … … 532 590 533 591 CALL xios(get_domaingroup_attr_hdl_) & 534 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 535 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 536 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 537 , 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 ) 592 ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 593 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 594 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 595 , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name & 596 , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex & 597 , nvertex_name, prec, radius, standard_name, type ) 539 598 540 599 END SUBROUTINE xios(get_domaingroup_attr_hdl) 541 600 542 601 SUBROUTINE xios(get_domaingroup_attr_hdl_) & 543 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ & 544 , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ & 545 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_ & 546 , 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_ ) 602 ( domaingroup_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_ & 603 , bounds_lon_1d_, bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_ & 604 , data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_ & 605 , dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_ & 606 , latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_ & 607 , ni_, ni_glo_, nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_ & 608 ) 549 609 550 610 IMPLICIT NONE 551 611 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 552 612 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:) 613 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d_(:) 614 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d_(:,:) 553 615 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:) 554 616 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:) … … 557 619 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:) 558 620 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 621 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i_ 622 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j_ 559 623 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 560 624 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_ … … 590 654 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_ 591 655 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_ 656 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name_ 592 657 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 593 658 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ … … 600 665 ENDIF 601 666 667 IF (PRESENT(area_1d_)) THEN 668 CALL cxios_get_domaingroup_area_1d & 669 (domaingroup_hdl%daddr, area_1d_, SHAPE(area_1d_)) 670 ENDIF 671 672 IF (PRESENT(area_2d_)) THEN 673 CALL cxios_get_domaingroup_area_2d & 674 (domaingroup_hdl%daddr, area_2d_, SHAPE(area_2d_)) 675 ENDIF 676 602 677 IF (PRESENT(bounds_lat_1d_)) THEN 603 678 CALL cxios_get_domaingroup_bounds_lat_1d & … … 628 703 CALL cxios_get_domaingroup_bounds_lon_name & 629 704 (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 705 ENDIF 706 707 IF (PRESENT(chunking_weight_i_)) THEN 708 CALL cxios_get_domaingroup_chunking_weight_i & 709 (domaingroup_hdl%daddr, chunking_weight_i_) 710 ENDIF 711 712 IF (PRESENT(chunking_weight_j_)) THEN 713 CALL cxios_get_domaingroup_chunking_weight_j & 714 (domaingroup_hdl%daddr, chunking_weight_j_) 630 715 ENDIF 631 716 … … 789 874 ENDIF 790 875 876 IF (PRESENT(nvertex_name_)) THEN 877 CALL cxios_get_domaingroup_nvertex_name & 878 (domaingroup_hdl%daddr, nvertex_name_, len(nvertex_name_)) 879 ENDIF 880 791 881 IF (PRESENT(prec_)) THEN 792 882 CALL cxios_get_domaingroup_prec & … … 812 902 813 903 SUBROUTINE xios(is_defined_domaingroup_attr) & 814 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 815 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 816 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 817 , 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 ) 904 ( domaingroup_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 905 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 906 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 907 , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name & 908 , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex & 909 , nvertex_name, prec, radius, standard_name, type ) 819 910 820 911 IMPLICIT NONE … … 823 914 LOGICAL, OPTIONAL, INTENT(OUT) :: area 824 915 LOGICAL(KIND=C_BOOL) :: area_tmp 916 LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d 917 LOGICAL(KIND=C_BOOL) :: area_1d_tmp 918 LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d 919 LOGICAL(KIND=C_BOOL) :: area_2d_tmp 825 920 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d 826 921 LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp … … 835 930 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 836 931 LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 932 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i 933 LOGICAL(KIND=C_BOOL) :: chunking_weight_i_tmp 934 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j 935 LOGICAL(KIND=C_BOOL) :: chunking_weight_j_tmp 837 936 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 838 937 LOGICAL(KIND=C_BOOL) :: comment_tmp … … 897 996 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 898 997 LOGICAL(KIND=C_BOOL) :: nvertex_tmp 998 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name 999 LOGICAL(KIND=C_BOOL) :: nvertex_name_tmp 899 1000 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 900 1001 LOGICAL(KIND=C_BOOL) :: prec_tmp … … 909 1010 (domaingroup_id,domaingroup_hdl) 910 1011 CALL xios(is_defined_domaingroup_attr_hdl_) & 911 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 912 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 913 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 914 , 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 ) 1012 ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 1013 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 1014 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 1015 , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name & 1016 , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex & 1017 , nvertex_name, prec, radius, standard_name, type ) 916 1018 917 1019 END SUBROUTINE xios(is_defined_domaingroup_attr) 918 1020 919 1021 SUBROUTINE xios(is_defined_domaingroup_attr_hdl) & 920 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 921 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 922 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 923 , 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 ) 1022 ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 1023 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 1024 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 1025 , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name & 1026 , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex & 1027 , nvertex_name, prec, radius, standard_name, type ) 925 1028 926 1029 IMPLICIT NONE … … 928 1031 LOGICAL, OPTIONAL, INTENT(OUT) :: area 929 1032 LOGICAL(KIND=C_BOOL) :: area_tmp 1033 LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d 1034 LOGICAL(KIND=C_BOOL) :: area_1d_tmp 1035 LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d 1036 LOGICAL(KIND=C_BOOL) :: area_2d_tmp 930 1037 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d 931 1038 LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp … … 940 1047 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 941 1048 LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 1049 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i 1050 LOGICAL(KIND=C_BOOL) :: chunking_weight_i_tmp 1051 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j 1052 LOGICAL(KIND=C_BOOL) :: chunking_weight_j_tmp 942 1053 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 943 1054 LOGICAL(KIND=C_BOOL) :: comment_tmp … … 1002 1113 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 1003 1114 LOGICAL(KIND=C_BOOL) :: nvertex_tmp 1115 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name 1116 LOGICAL(KIND=C_BOOL) :: nvertex_name_tmp 1004 1117 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 1005 1118 LOGICAL(KIND=C_BOOL) :: prec_tmp … … 1012 1125 1013 1126 CALL xios(is_defined_domaingroup_attr_hdl_) & 1014 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 1015 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 1016 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 1017 , 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 ) 1127 ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d & 1128 , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index & 1129 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref & 1130 , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name & 1131 , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex & 1132 , nvertex_name, prec, radius, standard_name, type ) 1019 1133 1020 1134 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 1021 1135 1022 1136 SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) & 1023 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ & 1024 , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ & 1025 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_ & 1026 , 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_ ) 1137 ( domaingroup_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_ & 1138 , bounds_lon_1d_, bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_ & 1139 , data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_ & 1140 , dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_ & 1141 , latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_ & 1142 , ni_, ni_glo_, nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_ & 1143 ) 1029 1144 1030 1145 IMPLICIT NONE … … 1032 1147 LOGICAL, OPTIONAL, INTENT(OUT) :: area_ 1033 1148 LOGICAL(KIND=C_BOOL) :: area__tmp 1149 LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d_ 1150 LOGICAL(KIND=C_BOOL) :: area_1d__tmp 1151 LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d_ 1152 LOGICAL(KIND=C_BOOL) :: area_2d__tmp 1034 1153 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_ 1035 1154 LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp … … 1044 1163 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 1045 1164 LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp 1165 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i_ 1166 LOGICAL(KIND=C_BOOL) :: chunking_weight_i__tmp 1167 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j_ 1168 LOGICAL(KIND=C_BOOL) :: chunking_weight_j__tmp 1046 1169 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 1047 1170 LOGICAL(KIND=C_BOOL) :: comment__tmp … … 1106 1229 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 1107 1230 LOGICAL(KIND=C_BOOL) :: nvertex__tmp 1231 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name_ 1232 LOGICAL(KIND=C_BOOL) :: nvertex_name__tmp 1108 1233 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 1109 1234 LOGICAL(KIND=C_BOOL) :: prec__tmp … … 1121 1246 ENDIF 1122 1247 1248 IF (PRESENT(area_1d_)) THEN 1249 area_1d__tmp = cxios_is_defined_domaingroup_area_1d & 1250 (domaingroup_hdl%daddr) 1251 area_1d_ = area_1d__tmp 1252 ENDIF 1253 1254 IF (PRESENT(area_2d_)) THEN 1255 area_2d__tmp = cxios_is_defined_domaingroup_area_2d & 1256 (domaingroup_hdl%daddr) 1257 area_2d_ = area_2d__tmp 1258 ENDIF 1259 1123 1260 IF (PRESENT(bounds_lat_1d_)) THEN 1124 1261 bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d & … … 1157 1294 ENDIF 1158 1295 1296 IF (PRESENT(chunking_weight_i_)) THEN 1297 chunking_weight_i__tmp = cxios_is_defined_domaingroup_chunking_weight_i & 1298 (domaingroup_hdl%daddr) 1299 chunking_weight_i_ = chunking_weight_i__tmp 1300 ENDIF 1301 1302 IF (PRESENT(chunking_weight_j_)) THEN 1303 chunking_weight_j__tmp = cxios_is_defined_domaingroup_chunking_weight_j & 1304 (domaingroup_hdl%daddr) 1305 chunking_weight_j_ = chunking_weight_j__tmp 1306 ENDIF 1307 1159 1308 IF (PRESENT(comment_)) THEN 1160 1309 comment__tmp = cxios_is_defined_domaingroup_comment & … … 1343 1492 ENDIF 1344 1493 1494 IF (PRESENT(nvertex_name_)) THEN 1495 nvertex_name__tmp = cxios_is_defined_domaingroup_nvertex_name & 1496 (domaingroup_hdl%daddr) 1497 nvertex_name_ = nvertex_name__tmp 1498 ENDIF 1499 1345 1500 IF (PRESENT(prec_)) THEN 1346 1501 prec__tmp = cxios_is_defined_domaingroup_prec & -
XIOS3/trunk/src/interface/fortran_attr/ifield_attr.F90
r2338 r2616 13 13 SUBROUTINE xios(set_field_attr) & 14 14 ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 15 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 16 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 17 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 18 , unit, valid_max, valid_min ) 15 , chunking_blocksize_target, comment, compression_level, compression_params, compression_type & 16 , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 17 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 18 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 19 , valid_max, valid_min ) 19 20 20 21 IMPLICIT NONE … … 29 30 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active 30 31 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 32 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_blocksize_target 31 33 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 32 34 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 35 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: compression_params(:) 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: compression_type 37 LOGICAL , OPTIONAL, INTENT(IN) :: conversion_by_NetCDF 38 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 33 39 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 34 40 LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value … … 66 72 CALL xios(set_field_attr_hdl_) & 67 73 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 68 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 69 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 70 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 71 , unit, valid_max, valid_min ) 74 , chunking_blocksize_target, comment, compression_level, compression_params, compression_type & 75 , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 76 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 77 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 78 , valid_max, valid_min ) 72 79 73 80 END SUBROUTINE xios(set_field_attr) … … 75 82 SUBROUTINE xios(set_field_attr_hdl) & 76 83 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 77 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 78 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 79 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 80 , unit, valid_max, valid_min ) 84 , chunking_blocksize_target, comment, compression_level, compression_params, compression_type & 85 , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 86 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 87 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 88 , valid_max, valid_min ) 81 89 82 90 IMPLICIT NONE … … 90 98 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active 91 99 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 100 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_blocksize_target 92 101 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 93 102 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 103 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: compression_params(:) 104 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: compression_type 105 LOGICAL , OPTIONAL, INTENT(IN) :: conversion_by_NetCDF 106 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 94 107 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 95 108 LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value … … 125 138 CALL xios(set_field_attr_hdl_) & 126 139 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 127 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 128 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 129 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 130 , unit, valid_max, valid_min ) 140 , chunking_blocksize_target, comment, compression_level, compression_params, compression_type & 141 , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 142 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 143 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 144 , valid_max, valid_min ) 131 145 132 146 END SUBROUTINE xios(set_field_attr_hdl) … … 134 148 SUBROUTINE xios(set_field_attr_hdl_) & 135 149 ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ & 136 , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ & 150 , check_if_active_, chunking_blocksize_target_, comment_, compression_level_, compression_params_ & 151 , compression_type_, conversion_by_NetCDF_, default_value_, detect_missing_value_, domain_ref_ & 137 152 , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_ & 138 153 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & … … 149 164 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active_ 150 165 LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 166 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_blocksize_target_ 151 167 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 152 168 INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ 169 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: compression_params_(:) 170 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: compression_type_ 171 LOGICAL , OPTIONAL, INTENT(IN) :: conversion_by_NetCDF_ 172 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF__tmp 153 173 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 154 174 LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value_ … … 214 234 ENDIF 215 235 236 IF (PRESENT(chunking_blocksize_target_)) THEN 237 CALL cxios_set_field_chunking_blocksize_target & 238 (field_hdl%daddr, chunking_blocksize_target_) 239 ENDIF 240 216 241 IF (PRESENT(comment_)) THEN 217 242 CALL cxios_set_field_comment & … … 222 247 CALL cxios_set_field_compression_level & 223 248 (field_hdl%daddr, compression_level_) 249 ENDIF 250 251 IF (PRESENT(compression_params_)) THEN 252 CALL cxios_set_field_compression_params & 253 (field_hdl%daddr, compression_params_, SHAPE(compression_params_)) 254 ENDIF 255 256 IF (PRESENT(compression_type_)) THEN 257 CALL cxios_set_field_compression_type & 258 (field_hdl%daddr, compression_type_, len(compression_type_)) 259 ENDIF 260 261 IF (PRESENT(conversion_by_NetCDF_)) THEN 262 conversion_by_NetCDF__tmp = conversion_by_NetCDF_ 263 CALL cxios_set_field_conversion_by_NetCDF & 264 (field_hdl%daddr, conversion_by_NetCDF__tmp) 224 265 ENDIF 225 266 … … 358 399 SUBROUTINE xios(get_field_attr) & 359 400 ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 360 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 361 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 362 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 363 , unit, valid_max, valid_min ) 401 , chunking_blocksize_target, comment, compression_level, compression_params, compression_type & 402 , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 403 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 404 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 405 , valid_max, valid_min ) 364 406 365 407 IMPLICIT NONE … … 374 416 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active 375 417 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 418 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 376 419 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 377 420 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 421 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: compression_params(:) 422 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: compression_type 423 LOGICAL , OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 424 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 378 425 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 379 426 LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value … … 411 458 CALL xios(get_field_attr_hdl_) & 412 459 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 413 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 414 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 415 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 416 , unit, valid_max, valid_min ) 460 , chunking_blocksize_target, comment, compression_level, compression_params, compression_type & 461 , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 462 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 463 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 464 , valid_max, valid_min ) 417 465 418 466 END SUBROUTINE xios(get_field_attr) … … 420 468 SUBROUTINE xios(get_field_attr_hdl) & 421 469 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 422 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 423 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 424 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 425 , unit, valid_max, valid_min ) 470 , chunking_blocksize_target, comment, compression_level, compression_params, compression_type & 471 , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 472 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 473 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 474 , valid_max, valid_min ) 426 475 427 476 IMPLICIT NONE … … 435 484 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active 436 485 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 486 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 437 487 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 438 488 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 489 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: compression_params(:) 490 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: compression_type 491 LOGICAL , OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 492 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 439 493 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 440 494 LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value … … 470 524 CALL xios(get_field_attr_hdl_) & 471 525 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 472 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 473 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 474 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 475 , unit, valid_max, valid_min ) 526 , chunking_blocksize_target, comment, compression_level, compression_params, compression_type & 527 , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 528 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 529 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 530 , valid_max, valid_min ) 476 531 477 532 END SUBROUTINE xios(get_field_attr_hdl) … … 479 534 SUBROUTINE xios(get_field_attr_hdl_) & 480 535 ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ & 481 , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ & 536 , check_if_active_, chunking_blocksize_target_, comment_, compression_level_, compression_params_ & 537 , compression_type_, conversion_by_NetCDF_, default_value_, detect_missing_value_, domain_ref_ & 482 538 , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_ & 483 539 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & … … 494 550 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active_ 495 551 LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 552 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_blocksize_target_ 496 553 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 497 554 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ 555 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: compression_params_(:) 556 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: compression_type_ 557 LOGICAL , OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF_ 558 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF__tmp 498 559 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 499 560 LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value_ … … 559 620 ENDIF 560 621 622 IF (PRESENT(chunking_blocksize_target_)) THEN 623 CALL cxios_get_field_chunking_blocksize_target & 624 (field_hdl%daddr, chunking_blocksize_target_) 625 ENDIF 626 561 627 IF (PRESENT(comment_)) THEN 562 628 CALL cxios_get_field_comment & … … 567 633 CALL cxios_get_field_compression_level & 568 634 (field_hdl%daddr, compression_level_) 635 ENDIF 636 637 IF (PRESENT(compression_params_)) THEN 638 CALL cxios_get_field_compression_params & 639 (field_hdl%daddr, compression_params_, SHAPE(compression_params_)) 640 ENDIF 641 642 IF (PRESENT(compression_type_)) THEN 643 CALL cxios_get_field_compression_type & 644 (field_hdl%daddr, compression_type_, len(compression_type_)) 645 ENDIF 646 647 IF (PRESENT(conversion_by_NetCDF_)) THEN 648 CALL cxios_get_field_conversion_by_NetCDF & 649 (field_hdl%daddr, conversion_by_NetCDF__tmp) 650 conversion_by_NetCDF_ = conversion_by_NetCDF__tmp 569 651 ENDIF 570 652 … … 703 785 SUBROUTINE xios(is_defined_field_attr) & 704 786 ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 705 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 706 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 707 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 708 , unit, valid_max, valid_min ) 787 , chunking_blocksize_target, comment, compression_level, compression_params, compression_type & 788 , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 789 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 790 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 791 , valid_max, valid_min ) 709 792 710 793 IMPLICIT NONE … … 723 806 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 724 807 LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 808 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 809 LOGICAL(KIND=C_BOOL) :: chunking_blocksize_target_tmp 725 810 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 726 811 LOGICAL(KIND=C_BOOL) :: comment_tmp 727 812 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 728 813 LOGICAL(KIND=C_BOOL) :: compression_level_tmp 814 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_params 815 LOGICAL(KIND=C_BOOL) :: compression_params_tmp 816 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_type 817 LOGICAL(KIND=C_BOOL) :: compression_type_tmp 818 LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 819 LOGICAL(KIND=C_BOOL) :: conversion_by_NetCDF_tmp 729 820 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 730 821 LOGICAL(KIND=C_BOOL) :: default_value_tmp … … 782 873 CALL xios(is_defined_field_attr_hdl_) & 783 874 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 784 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 785 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 786 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 787 , unit, valid_max, valid_min ) 875 , chunking_blocksize_target, comment, compression_level, compression_params, compression_type & 876 , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 877 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 878 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 879 , valid_max, valid_min ) 788 880 789 881 END SUBROUTINE xios(is_defined_field_attr) … … 791 883 SUBROUTINE xios(is_defined_field_attr_hdl) & 792 884 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 793 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 794 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 795 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 796 , unit, valid_max, valid_min ) 885 , chunking_blocksize_target, comment, compression_level, compression_params, compression_type & 886 , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 887 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 888 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 889 , valid_max, valid_min ) 797 890 798 891 IMPLICIT NONE … … 810 903 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 811 904 LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 905 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 906 LOGICAL(KIND=C_BOOL) :: chunking_blocksize_target_tmp 812 907 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 813 908 LOGICAL(KIND=C_BOOL) :: comment_tmp 814 909 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 815 910 LOGICAL(KIND=C_BOOL) :: compression_level_tmp 911 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_params 912 LOGICAL(KIND=C_BOOL) :: compression_params_tmp 913 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_type 914 LOGICAL(KIND=C_BOOL) :: compression_type_tmp 915 LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 916 LOGICAL(KIND=C_BOOL) :: conversion_by_NetCDF_tmp 816 917 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 817 918 LOGICAL(KIND=C_BOOL) :: default_value_tmp … … 867 968 CALL xios(is_defined_field_attr_hdl_) & 868 969 ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active & 869 , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr & 870 , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name & 871 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 872 , unit, valid_max, valid_min ) 970 , chunking_blocksize_target, comment, compression_level, compression_params, compression_type & 971 , conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 972 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 973 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 974 , valid_max, valid_min ) 873 975 874 976 END SUBROUTINE xios(is_defined_field_attr_hdl) … … 876 978 SUBROUTINE xios(is_defined_field_attr_hdl_) & 877 979 ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ & 878 , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ & 980 , check_if_active_, chunking_blocksize_target_, comment_, compression_level_, compression_params_ & 981 , compression_type_, conversion_by_NetCDF_, default_value_, detect_missing_value_, domain_ref_ & 879 982 , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_ & 880 983 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & … … 895 998 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_ 896 999 LOGICAL(KIND=C_BOOL) :: check_if_active__tmp 1000 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_blocksize_target_ 1001 LOGICAL(KIND=C_BOOL) :: chunking_blocksize_target__tmp 897 1002 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 898 1003 LOGICAL(KIND=C_BOOL) :: comment__tmp 899 1004 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 900 1005 LOGICAL(KIND=C_BOOL) :: compression_level__tmp 1006 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_params_ 1007 LOGICAL(KIND=C_BOOL) :: compression_params__tmp 1008 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_type_ 1009 LOGICAL(KIND=C_BOOL) :: compression_type__tmp 1010 LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF_ 1011 LOGICAL(KIND=C_BOOL) :: conversion_by_NetCDF__tmp 901 1012 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 902 1013 LOGICAL(KIND=C_BOOL) :: default_value__tmp … … 986 1097 ENDIF 987 1098 1099 IF (PRESENT(chunking_blocksize_target_)) THEN 1100 chunking_blocksize_target__tmp = cxios_is_defined_field_chunking_blocksize_target & 1101 (field_hdl%daddr) 1102 chunking_blocksize_target_ = chunking_blocksize_target__tmp 1103 ENDIF 1104 988 1105 IF (PRESENT(comment_)) THEN 989 1106 comment__tmp = cxios_is_defined_field_comment & … … 998 1115 ENDIF 999 1116 1117 IF (PRESENT(compression_params_)) THEN 1118 compression_params__tmp = cxios_is_defined_field_compression_params & 1119 (field_hdl%daddr) 1120 compression_params_ = compression_params__tmp 1121 ENDIF 1122 1123 IF (PRESENT(compression_type_)) THEN 1124 compression_type__tmp = cxios_is_defined_field_compression_type & 1125 (field_hdl%daddr) 1126 compression_type_ = compression_type__tmp 1127 ENDIF 1128 1129 IF (PRESENT(conversion_by_NetCDF_)) THEN 1130 conversion_by_NetCDF__tmp = cxios_is_defined_field_conversion_by_NetCDF & 1131 (field_hdl%daddr) 1132 conversion_by_NetCDF_ = conversion_by_NetCDF__tmp 1133 ENDIF 1134 1000 1135 IF (PRESENT(default_value_)) THEN 1001 1136 default_value__tmp = cxios_is_defined_field_default_value & -
XIOS3/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90
r2338 r2616 13 13 SUBROUTINE xios(set_fieldgroup_attr) & 14 14 ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 15 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 16 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 17 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 18 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 15 , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params & 16 , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled & 17 , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level & 18 , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled & 19 , ts_split_freq, unit, valid_max, valid_min ) 19 20 20 21 IMPLICIT NONE … … 29 30 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active 30 31 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 32 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_blocksize_target 31 33 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 32 34 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 35 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: compression_params(:) 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: compression_type 37 LOGICAL , OPTIONAL, INTENT(IN) :: conversion_by_NetCDF 38 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 33 39 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 34 40 LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value … … 67 73 CALL xios(set_fieldgroup_attr_hdl_) & 68 74 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 69 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 70 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 71 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 72 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 75 , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params & 76 , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled & 77 , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level & 78 , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled & 79 , ts_split_freq, unit, valid_max, valid_min ) 73 80 74 81 END SUBROUTINE xios(set_fieldgroup_attr) … … 76 83 SUBROUTINE xios(set_fieldgroup_attr_hdl) & 77 84 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 78 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 79 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 80 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 81 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 85 , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params & 86 , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled & 87 , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level & 88 , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled & 89 , ts_split_freq, unit, valid_max, valid_min ) 82 90 83 91 IMPLICIT NONE … … 91 99 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active 92 100 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 101 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_blocksize_target 93 102 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 94 103 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 104 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: compression_params(:) 105 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: compression_type 106 LOGICAL , OPTIONAL, INTENT(IN) :: conversion_by_NetCDF 107 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 95 108 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 96 109 LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value … … 127 140 CALL xios(set_fieldgroup_attr_hdl_) & 128 141 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 129 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 130 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 131 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 132 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 142 , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params & 143 , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled & 144 , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level & 145 , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled & 146 , ts_split_freq, unit, valid_max, valid_min ) 133 147 134 148 END SUBROUTINE xios(set_fieldgroup_attr_hdl) … … 136 150 SUBROUTINE xios(set_fieldgroup_attr_hdl_) & 137 151 ( fieldgroup_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ & 138 , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ & 152 , check_if_active_, chunking_blocksize_target_, comment_, compression_level_, compression_params_ & 153 , compression_type_, conversion_by_NetCDF_, default_value_, detect_missing_value_, domain_ref_ & 139 154 , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_ & 140 155 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & … … 151 166 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active_ 152 167 LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 168 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_blocksize_target_ 153 169 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 154 170 INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ 171 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: compression_params_(:) 172 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: compression_type_ 173 LOGICAL , OPTIONAL, INTENT(IN) :: conversion_by_NetCDF_ 174 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF__tmp 155 175 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 156 176 LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value_ … … 217 237 ENDIF 218 238 239 IF (PRESENT(chunking_blocksize_target_)) THEN 240 CALL cxios_set_fieldgroup_chunking_blocksize_target & 241 (fieldgroup_hdl%daddr, chunking_blocksize_target_) 242 ENDIF 243 219 244 IF (PRESENT(comment_)) THEN 220 245 CALL cxios_set_fieldgroup_comment & … … 225 250 CALL cxios_set_fieldgroup_compression_level & 226 251 (fieldgroup_hdl%daddr, compression_level_) 252 ENDIF 253 254 IF (PRESENT(compression_params_)) THEN 255 CALL cxios_set_fieldgroup_compression_params & 256 (fieldgroup_hdl%daddr, compression_params_, SHAPE(compression_params_)) 257 ENDIF 258 259 IF (PRESENT(compression_type_)) THEN 260 CALL cxios_set_fieldgroup_compression_type & 261 (fieldgroup_hdl%daddr, compression_type_, len(compression_type_)) 262 ENDIF 263 264 IF (PRESENT(conversion_by_NetCDF_)) THEN 265 conversion_by_NetCDF__tmp = conversion_by_NetCDF_ 266 CALL cxios_set_fieldgroup_conversion_by_NetCDF & 267 (fieldgroup_hdl%daddr, conversion_by_NetCDF__tmp) 227 268 ENDIF 228 269 … … 366 407 SUBROUTINE xios(get_fieldgroup_attr) & 367 408 ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 368 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 369 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 370 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 371 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 409 , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params & 410 , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled & 411 , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level & 412 , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled & 413 , ts_split_freq, unit, valid_max, valid_min ) 372 414 373 415 IMPLICIT NONE … … 382 424 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active 383 425 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 426 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 384 427 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 385 428 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 429 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: compression_params(:) 430 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: compression_type 431 LOGICAL , OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 432 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 386 433 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 387 434 LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value … … 420 467 CALL xios(get_fieldgroup_attr_hdl_) & 421 468 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 422 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 423 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 424 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 425 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 469 , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params & 470 , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled & 471 , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level & 472 , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled & 473 , ts_split_freq, unit, valid_max, valid_min ) 426 474 427 475 END SUBROUTINE xios(get_fieldgroup_attr) … … 429 477 SUBROUTINE xios(get_fieldgroup_attr_hdl) & 430 478 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 431 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 432 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 433 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 434 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 479 , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params & 480 , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled & 481 , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level & 482 , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled & 483 , ts_split_freq, unit, valid_max, valid_min ) 435 484 436 485 IMPLICIT NONE … … 444 493 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active 445 494 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 495 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 446 496 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 447 497 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 498 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: compression_params(:) 499 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: compression_type 500 LOGICAL , OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 501 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF_tmp 448 502 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 449 503 LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value … … 480 534 CALL xios(get_fieldgroup_attr_hdl_) & 481 535 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 482 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 483 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 484 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 485 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 536 , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params & 537 , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled & 538 , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level & 539 , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled & 540 , ts_split_freq, unit, valid_max, valid_min ) 486 541 487 542 END SUBROUTINE xios(get_fieldgroup_attr_hdl) … … 489 544 SUBROUTINE xios(get_fieldgroup_attr_hdl_) & 490 545 ( fieldgroup_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ & 491 , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ & 546 , check_if_active_, chunking_blocksize_target_, comment_, compression_level_, compression_params_ & 547 , compression_type_, conversion_by_NetCDF_, default_value_, detect_missing_value_, domain_ref_ & 492 548 , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_ & 493 549 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & … … 504 560 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active_ 505 561 LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 562 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_blocksize_target_ 506 563 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 507 564 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ 565 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: compression_params_(:) 566 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: compression_type_ 567 LOGICAL , OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF_ 568 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF__tmp 508 569 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 509 570 LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value_ … … 570 631 ENDIF 571 632 633 IF (PRESENT(chunking_blocksize_target_)) THEN 634 CALL cxios_get_fieldgroup_chunking_blocksize_target & 635 (fieldgroup_hdl%daddr, chunking_blocksize_target_) 636 ENDIF 637 572 638 IF (PRESENT(comment_)) THEN 573 639 CALL cxios_get_fieldgroup_comment & … … 578 644 CALL cxios_get_fieldgroup_compression_level & 579 645 (fieldgroup_hdl%daddr, compression_level_) 646 ENDIF 647 648 IF (PRESENT(compression_params_)) THEN 649 CALL cxios_get_fieldgroup_compression_params & 650 (fieldgroup_hdl%daddr, compression_params_, SHAPE(compression_params_)) 651 ENDIF 652 653 IF (PRESENT(compression_type_)) THEN 654 CALL cxios_get_fieldgroup_compression_type & 655 (fieldgroup_hdl%daddr, compression_type_, len(compression_type_)) 656 ENDIF 657 658 IF (PRESENT(conversion_by_NetCDF_)) THEN 659 CALL cxios_get_fieldgroup_conversion_by_NetCDF & 660 (fieldgroup_hdl%daddr, conversion_by_NetCDF__tmp) 661 conversion_by_NetCDF_ = conversion_by_NetCDF__tmp 580 662 ENDIF 581 663 … … 719 801 SUBROUTINE xios(is_defined_fieldgroup_attr) & 720 802 ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 721 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 722 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 723 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 724 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 803 , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params & 804 , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled & 805 , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level & 806 , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled & 807 , ts_split_freq, unit, valid_max, valid_min ) 725 808 726 809 IMPLICIT NONE … … 739 822 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 740 823 LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 824 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 825 LOGICAL(KIND=C_BOOL) :: chunking_blocksize_target_tmp 741 826 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 742 827 LOGICAL(KIND=C_BOOL) :: comment_tmp 743 828 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 744 829 LOGICAL(KIND=C_BOOL) :: compression_level_tmp 830 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_params 831 LOGICAL(KIND=C_BOOL) :: compression_params_tmp 832 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_type 833 LOGICAL(KIND=C_BOOL) :: compression_type_tmp 834 LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 835 LOGICAL(KIND=C_BOOL) :: conversion_by_NetCDF_tmp 745 836 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 746 837 LOGICAL(KIND=C_BOOL) :: default_value_tmp … … 800 891 CALL xios(is_defined_fieldgroup_attr_hdl_) & 801 892 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 802 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 803 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 804 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 805 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 893 , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params & 894 , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled & 895 , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level & 896 , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled & 897 , ts_split_freq, unit, valid_max, valid_min ) 806 898 807 899 END SUBROUTINE xios(is_defined_fieldgroup_attr) … … 809 901 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) & 810 902 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 811 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 812 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 813 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 814 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 903 , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params & 904 , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled & 905 , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level & 906 , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled & 907 , ts_split_freq, unit, valid_max, valid_min ) 815 908 816 909 IMPLICIT NONE … … 828 921 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 829 922 LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 923 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_blocksize_target 924 LOGICAL(KIND=C_BOOL) :: chunking_blocksize_target_tmp 830 925 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 831 926 LOGICAL(KIND=C_BOOL) :: comment_tmp 832 927 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 833 928 LOGICAL(KIND=C_BOOL) :: compression_level_tmp 929 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_params 930 LOGICAL(KIND=C_BOOL) :: compression_params_tmp 931 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_type 932 LOGICAL(KIND=C_BOOL) :: compression_type_tmp 933 LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF 934 LOGICAL(KIND=C_BOOL) :: conversion_by_NetCDF_tmp 834 935 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 835 936 LOGICAL(KIND=C_BOOL) :: default_value_tmp … … 887 988 CALL xios(is_defined_fieldgroup_attr_hdl_) & 888 989 ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode & 889 , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref & 890 , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output & 891 , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name & 892 , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 990 , check_if_active, chunking_blocksize_target, comment, compression_level, compression_params & 991 , compression_type, conversion_by_NetCDF, default_value, detect_missing_value, domain_ref, enabled & 992 , expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level & 993 , long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled & 994 , ts_split_freq, unit, valid_max, valid_min ) 893 995 894 996 END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) … … 896 998 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) & 897 999 ( fieldgroup_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_ & 898 , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_ & 1000 , check_if_active_, chunking_blocksize_target_, comment_, compression_level_, compression_params_ & 1001 , compression_type_, conversion_by_NetCDF_, default_value_, detect_missing_value_, domain_ref_ & 899 1002 , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_ & 900 1003 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & … … 915 1018 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_ 916 1019 LOGICAL(KIND=C_BOOL) :: check_if_active__tmp 1020 LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_blocksize_target_ 1021 LOGICAL(KIND=C_BOOL) :: chunking_blocksize_target__tmp 917 1022 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 918 1023 LOGICAL(KIND=C_BOOL) :: comment__tmp 919 1024 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 920 1025 LOGICAL(KIND=C_BOOL) :: compression_level__tmp 1026 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_params_ 1027 LOGICAL(KIND=C_BOOL) :: compression_params__tmp 1028 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_type_ 1029 LOGICAL(KIND=C_BOOL) :: compression_type__tmp 1030 LOGICAL, OPTIONAL, INTENT(OUT) :: conversion_by_NetCDF_ 1031 LOGICAL(KIND=C_BOOL) :: conversion_by_NetCDF__tmp 921 1032 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 922 1033 LOGICAL(KIND=C_BOOL) :: default_value__tmp … … 1008 1119 ENDIF 1009 1120 1121 IF (PRESENT(chunking_blocksize_target_)) THEN 1122 chunking_blocksize_target__tmp = cxios_is_defined_fieldgroup_chunking_blocksize_target & 1123 (fieldgroup_hdl%daddr) 1124 chunking_blocksize_target_ = chunking_blocksize_target__tmp 1125 ENDIF 1126 1010 1127 IF (PRESENT(comment_)) THEN 1011 1128 comment__tmp = cxios_is_defined_fieldgroup_comment & … … 1020 1137 ENDIF 1021 1138 1139 IF (PRESENT(compression_params_)) THEN 1140 compression_params__tmp = cxios_is_defined_fieldgroup_compression_params & 1141 (fieldgroup_hdl%daddr) 1142 compression_params_ = compression_params__tmp 1143 ENDIF 1144 1145 IF (PRESENT(compression_type_)) THEN 1146 compression_type__tmp = cxios_is_defined_fieldgroup_compression_type & 1147 (fieldgroup_hdl%daddr) 1148 compression_type_ = compression_type__tmp 1149 ENDIF 1150 1151 IF (PRESENT(conversion_by_NetCDF_)) THEN 1152 conversion_by_NetCDF__tmp = cxios_is_defined_fieldgroup_conversion_by_NetCDF & 1153 (fieldgroup_hdl%daddr) 1154 conversion_by_NetCDF_ = conversion_by_NetCDF__tmp 1155 ENDIF 1156 1022 1157 IF (PRESENT(default_value_)) THEN 1023 1158 default_value__tmp = cxios_is_defined_fieldgroup_default_value & -
XIOS3/trunk/src/interface/fortran_attr/ifile_attr.F90
r1492 r2616 13 13 SUBROUTINE xios(set_file_attr) & 14 14 ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description & 15 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 16 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 17 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 18 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 15 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 16 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 17 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 18 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 19 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 19 20 20 21 IMPLICIT NONE … … 33 34 LOGICAL (KIND=C_BOOL) :: enabled_tmp 34 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer 35 37 INTEGER , OPTIONAL, INTENT(IN) :: min_digits 36 38 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode … … 40 42 INTEGER , OPTIONAL, INTENT(IN) :: output_level 41 43 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 44 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer 45 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader 46 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer 42 47 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par 43 48 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 49 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader 44 50 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 45 51 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset … … 57 63 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 58 64 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 65 LOGICAL , OPTIONAL, INTENT(IN) :: using_server2 66 LOGICAL (KIND=C_BOOL) :: using_server2_tmp 59 67 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 60 68 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 69 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer 61 70 62 71 CALL xios(get_file_handle) & … … 64 73 CALL xios(set_file_attr_hdl_) & 65 74 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 66 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 67 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 68 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 69 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 75 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 76 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 77 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 78 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 79 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 70 80 71 81 END SUBROUTINE xios(set_file_attr) … … 73 83 SUBROUTINE xios(set_file_attr_hdl) & 74 84 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 75 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 76 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 77 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 78 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 85 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 86 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 87 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 88 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 89 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 79 90 80 91 IMPLICIT NONE … … 92 103 LOGICAL (KIND=C_BOOL) :: enabled_tmp 93 104 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format 105 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer 94 106 INTEGER , OPTIONAL, INTENT(IN) :: min_digits 95 107 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode … … 99 111 INTEGER , OPTIONAL, INTENT(IN) :: output_level 100 112 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 113 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer 114 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader 115 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer 101 116 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par 102 117 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 118 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader 103 119 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 104 120 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset … … 116 132 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 117 133 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 134 LOGICAL , OPTIONAL, INTENT(IN) :: using_server2 135 LOGICAL (KIND=C_BOOL) :: using_server2_tmp 118 136 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 119 137 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 138 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer 120 139 121 140 CALL xios(set_file_attr_hdl_) & 122 141 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 123 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 124 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 125 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 126 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 142 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 143 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 144 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 145 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 146 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 127 147 128 148 END SUBROUTINE xios(set_file_attr_hdl) … … 130 150 SUBROUTINE xios(set_file_attr_hdl_) & 131 151 ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_ & 132 , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ & 133 , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_ & 134 , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_ & 135 , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 152 , enabled_, format_, gatherer_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_ & 153 , par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_, reader_, record_offset_ & 154 , split_end_offset_, split_freq_, split_freq_format_, split_last_date_, split_start_offset_ & 155 , sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_, time_units_ & 156 , timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ ) 136 157 137 158 IMPLICIT NONE … … 149 170 LOGICAL (KIND=C_BOOL) :: enabled__tmp 150 171 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_ 172 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer_ 151 173 INTEGER , OPTIONAL, INTENT(IN) :: min_digits_ 152 174 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_ … … 156 178 INTEGER , OPTIONAL, INTENT(IN) :: output_level_ 157 179 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 180 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer_ 181 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader_ 182 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer_ 158 183 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par_ 159 184 LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 185 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader_ 160 186 INTEGER , OPTIONAL, INTENT(IN) :: record_offset_ 161 187 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset_ … … 173 199 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ 174 200 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 201 LOGICAL , OPTIONAL, INTENT(IN) :: using_server2_ 202 LOGICAL (KIND=C_BOOL) :: using_server2__tmp 175 203 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_ 176 204 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_ 205 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer_ 177 206 178 207 IF (PRESENT(append_)) THEN … … 224 253 ENDIF 225 254 255 IF (PRESENT(gatherer_)) THEN 256 CALL cxios_set_file_gatherer & 257 (file_hdl%daddr, gatherer_, len(gatherer_)) 258 ENDIF 259 226 260 IF (PRESENT(min_digits_)) THEN 227 261 CALL cxios_set_file_min_digits & … … 257 291 CALL cxios_set_file_par_access & 258 292 (file_hdl%daddr, par_access_, len(par_access_)) 293 ENDIF 294 295 IF (PRESENT(pool_gatherer_)) THEN 296 CALL cxios_set_file_pool_gatherer & 297 (file_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) 298 ENDIF 299 300 IF (PRESENT(pool_reader_)) THEN 301 CALL cxios_set_file_pool_reader & 302 (file_hdl%daddr, pool_reader_, len(pool_reader_)) 303 ENDIF 304 305 IF (PRESENT(pool_writer_)) THEN 306 CALL cxios_set_file_pool_writer & 307 (file_hdl%daddr, pool_writer_, len(pool_writer_)) 259 308 ENDIF 260 309 … … 265 314 ENDIF 266 315 316 IF (PRESENT(reader_)) THEN 317 CALL cxios_set_file_reader & 318 (file_hdl%daddr, reader_, len(reader_)) 319 ENDIF 320 267 321 IF (PRESENT(record_offset_)) THEN 268 322 CALL cxios_set_file_record_offset & … … 340 394 ENDIF 341 395 396 IF (PRESENT(using_server2_)) THEN 397 using_server2__tmp = using_server2_ 398 CALL cxios_set_file_using_server2 & 399 (file_hdl%daddr, using_server2__tmp) 400 ENDIF 401 342 402 IF (PRESENT(uuid_format_)) THEN 343 403 CALL cxios_set_file_uuid_format & … … 350 410 ENDIF 351 411 412 IF (PRESENT(writer_)) THEN 413 CALL cxios_set_file_writer & 414 (file_hdl%daddr, writer_, len(writer_)) 415 ENDIF 416 352 417 END SUBROUTINE xios(set_file_attr_hdl_) 353 418 354 419 SUBROUTINE xios(get_file_attr) & 355 420 ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description & 356 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 357 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 358 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 359 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 421 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 422 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 423 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 424 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 425 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 360 426 361 427 IMPLICIT NONE … … 374 440 LOGICAL (KIND=C_BOOL) :: enabled_tmp 375 441 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format 442 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer 376 443 INTEGER , OPTIONAL, INTENT(OUT) :: min_digits 377 444 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode … … 381 448 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 382 449 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 450 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer 451 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader 452 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer 383 453 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par 384 454 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 455 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader 385 456 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 386 457 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset … … 398 469 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 399 470 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 471 LOGICAL , OPTIONAL, INTENT(OUT) :: using_server2 472 LOGICAL (KIND=C_BOOL) :: using_server2_tmp 400 473 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 401 474 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 475 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer 402 476 403 477 CALL xios(get_file_handle) & … … 405 479 CALL xios(get_file_attr_hdl_) & 406 480 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 407 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 408 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 409 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 410 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 481 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 482 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 483 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 484 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 485 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 411 486 412 487 END SUBROUTINE xios(get_file_attr) … … 414 489 SUBROUTINE xios(get_file_attr_hdl) & 415 490 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 416 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 417 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 418 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 419 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 491 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 492 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 493 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 494 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 495 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 420 496 421 497 IMPLICIT NONE … … 433 509 LOGICAL (KIND=C_BOOL) :: enabled_tmp 434 510 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format 511 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer 435 512 INTEGER , OPTIONAL, INTENT(OUT) :: min_digits 436 513 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode … … 440 517 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 441 518 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 519 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer 520 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader 521 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer 442 522 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par 443 523 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 524 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader 444 525 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 445 526 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset … … 457 538 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 458 539 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 540 LOGICAL , OPTIONAL, INTENT(OUT) :: using_server2 541 LOGICAL (KIND=C_BOOL) :: using_server2_tmp 459 542 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 460 543 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 544 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer 461 545 462 546 CALL xios(get_file_attr_hdl_) & 463 547 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 464 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 465 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 466 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 467 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 548 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 549 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 550 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 551 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 552 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 468 553 469 554 END SUBROUTINE xios(get_file_attr_hdl) … … 471 556 SUBROUTINE xios(get_file_attr_hdl_) & 472 557 ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_ & 473 , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ & 474 , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_ & 475 , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_ & 476 , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 558 , enabled_, format_, gatherer_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_ & 559 , par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_, reader_, record_offset_ & 560 , split_end_offset_, split_freq_, split_freq_format_, split_last_date_, split_start_offset_ & 561 , sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_, time_units_ & 562 , timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ ) 477 563 478 564 IMPLICIT NONE … … 490 576 LOGICAL (KIND=C_BOOL) :: enabled__tmp 491 577 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_ 578 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer_ 492 579 INTEGER , OPTIONAL, INTENT(OUT) :: min_digits_ 493 580 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_ … … 497 584 INTEGER , OPTIONAL, INTENT(OUT) :: output_level_ 498 585 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 586 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer_ 587 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader_ 588 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer_ 499 589 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par_ 500 590 LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 591 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader_ 501 592 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_ 502 593 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset_ … … 514 605 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ 515 606 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 607 LOGICAL , OPTIONAL, INTENT(OUT) :: using_server2_ 608 LOGICAL (KIND=C_BOOL) :: using_server2__tmp 516 609 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_ 517 610 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_ 611 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer_ 518 612 519 613 IF (PRESENT(append_)) THEN … … 565 659 ENDIF 566 660 661 IF (PRESENT(gatherer_)) THEN 662 CALL cxios_get_file_gatherer & 663 (file_hdl%daddr, gatherer_, len(gatherer_)) 664 ENDIF 665 567 666 IF (PRESENT(min_digits_)) THEN 568 667 CALL cxios_get_file_min_digits & … … 598 697 CALL cxios_get_file_par_access & 599 698 (file_hdl%daddr, par_access_, len(par_access_)) 699 ENDIF 700 701 IF (PRESENT(pool_gatherer_)) THEN 702 CALL cxios_get_file_pool_gatherer & 703 (file_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) 704 ENDIF 705 706 IF (PRESENT(pool_reader_)) THEN 707 CALL cxios_get_file_pool_reader & 708 (file_hdl%daddr, pool_reader_, len(pool_reader_)) 709 ENDIF 710 711 IF (PRESENT(pool_writer_)) THEN 712 CALL cxios_get_file_pool_writer & 713 (file_hdl%daddr, pool_writer_, len(pool_writer_)) 600 714 ENDIF 601 715 … … 606 720 ENDIF 607 721 722 IF (PRESENT(reader_)) THEN 723 CALL cxios_get_file_reader & 724 (file_hdl%daddr, reader_, len(reader_)) 725 ENDIF 726 608 727 IF (PRESENT(record_offset_)) THEN 609 728 CALL cxios_get_file_record_offset & … … 681 800 ENDIF 682 801 802 IF (PRESENT(using_server2_)) THEN 803 CALL cxios_get_file_using_server2 & 804 (file_hdl%daddr, using_server2__tmp) 805 using_server2_ = using_server2__tmp 806 ENDIF 807 683 808 IF (PRESENT(uuid_format_)) THEN 684 809 CALL cxios_get_file_uuid_format & … … 691 816 ENDIF 692 817 818 IF (PRESENT(writer_)) THEN 819 CALL cxios_get_file_writer & 820 (file_hdl%daddr, writer_, len(writer_)) 821 ENDIF 822 693 823 END SUBROUTINE xios(get_file_attr_hdl_) 694 824 695 825 SUBROUTINE xios(is_defined_file_attr) & 696 826 ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description & 697 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 698 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 699 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 700 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 827 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 828 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 829 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 830 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 831 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 701 832 702 833 IMPLICIT NONE … … 721 852 LOGICAL, OPTIONAL, INTENT(OUT) :: format 722 853 LOGICAL(KIND=C_BOOL) :: format_tmp 854 LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer 855 LOGICAL(KIND=C_BOOL) :: gatherer_tmp 723 856 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 724 857 LOGICAL(KIND=C_BOOL) :: min_digits_tmp … … 735 868 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 736 869 LOGICAL(KIND=C_BOOL) :: par_access_tmp 870 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer 871 LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp 872 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader 873 LOGICAL(KIND=C_BOOL) :: pool_reader_tmp 874 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer 875 LOGICAL(KIND=C_BOOL) :: pool_writer_tmp 737 876 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 738 877 LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 878 LOGICAL, OPTIONAL, INTENT(OUT) :: reader 879 LOGICAL(KIND=C_BOOL) :: reader_tmp 739 880 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 740 881 LOGICAL(KIND=C_BOOL) :: record_offset_tmp … … 767 908 LOGICAL, OPTIONAL, INTENT(OUT) :: type 768 909 LOGICAL(KIND=C_BOOL) :: type_tmp 910 LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 911 LOGICAL(KIND=C_BOOL) :: using_server2_tmp 769 912 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 770 913 LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 771 914 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 772 915 LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 916 LOGICAL, OPTIONAL, INTENT(OUT) :: writer 917 LOGICAL(KIND=C_BOOL) :: writer_tmp 773 918 774 919 CALL xios(get_file_handle) & … … 776 921 CALL xios(is_defined_file_attr_hdl_) & 777 922 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 778 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 779 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 780 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 781 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 923 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 924 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 925 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 926 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 927 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 782 928 783 929 END SUBROUTINE xios(is_defined_file_attr) … … 785 931 SUBROUTINE xios(is_defined_file_attr_hdl) & 786 932 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 787 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 788 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 789 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 790 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 933 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 934 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 935 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 936 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 937 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 791 938 792 939 IMPLICIT NONE … … 810 957 LOGICAL, OPTIONAL, INTENT(OUT) :: format 811 958 LOGICAL(KIND=C_BOOL) :: format_tmp 959 LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer 960 LOGICAL(KIND=C_BOOL) :: gatherer_tmp 812 961 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 813 962 LOGICAL(KIND=C_BOOL) :: min_digits_tmp … … 824 973 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 825 974 LOGICAL(KIND=C_BOOL) :: par_access_tmp 975 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer 976 LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp 977 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader 978 LOGICAL(KIND=C_BOOL) :: pool_reader_tmp 979 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer 980 LOGICAL(KIND=C_BOOL) :: pool_writer_tmp 826 981 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 827 982 LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 983 LOGICAL, OPTIONAL, INTENT(OUT) :: reader 984 LOGICAL(KIND=C_BOOL) :: reader_tmp 828 985 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 829 986 LOGICAL(KIND=C_BOOL) :: record_offset_tmp … … 856 1013 LOGICAL, OPTIONAL, INTENT(OUT) :: type 857 1014 LOGICAL(KIND=C_BOOL) :: type_tmp 1015 LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 1016 LOGICAL(KIND=C_BOOL) :: using_server2_tmp 858 1017 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 859 1018 LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 860 1019 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 861 1020 LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 1021 LOGICAL, OPTIONAL, INTENT(OUT) :: writer 1022 LOGICAL(KIND=C_BOOL) :: writer_tmp 862 1023 863 1024 CALL xios(is_defined_file_attr_hdl_) & 864 1025 ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 865 , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 866 , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date & 867 , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 868 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 1026 , enabled, format, gatherer, min_digits, mode, name, name_suffix, output_freq, output_level & 1027 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 1028 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 1029 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 1030 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 869 1031 870 1032 END SUBROUTINE xios(is_defined_file_attr_hdl) … … 872 1034 SUBROUTINE xios(is_defined_file_attr_hdl_) & 873 1035 ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_ & 874 , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ & 875 , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_ & 876 , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_ & 877 , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 1036 , enabled_, format_, gatherer_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_ & 1037 , par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_, reader_, record_offset_ & 1038 , split_end_offset_, split_freq_, split_freq_format_, split_last_date_, split_start_offset_ & 1039 , sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_, time_units_ & 1040 , timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ ) 878 1041 879 1042 IMPLICIT NONE … … 897 1060 LOGICAL, OPTIONAL, INTENT(OUT) :: format_ 898 1061 LOGICAL(KIND=C_BOOL) :: format__tmp 1062 LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer_ 1063 LOGICAL(KIND=C_BOOL) :: gatherer__tmp 899 1064 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_ 900 1065 LOGICAL(KIND=C_BOOL) :: min_digits__tmp … … 911 1076 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 912 1077 LOGICAL(KIND=C_BOOL) :: par_access__tmp 1078 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer_ 1079 LOGICAL(KIND=C_BOOL) :: pool_gatherer__tmp 1080 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader_ 1081 LOGICAL(KIND=C_BOOL) :: pool_reader__tmp 1082 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer_ 1083 LOGICAL(KIND=C_BOOL) :: pool_writer__tmp 913 1084 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_ 914 1085 LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp 1086 LOGICAL, OPTIONAL, INTENT(OUT) :: reader_ 1087 LOGICAL(KIND=C_BOOL) :: reader__tmp 915 1088 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ 916 1089 LOGICAL(KIND=C_BOOL) :: record_offset__tmp … … 943 1116 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 944 1117 LOGICAL(KIND=C_BOOL) :: type__tmp 1118 LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2_ 1119 LOGICAL(KIND=C_BOOL) :: using_server2__tmp 945 1120 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_ 946 1121 LOGICAL(KIND=C_BOOL) :: uuid_format__tmp 947 1122 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_ 948 1123 LOGICAL(KIND=C_BOOL) :: uuid_name__tmp 1124 LOGICAL, OPTIONAL, INTENT(OUT) :: writer_ 1125 LOGICAL(KIND=C_BOOL) :: writer__tmp 949 1126 950 1127 IF (PRESENT(append_)) THEN … … 1002 1179 ENDIF 1003 1180 1181 IF (PRESENT(gatherer_)) THEN 1182 gatherer__tmp = cxios_is_defined_file_gatherer & 1183 (file_hdl%daddr) 1184 gatherer_ = gatherer__tmp 1185 ENDIF 1186 1004 1187 IF (PRESENT(min_digits_)) THEN 1005 1188 min_digits__tmp = cxios_is_defined_file_min_digits & … … 1044 1227 ENDIF 1045 1228 1229 IF (PRESENT(pool_gatherer_)) THEN 1230 pool_gatherer__tmp = cxios_is_defined_file_pool_gatherer & 1231 (file_hdl%daddr) 1232 pool_gatherer_ = pool_gatherer__tmp 1233 ENDIF 1234 1235 IF (PRESENT(pool_reader_)) THEN 1236 pool_reader__tmp = cxios_is_defined_file_pool_reader & 1237 (file_hdl%daddr) 1238 pool_reader_ = pool_reader__tmp 1239 ENDIF 1240 1241 IF (PRESENT(pool_writer_)) THEN 1242 pool_writer__tmp = cxios_is_defined_file_pool_writer & 1243 (file_hdl%daddr) 1244 pool_writer_ = pool_writer__tmp 1245 ENDIF 1246 1046 1247 IF (PRESENT(read_metadata_par_)) THEN 1047 1248 read_metadata_par__tmp = cxios_is_defined_file_read_metadata_par & … … 1050 1251 ENDIF 1051 1252 1253 IF (PRESENT(reader_)) THEN 1254 reader__tmp = cxios_is_defined_file_reader & 1255 (file_hdl%daddr) 1256 reader_ = reader__tmp 1257 ENDIF 1258 1052 1259 IF (PRESENT(record_offset_)) THEN 1053 1260 record_offset__tmp = cxios_is_defined_file_record_offset & … … 1140 1347 ENDIF 1141 1348 1349 IF (PRESENT(using_server2_)) THEN 1350 using_server2__tmp = cxios_is_defined_file_using_server2 & 1351 (file_hdl%daddr) 1352 using_server2_ = using_server2__tmp 1353 ENDIF 1354 1142 1355 IF (PRESENT(uuid_format_)) THEN 1143 1356 uuid_format__tmp = cxios_is_defined_file_uuid_format & … … 1152 1365 ENDIF 1153 1366 1367 IF (PRESENT(writer_)) THEN 1368 writer__tmp = cxios_is_defined_file_writer & 1369 (file_hdl%daddr) 1370 writer_ = writer__tmp 1371 ENDIF 1372 1154 1373 END SUBROUTINE xios(is_defined_file_attr_hdl_) 1155 1374 -
XIOS3/trunk/src/interface/fortran_attr/ifilegroup_attr.F90
r1492 r2616 13 13 SUBROUTINE xios(set_filegroup_attr) & 14 14 ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description & 15 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 16 , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format & 17 , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format & 18 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 15 , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 16 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 17 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 18 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 19 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 19 20 20 21 IMPLICIT NONE … … 33 34 LOGICAL (KIND=C_BOOL) :: enabled_tmp 34 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer 35 37 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 36 38 INTEGER , OPTIONAL, INTENT(IN) :: min_digits … … 41 43 INTEGER , OPTIONAL, INTENT(IN) :: output_level 42 44 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 45 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer 46 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader 47 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer 43 48 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par 44 49 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 50 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader 45 51 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 46 52 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset … … 58 64 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 59 65 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 66 LOGICAL , OPTIONAL, INTENT(IN) :: using_server2 67 LOGICAL (KIND=C_BOOL) :: using_server2_tmp 60 68 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 61 69 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 70 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer 62 71 63 72 CALL xios(get_filegroup_handle) & … … 65 74 CALL xios(set_filegroup_attr_hdl_) & 66 75 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 67 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 68 , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format & 69 , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format & 70 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 76 , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 77 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 78 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 79 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 80 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 71 81 72 82 END SUBROUTINE xios(set_filegroup_attr) … … 74 84 SUBROUTINE xios(set_filegroup_attr_hdl) & 75 85 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 76 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 77 , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format & 78 , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format & 79 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 86 , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 87 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 88 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 89 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 90 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 80 91 81 92 IMPLICIT NONE … … 93 104 LOGICAL (KIND=C_BOOL) :: enabled_tmp 94 105 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format 106 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer 95 107 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 96 108 INTEGER , OPTIONAL, INTENT(IN) :: min_digits … … 101 113 INTEGER , OPTIONAL, INTENT(IN) :: output_level 102 114 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 115 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer 116 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader 117 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer 103 118 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par 104 119 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 120 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader 105 121 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 106 122 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset … … 118 134 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 119 135 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 136 LOGICAL , OPTIONAL, INTENT(IN) :: using_server2 137 LOGICAL (KIND=C_BOOL) :: using_server2_tmp 120 138 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 121 139 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 140 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer 122 141 123 142 CALL xios(set_filegroup_attr_hdl_) & 124 143 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 125 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 126 , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format & 127 , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format & 128 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 144 , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 145 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 146 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 147 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 148 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 129 149 130 150 END SUBROUTINE xios(set_filegroup_attr_hdl) … … 132 152 SUBROUTINE xios(set_filegroup_attr_hdl_) & 133 153 ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_ & 134 , description_, enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_ & 135 , output_level_, par_access_, read_metadata_par_, record_offset_, split_end_offset_, split_freq_ & 136 , split_freq_format_, split_last_date_, split_start_offset_, sync_freq_, time_counter_, time_counter_name_ & 137 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ & 138 , uuid_name_ ) 154 , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_ & 155 , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_ & 156 , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_ & 157 , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_ & 158 , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ & 159 ) 139 160 140 161 IMPLICIT NONE … … 152 173 LOGICAL (KIND=C_BOOL) :: enabled__tmp 153 174 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_ 175 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer_ 154 176 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 155 177 INTEGER , OPTIONAL, INTENT(IN) :: min_digits_ … … 160 182 INTEGER , OPTIONAL, INTENT(IN) :: output_level_ 161 183 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 184 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer_ 185 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader_ 186 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer_ 162 187 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par_ 163 188 LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 189 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader_ 164 190 INTEGER , OPTIONAL, INTENT(IN) :: record_offset_ 165 191 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset_ … … 177 203 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ 178 204 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 205 LOGICAL , OPTIONAL, INTENT(IN) :: using_server2_ 206 LOGICAL (KIND=C_BOOL) :: using_server2__tmp 179 207 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_ 180 208 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_ 209 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer_ 181 210 182 211 IF (PRESENT(append_)) THEN … … 228 257 ENDIF 229 258 259 IF (PRESENT(gatherer_)) THEN 260 CALL cxios_set_filegroup_gatherer & 261 (filegroup_hdl%daddr, gatherer_, len(gatherer_)) 262 ENDIF 263 230 264 IF (PRESENT(group_ref_)) THEN 231 265 CALL cxios_set_filegroup_group_ref & … … 266 300 CALL cxios_set_filegroup_par_access & 267 301 (filegroup_hdl%daddr, par_access_, len(par_access_)) 302 ENDIF 303 304 IF (PRESENT(pool_gatherer_)) THEN 305 CALL cxios_set_filegroup_pool_gatherer & 306 (filegroup_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) 307 ENDIF 308 309 IF (PRESENT(pool_reader_)) THEN 310 CALL cxios_set_filegroup_pool_reader & 311 (filegroup_hdl%daddr, pool_reader_, len(pool_reader_)) 312 ENDIF 313 314 IF (PRESENT(pool_writer_)) THEN 315 CALL cxios_set_filegroup_pool_writer & 316 (filegroup_hdl%daddr, pool_writer_, len(pool_writer_)) 268 317 ENDIF 269 318 … … 274 323 ENDIF 275 324 325 IF (PRESENT(reader_)) THEN 326 CALL cxios_set_filegroup_reader & 327 (filegroup_hdl%daddr, reader_, len(reader_)) 328 ENDIF 329 276 330 IF (PRESENT(record_offset_)) THEN 277 331 CALL cxios_set_filegroup_record_offset & … … 349 403 ENDIF 350 404 405 IF (PRESENT(using_server2_)) THEN 406 using_server2__tmp = using_server2_ 407 CALL cxios_set_filegroup_using_server2 & 408 (filegroup_hdl%daddr, using_server2__tmp) 409 ENDIF 410 351 411 IF (PRESENT(uuid_format_)) THEN 352 412 CALL cxios_set_filegroup_uuid_format & … … 359 419 ENDIF 360 420 421 IF (PRESENT(writer_)) THEN 422 CALL cxios_set_filegroup_writer & 423 (filegroup_hdl%daddr, writer_, len(writer_)) 424 ENDIF 425 361 426 END SUBROUTINE xios(set_filegroup_attr_hdl_) 362 427 363 428 SUBROUTINE xios(get_filegroup_attr) & 364 429 ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description & 365 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 366 , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format & 367 , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format & 368 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 430 , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 431 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 432 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 433 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 434 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 369 435 370 436 IMPLICIT NONE … … 383 449 LOGICAL (KIND=C_BOOL) :: enabled_tmp 384 450 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format 451 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer 385 452 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 386 453 INTEGER , OPTIONAL, INTENT(OUT) :: min_digits … … 391 458 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 392 459 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 460 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer 461 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader 462 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer 393 463 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par 394 464 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 465 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader 395 466 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 396 467 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset … … 408 479 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 409 480 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 481 LOGICAL , OPTIONAL, INTENT(OUT) :: using_server2 482 LOGICAL (KIND=C_BOOL) :: using_server2_tmp 410 483 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 411 484 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 485 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer 412 486 413 487 CALL xios(get_filegroup_handle) & … … 415 489 CALL xios(get_filegroup_attr_hdl_) & 416 490 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 417 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 418 , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format & 419 , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format & 420 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 491 , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 492 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 493 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 494 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 495 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 421 496 422 497 END SUBROUTINE xios(get_filegroup_attr) … … 424 499 SUBROUTINE xios(get_filegroup_attr_hdl) & 425 500 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 426 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 427 , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format & 428 , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format & 429 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 501 , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 502 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 503 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 504 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 505 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 430 506 431 507 IMPLICIT NONE … … 443 519 LOGICAL (KIND=C_BOOL) :: enabled_tmp 444 520 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format 521 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer 445 522 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 446 523 INTEGER , OPTIONAL, INTENT(OUT) :: min_digits … … 451 528 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 452 529 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 530 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer 531 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader 532 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer 453 533 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par 454 534 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 535 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader 455 536 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 456 537 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset … … 468 549 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 469 550 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 551 LOGICAL , OPTIONAL, INTENT(OUT) :: using_server2 552 LOGICAL (KIND=C_BOOL) :: using_server2_tmp 470 553 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 471 554 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 555 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer 472 556 473 557 CALL xios(get_filegroup_attr_hdl_) & 474 558 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 475 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 476 , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format & 477 , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format & 478 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 559 , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 560 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 561 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 562 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 563 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 479 564 480 565 END SUBROUTINE xios(get_filegroup_attr_hdl) … … 482 567 SUBROUTINE xios(get_filegroup_attr_hdl_) & 483 568 ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_ & 484 , description_, enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_ & 485 , output_level_, par_access_, read_metadata_par_, record_offset_, split_end_offset_, split_freq_ & 486 , split_freq_format_, split_last_date_, split_start_offset_, sync_freq_, time_counter_, time_counter_name_ & 487 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ & 488 , uuid_name_ ) 569 , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_ & 570 , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_ & 571 , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_ & 572 , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_ & 573 , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ & 574 ) 489 575 490 576 IMPLICIT NONE … … 502 588 LOGICAL (KIND=C_BOOL) :: enabled__tmp 503 589 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_ 590 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer_ 504 591 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 505 592 INTEGER , OPTIONAL, INTENT(OUT) :: min_digits_ … … 510 597 INTEGER , OPTIONAL, INTENT(OUT) :: output_level_ 511 598 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 599 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer_ 600 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader_ 601 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer_ 512 602 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par_ 513 603 LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 604 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader_ 514 605 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_ 515 606 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset_ … … 527 618 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ 528 619 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 620 LOGICAL , OPTIONAL, INTENT(OUT) :: using_server2_ 621 LOGICAL (KIND=C_BOOL) :: using_server2__tmp 529 622 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_ 530 623 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_ 624 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer_ 531 625 532 626 IF (PRESENT(append_)) THEN … … 578 672 ENDIF 579 673 674 IF (PRESENT(gatherer_)) THEN 675 CALL cxios_get_filegroup_gatherer & 676 (filegroup_hdl%daddr, gatherer_, len(gatherer_)) 677 ENDIF 678 580 679 IF (PRESENT(group_ref_)) THEN 581 680 CALL cxios_get_filegroup_group_ref & … … 616 715 CALL cxios_get_filegroup_par_access & 617 716 (filegroup_hdl%daddr, par_access_, len(par_access_)) 717 ENDIF 718 719 IF (PRESENT(pool_gatherer_)) THEN 720 CALL cxios_get_filegroup_pool_gatherer & 721 (filegroup_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) 722 ENDIF 723 724 IF (PRESENT(pool_reader_)) THEN 725 CALL cxios_get_filegroup_pool_reader & 726 (filegroup_hdl%daddr, pool_reader_, len(pool_reader_)) 727 ENDIF 728 729 IF (PRESENT(pool_writer_)) THEN 730 CALL cxios_get_filegroup_pool_writer & 731 (filegroup_hdl%daddr, pool_writer_, len(pool_writer_)) 618 732 ENDIF 619 733 … … 624 738 ENDIF 625 739 740 IF (PRESENT(reader_)) THEN 741 CALL cxios_get_filegroup_reader & 742 (filegroup_hdl%daddr, reader_, len(reader_)) 743 ENDIF 744 626 745 IF (PRESENT(record_offset_)) THEN 627 746 CALL cxios_get_filegroup_record_offset & … … 699 818 ENDIF 700 819 820 IF (PRESENT(using_server2_)) THEN 821 CALL cxios_get_filegroup_using_server2 & 822 (filegroup_hdl%daddr, using_server2__tmp) 823 using_server2_ = using_server2__tmp 824 ENDIF 825 701 826 IF (PRESENT(uuid_format_)) THEN 702 827 CALL cxios_get_filegroup_uuid_format & … … 709 834 ENDIF 710 835 836 IF (PRESENT(writer_)) THEN 837 CALL cxios_get_filegroup_writer & 838 (filegroup_hdl%daddr, writer_, len(writer_)) 839 ENDIF 840 711 841 END SUBROUTINE xios(get_filegroup_attr_hdl_) 712 842 713 843 SUBROUTINE xios(is_defined_filegroup_attr) & 714 844 ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description & 715 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 716 , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format & 717 , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format & 718 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 845 , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 846 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 847 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 848 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 849 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 719 850 720 851 IMPLICIT NONE … … 739 870 LOGICAL, OPTIONAL, INTENT(OUT) :: format 740 871 LOGICAL(KIND=C_BOOL) :: format_tmp 872 LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer 873 LOGICAL(KIND=C_BOOL) :: gatherer_tmp 741 874 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 742 875 LOGICAL(KIND=C_BOOL) :: group_ref_tmp … … 755 888 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 756 889 LOGICAL(KIND=C_BOOL) :: par_access_tmp 890 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer 891 LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp 892 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader 893 LOGICAL(KIND=C_BOOL) :: pool_reader_tmp 894 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer 895 LOGICAL(KIND=C_BOOL) :: pool_writer_tmp 757 896 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 758 897 LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 898 LOGICAL, OPTIONAL, INTENT(OUT) :: reader 899 LOGICAL(KIND=C_BOOL) :: reader_tmp 759 900 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 760 901 LOGICAL(KIND=C_BOOL) :: record_offset_tmp … … 787 928 LOGICAL, OPTIONAL, INTENT(OUT) :: type 788 929 LOGICAL(KIND=C_BOOL) :: type_tmp 930 LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 931 LOGICAL(KIND=C_BOOL) :: using_server2_tmp 789 932 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 790 933 LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 791 934 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 792 935 LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 936 LOGICAL, OPTIONAL, INTENT(OUT) :: writer 937 LOGICAL(KIND=C_BOOL) :: writer_tmp 793 938 794 939 CALL xios(get_filegroup_handle) & … … 796 941 CALL xios(is_defined_filegroup_attr_hdl_) & 797 942 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 798 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 799 , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format & 800 , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format & 801 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 943 , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 944 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 945 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 946 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 947 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 802 948 803 949 END SUBROUTINE xios(is_defined_filegroup_attr) … … 805 951 SUBROUTINE xios(is_defined_filegroup_attr_hdl) & 806 952 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 807 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 808 , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format & 809 , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format & 810 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 953 , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 954 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 955 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 956 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 957 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 811 958 812 959 IMPLICIT NONE … … 830 977 LOGICAL, OPTIONAL, INTENT(OUT) :: format 831 978 LOGICAL(KIND=C_BOOL) :: format_tmp 979 LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer 980 LOGICAL(KIND=C_BOOL) :: gatherer_tmp 832 981 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 833 982 LOGICAL(KIND=C_BOOL) :: group_ref_tmp … … 846 995 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 847 996 LOGICAL(KIND=C_BOOL) :: par_access_tmp 997 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer 998 LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp 999 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader 1000 LOGICAL(KIND=C_BOOL) :: pool_reader_tmp 1001 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer 1002 LOGICAL(KIND=C_BOOL) :: pool_writer_tmp 848 1003 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 849 1004 LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 1005 LOGICAL, OPTIONAL, INTENT(OUT) :: reader 1006 LOGICAL(KIND=C_BOOL) :: reader_tmp 850 1007 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 851 1008 LOGICAL(KIND=C_BOOL) :: record_offset_tmp … … 878 1035 LOGICAL, OPTIONAL, INTENT(OUT) :: type 879 1036 LOGICAL(KIND=C_BOOL) :: type_tmp 1037 LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 1038 LOGICAL(KIND=C_BOOL) :: using_server2_tmp 880 1039 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 881 1040 LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 882 1041 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 883 1042 LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 1043 LOGICAL, OPTIONAL, INTENT(OUT) :: writer 1044 LOGICAL(KIND=C_BOOL) :: writer_tmp 884 1045 885 1046 CALL xios(is_defined_filegroup_attr_hdl_) & 886 1047 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 887 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 888 , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format & 889 , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format & 890 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 1048 , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 1049 , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset & 1050 , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq & 1051 , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries & 1052 , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 891 1053 892 1054 END SUBROUTINE xios(is_defined_filegroup_attr_hdl) … … 894 1056 SUBROUTINE xios(is_defined_filegroup_attr_hdl_) & 895 1057 ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_ & 896 , description_, enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_ & 897 , output_level_, par_access_, read_metadata_par_, record_offset_, split_end_offset_, split_freq_ & 898 , split_freq_format_, split_last_date_, split_start_offset_, sync_freq_, time_counter_, time_counter_name_ & 899 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ & 900 , uuid_name_ ) 1058 , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_ & 1059 , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_ & 1060 , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_ & 1061 , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_ & 1062 , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_ & 1063 ) 901 1064 902 1065 IMPLICIT NONE … … 920 1083 LOGICAL, OPTIONAL, INTENT(OUT) :: format_ 921 1084 LOGICAL(KIND=C_BOOL) :: format__tmp 1085 LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer_ 1086 LOGICAL(KIND=C_BOOL) :: gatherer__tmp 922 1087 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 923 1088 LOGICAL(KIND=C_BOOL) :: group_ref__tmp … … 936 1101 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 937 1102 LOGICAL(KIND=C_BOOL) :: par_access__tmp 1103 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer_ 1104 LOGICAL(KIND=C_BOOL) :: pool_gatherer__tmp 1105 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader_ 1106 LOGICAL(KIND=C_BOOL) :: pool_reader__tmp 1107 LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer_ 1108 LOGICAL(KIND=C_BOOL) :: pool_writer__tmp 938 1109 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_ 939 1110 LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp 1111 LOGICAL, OPTIONAL, INTENT(OUT) :: reader_ 1112 LOGICAL(KIND=C_BOOL) :: reader__tmp 940 1113 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ 941 1114 LOGICAL(KIND=C_BOOL) :: record_offset__tmp … … 968 1141 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 969 1142 LOGICAL(KIND=C_BOOL) :: type__tmp 1143 LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2_ 1144 LOGICAL(KIND=C_BOOL) :: using_server2__tmp 970 1145 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_ 971 1146 LOGICAL(KIND=C_BOOL) :: uuid_format__tmp 972 1147 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_ 973 1148 LOGICAL(KIND=C_BOOL) :: uuid_name__tmp 1149 LOGICAL, OPTIONAL, INTENT(OUT) :: writer_ 1150 LOGICAL(KIND=C_BOOL) :: writer__tmp 974 1151 975 1152 IF (PRESENT(append_)) THEN … … 1027 1204 ENDIF 1028 1205 1206 IF (PRESENT(gatherer_)) THEN 1207 gatherer__tmp = cxios_is_defined_filegroup_gatherer & 1208 (filegroup_hdl%daddr) 1209 gatherer_ = gatherer__tmp 1210 ENDIF 1211 1029 1212 IF (PRESENT(group_ref_)) THEN 1030 1213 group_ref__tmp = cxios_is_defined_filegroup_group_ref & … … 1075 1258 ENDIF 1076 1259 1260 IF (PRESENT(pool_gatherer_)) THEN 1261 pool_gatherer__tmp = cxios_is_defined_filegroup_pool_gatherer & 1262 (filegroup_hdl%daddr) 1263 pool_gatherer_ = pool_gatherer__tmp 1264 ENDIF 1265 1266 IF (PRESENT(pool_reader_)) THEN 1267 pool_reader__tmp = cxios_is_defined_filegroup_pool_reader & 1268 (filegroup_hdl%daddr) 1269 pool_reader_ = pool_reader__tmp 1270 ENDIF 1271 1272 IF (PRESENT(pool_writer_)) THEN 1273 pool_writer__tmp = cxios_is_defined_filegroup_pool_writer & 1274 (filegroup_hdl%daddr) 1275 pool_writer_ = pool_writer__tmp 1276 ENDIF 1277 1077 1278 IF (PRESENT(read_metadata_par_)) THEN 1078 1279 read_metadata_par__tmp = cxios_is_defined_filegroup_read_metadata_par & … … 1081 1282 ENDIF 1082 1283 1284 IF (PRESENT(reader_)) THEN 1285 reader__tmp = cxios_is_defined_filegroup_reader & 1286 (filegroup_hdl%daddr) 1287 reader_ = reader__tmp 1288 ENDIF 1289 1083 1290 IF (PRESENT(record_offset_)) THEN 1084 1291 record_offset__tmp = cxios_is_defined_filegroup_record_offset & … … 1171 1378 ENDIF 1172 1379 1380 IF (PRESENT(using_server2_)) THEN 1381 using_server2__tmp = cxios_is_defined_filegroup_using_server2 & 1382 (filegroup_hdl%daddr) 1383 using_server2_ = using_server2__tmp 1384 ENDIF 1385 1173 1386 IF (PRESENT(uuid_format_)) THEN 1174 1387 uuid_format__tmp = cxios_is_defined_filegroup_uuid_format & … … 1183 1396 ENDIF 1184 1397 1398 IF (PRESENT(writer_)) THEN 1399 writer__tmp = cxios_is_defined_filegroup_writer & 1400 (filegroup_hdl%daddr) 1401 writer_ = writer__tmp 1402 ENDIF 1403 1185 1404 END SUBROUTINE xios(is_defined_filegroup_attr_hdl_) 1186 1405
Note: See TracChangeset
for help on using the changeset viewer.