Changeset 1492 for XIOS/dev/XIOS_DEV_CMIP6/src/interface
- Timestamp:
- 04/24/18 18:03:18 (6 years ago)
- Location:
- XIOS/dev/XIOS_DEV_CMIP6/src/interface
- Files:
-
- 30 added
- 48 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icaxis_attr.cpp
r1158 r1492 44 44 45 45 46 void cxios_set_axis_axis_type(axis_Ptr axis_hdl, const char * axis_type, int axis_type_size) 47 { 48 std::string axis_type_str; 49 if (!cstr2string(axis_type, axis_type_size, axis_type_str)) return; 50 CTimer::get("XIOS").resume(); 51 axis_hdl->axis_type.fromString(axis_type_str); 52 CTimer::get("XIOS").suspend(); 53 } 54 55 void cxios_get_axis_axis_type(axis_Ptr axis_hdl, char * axis_type, int axis_type_size) 56 { 57 CTimer::get("XIOS").resume(); 58 if (!string_copy(axis_hdl->axis_type.getInheritedStringValue(), axis_type, axis_type_size)) 59 ERROR("void cxios_get_axis_axis_type(axis_Ptr axis_hdl, char * axis_type, int axis_type_size)", << "Input string is too short"); 60 CTimer::get("XIOS").suspend(); 61 } 62 63 bool cxios_is_defined_axis_axis_type(axis_Ptr axis_hdl) 64 { 65 CTimer::get("XIOS").resume(); 66 bool isDefined = axis_hdl->axis_type.hasInheritedValue(); 67 CTimer::get("XIOS").suspend(); 68 return isDefined; 69 } 70 71 46 72 void cxios_set_axis_begin(axis_Ptr axis_hdl, int begin) 47 73 { … … 92 118 93 119 120 void cxios_set_axis_bounds_name(axis_Ptr axis_hdl, const char * bounds_name, int bounds_name_size) 121 { 122 std::string bounds_name_str; 123 if (!cstr2string(bounds_name, bounds_name_size, bounds_name_str)) return; 124 CTimer::get("XIOS").resume(); 125 axis_hdl->bounds_name.setValue(bounds_name_str); 126 CTimer::get("XIOS").suspend(); 127 } 128 129 void cxios_get_axis_bounds_name(axis_Ptr axis_hdl, char * bounds_name, int bounds_name_size) 130 { 131 CTimer::get("XIOS").resume(); 132 if (!string_copy(axis_hdl->bounds_name.getInheritedValue(), bounds_name, bounds_name_size)) 133 ERROR("void cxios_get_axis_bounds_name(axis_Ptr axis_hdl, char * bounds_name, int bounds_name_size)", << "Input string is too short"); 134 CTimer::get("XIOS").suspend(); 135 } 136 137 bool cxios_is_defined_axis_bounds_name(axis_Ptr axis_hdl) 138 { 139 CTimer::get("XIOS").resume(); 140 bool isDefined = axis_hdl->bounds_name.hasInheritedValue(); 141 CTimer::get("XIOS").suspend(); 142 return isDefined; 143 } 144 145 146 void cxios_set_axis_comment(axis_Ptr axis_hdl, const char * comment, int comment_size) 147 { 148 std::string comment_str; 149 if (!cstr2string(comment, comment_size, comment_str)) return; 150 CTimer::get("XIOS").resume(); 151 axis_hdl->comment.setValue(comment_str); 152 CTimer::get("XIOS").suspend(); 153 } 154 155 void cxios_get_axis_comment(axis_Ptr axis_hdl, char * comment, int comment_size) 156 { 157 CTimer::get("XIOS").resume(); 158 if (!string_copy(axis_hdl->comment.getInheritedValue(), comment, comment_size)) 159 ERROR("void cxios_get_axis_comment(axis_Ptr axis_hdl, char * comment, int comment_size)", << "Input string is too short"); 160 CTimer::get("XIOS").suspend(); 161 } 162 163 bool cxios_is_defined_axis_comment(axis_Ptr axis_hdl) 164 { 165 CTimer::get("XIOS").resume(); 166 bool isDefined = axis_hdl->comment.hasInheritedValue(); 167 CTimer::get("XIOS").suspend(); 168 return isDefined; 169 } 170 171 94 172 void cxios_set_axis_data_begin(axis_Ptr axis_hdl, int data_begin) 95 173 { … … 158 236 CTimer::get("XIOS").resume(); 159 237 bool isDefined = axis_hdl->data_n.hasInheritedValue(); 238 CTimer::get("XIOS").suspend(); 239 return isDefined; 240 } 241 242 243 void cxios_set_axis_dim_name(axis_Ptr axis_hdl, const char * dim_name, int dim_name_size) 244 { 245 std::string dim_name_str; 246 if (!cstr2string(dim_name, dim_name_size, dim_name_str)) return; 247 CTimer::get("XIOS").resume(); 248 axis_hdl->dim_name.setValue(dim_name_str); 249 CTimer::get("XIOS").suspend(); 250 } 251 252 void cxios_get_axis_dim_name(axis_Ptr axis_hdl, char * dim_name, int dim_name_size) 253 { 254 CTimer::get("XIOS").resume(); 255 if (!string_copy(axis_hdl->dim_name.getInheritedValue(), dim_name, dim_name_size)) 256 ERROR("void cxios_get_axis_dim_name(axis_Ptr axis_hdl, char * dim_name, int dim_name_size)", << "Input string is too short"); 257 CTimer::get("XIOS").suspend(); 258 } 259 260 bool cxios_is_defined_axis_dim_name(axis_Ptr axis_hdl) 261 { 262 CTimer::get("XIOS").resume(); 263 bool isDefined = axis_hdl->dim_name.hasInheritedValue(); 264 CTimer::get("XIOS").suspend(); 265 return isDefined; 266 } 267 268 269 void cxios_set_axis_formula(axis_Ptr axis_hdl, const char * formula, int formula_size) 270 { 271 std::string formula_str; 272 if (!cstr2string(formula, formula_size, formula_str)) return; 273 CTimer::get("XIOS").resume(); 274 axis_hdl->formula.setValue(formula_str); 275 CTimer::get("XIOS").suspend(); 276 } 277 278 void cxios_get_axis_formula(axis_Ptr axis_hdl, char * formula, int formula_size) 279 { 280 CTimer::get("XIOS").resume(); 281 if (!string_copy(axis_hdl->formula.getInheritedValue(), formula, formula_size)) 282 ERROR("void cxios_get_axis_formula(axis_Ptr axis_hdl, char * formula, int formula_size)", << "Input string is too short"); 283 CTimer::get("XIOS").suspend(); 284 } 285 286 bool cxios_is_defined_axis_formula(axis_Ptr axis_hdl) 287 { 288 CTimer::get("XIOS").resume(); 289 bool isDefined = axis_hdl->formula.hasInheritedValue(); 290 CTimer::get("XIOS").suspend(); 291 return isDefined; 292 } 293 294 295 void cxios_set_axis_formula_bounds(axis_Ptr axis_hdl, const char * formula_bounds, int formula_bounds_size) 296 { 297 std::string formula_bounds_str; 298 if (!cstr2string(formula_bounds, formula_bounds_size, formula_bounds_str)) return; 299 CTimer::get("XIOS").resume(); 300 axis_hdl->formula_bounds.setValue(formula_bounds_str); 301 CTimer::get("XIOS").suspend(); 302 } 303 304 void cxios_get_axis_formula_bounds(axis_Ptr axis_hdl, char * formula_bounds, int formula_bounds_size) 305 { 306 CTimer::get("XIOS").resume(); 307 if (!string_copy(axis_hdl->formula_bounds.getInheritedValue(), formula_bounds, formula_bounds_size)) 308 ERROR("void cxios_get_axis_formula_bounds(axis_Ptr axis_hdl, char * formula_bounds, int formula_bounds_size)", << "Input string is too short"); 309 CTimer::get("XIOS").suspend(); 310 } 311 312 bool cxios_is_defined_axis_formula_bounds(axis_Ptr axis_hdl) 313 { 314 CTimer::get("XIOS").resume(); 315 bool isDefined = axis_hdl->formula_bounds.hasInheritedValue(); 316 CTimer::get("XIOS").suspend(); 317 return isDefined; 318 } 319 320 321 void cxios_set_axis_formula_term(axis_Ptr axis_hdl, const char * formula_term, int formula_term_size) 322 { 323 std::string formula_term_str; 324 if (!cstr2string(formula_term, formula_term_size, formula_term_str)) return; 325 CTimer::get("XIOS").resume(); 326 axis_hdl->formula_term.setValue(formula_term_str); 327 CTimer::get("XIOS").suspend(); 328 } 329 330 void cxios_get_axis_formula_term(axis_Ptr axis_hdl, char * formula_term, int formula_term_size) 331 { 332 CTimer::get("XIOS").resume(); 333 if (!string_copy(axis_hdl->formula_term.getInheritedValue(), formula_term, formula_term_size)) 334 ERROR("void cxios_get_axis_formula_term(axis_Ptr axis_hdl, char * formula_term, int formula_term_size)", << "Input string is too short"); 335 CTimer::get("XIOS").suspend(); 336 } 337 338 bool cxios_is_defined_axis_formula_term(axis_Ptr axis_hdl) 339 { 340 CTimer::get("XIOS").resume(); 341 bool isDefined = axis_hdl->formula_term.hasInheritedValue(); 342 CTimer::get("XIOS").suspend(); 343 return isDefined; 344 } 345 346 347 void cxios_set_axis_formula_term_bounds(axis_Ptr axis_hdl, const char * formula_term_bounds, int formula_term_bounds_size) 348 { 349 std::string formula_term_bounds_str; 350 if (!cstr2string(formula_term_bounds, formula_term_bounds_size, formula_term_bounds_str)) return; 351 CTimer::get("XIOS").resume(); 352 axis_hdl->formula_term_bounds.setValue(formula_term_bounds_str); 353 CTimer::get("XIOS").suspend(); 354 } 355 356 void cxios_get_axis_formula_term_bounds(axis_Ptr axis_hdl, char * formula_term_bounds, int formula_term_bounds_size) 357 { 358 CTimer::get("XIOS").resume(); 359 if (!string_copy(axis_hdl->formula_term_bounds.getInheritedValue(), formula_term_bounds, formula_term_bounds_size)) 360 ERROR("void cxios_get_axis_formula_term_bounds(axis_Ptr axis_hdl, char * formula_term_bounds, int formula_term_bounds_size)", << "Input string is too short"); 361 CTimer::get("XIOS").suspend(); 362 } 363 364 bool cxios_is_defined_axis_formula_term_bounds(axis_Ptr axis_hdl) 365 { 366 CTimer::get("XIOS").resume(); 367 bool isDefined = axis_hdl->formula_term_bounds.hasInheritedValue(); 160 368 CTimer::get("XIOS").suspend(); 161 369 return isDefined; -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icaxisgroup_attr.cpp
r1158 r1492 44 44 45 45 46 void cxios_set_axisgroup_axis_type(axisgroup_Ptr axisgroup_hdl, const char * axis_type, int axis_type_size) 47 { 48 std::string axis_type_str; 49 if (!cstr2string(axis_type, axis_type_size, axis_type_str)) return; 50 CTimer::get("XIOS").resume(); 51 axisgroup_hdl->axis_type.fromString(axis_type_str); 52 CTimer::get("XIOS").suspend(); 53 } 54 55 void cxios_get_axisgroup_axis_type(axisgroup_Ptr axisgroup_hdl, char * axis_type, int axis_type_size) 56 { 57 CTimer::get("XIOS").resume(); 58 if (!string_copy(axisgroup_hdl->axis_type.getInheritedStringValue(), axis_type, axis_type_size)) 59 ERROR("void cxios_get_axisgroup_axis_type(axisgroup_Ptr axisgroup_hdl, char * axis_type, int axis_type_size)", << "Input string is too short"); 60 CTimer::get("XIOS").suspend(); 61 } 62 63 bool cxios_is_defined_axisgroup_axis_type(axisgroup_Ptr axisgroup_hdl) 64 { 65 CTimer::get("XIOS").resume(); 66 bool isDefined = axisgroup_hdl->axis_type.hasInheritedValue(); 67 CTimer::get("XIOS").suspend(); 68 return isDefined; 69 } 70 71 46 72 void cxios_set_axisgroup_begin(axisgroup_Ptr axisgroup_hdl, int begin) 47 73 { … … 92 118 93 119 120 void cxios_set_axisgroup_bounds_name(axisgroup_Ptr axisgroup_hdl, const char * bounds_name, int bounds_name_size) 121 { 122 std::string bounds_name_str; 123 if (!cstr2string(bounds_name, bounds_name_size, bounds_name_str)) return; 124 CTimer::get("XIOS").resume(); 125 axisgroup_hdl->bounds_name.setValue(bounds_name_str); 126 CTimer::get("XIOS").suspend(); 127 } 128 129 void cxios_get_axisgroup_bounds_name(axisgroup_Ptr axisgroup_hdl, char * bounds_name, int bounds_name_size) 130 { 131 CTimer::get("XIOS").resume(); 132 if (!string_copy(axisgroup_hdl->bounds_name.getInheritedValue(), bounds_name, bounds_name_size)) 133 ERROR("void cxios_get_axisgroup_bounds_name(axisgroup_Ptr axisgroup_hdl, char * bounds_name, int bounds_name_size)", << "Input string is too short"); 134 CTimer::get("XIOS").suspend(); 135 } 136 137 bool cxios_is_defined_axisgroup_bounds_name(axisgroup_Ptr axisgroup_hdl) 138 { 139 CTimer::get("XIOS").resume(); 140 bool isDefined = axisgroup_hdl->bounds_name.hasInheritedValue(); 141 CTimer::get("XIOS").suspend(); 142 return isDefined; 143 } 144 145 146 void cxios_set_axisgroup_comment(axisgroup_Ptr axisgroup_hdl, const char * comment, int comment_size) 147 { 148 std::string comment_str; 149 if (!cstr2string(comment, comment_size, comment_str)) return; 150 CTimer::get("XIOS").resume(); 151 axisgroup_hdl->comment.setValue(comment_str); 152 CTimer::get("XIOS").suspend(); 153 } 154 155 void cxios_get_axisgroup_comment(axisgroup_Ptr axisgroup_hdl, char * comment, int comment_size) 156 { 157 CTimer::get("XIOS").resume(); 158 if (!string_copy(axisgroup_hdl->comment.getInheritedValue(), comment, comment_size)) 159 ERROR("void cxios_get_axisgroup_comment(axisgroup_Ptr axisgroup_hdl, char * comment, int comment_size)", << "Input string is too short"); 160 CTimer::get("XIOS").suspend(); 161 } 162 163 bool cxios_is_defined_axisgroup_comment(axisgroup_Ptr axisgroup_hdl) 164 { 165 CTimer::get("XIOS").resume(); 166 bool isDefined = axisgroup_hdl->comment.hasInheritedValue(); 167 CTimer::get("XIOS").suspend(); 168 return isDefined; 169 } 170 171 94 172 void cxios_set_axisgroup_data_begin(axisgroup_Ptr axisgroup_hdl, int data_begin) 95 173 { … … 158 236 CTimer::get("XIOS").resume(); 159 237 bool isDefined = axisgroup_hdl->data_n.hasInheritedValue(); 238 CTimer::get("XIOS").suspend(); 239 return isDefined; 240 } 241 242 243 void cxios_set_axisgroup_dim_name(axisgroup_Ptr axisgroup_hdl, const char * dim_name, int dim_name_size) 244 { 245 std::string dim_name_str; 246 if (!cstr2string(dim_name, dim_name_size, dim_name_str)) return; 247 CTimer::get("XIOS").resume(); 248 axisgroup_hdl->dim_name.setValue(dim_name_str); 249 CTimer::get("XIOS").suspend(); 250 } 251 252 void cxios_get_axisgroup_dim_name(axisgroup_Ptr axisgroup_hdl, char * dim_name, int dim_name_size) 253 { 254 CTimer::get("XIOS").resume(); 255 if (!string_copy(axisgroup_hdl->dim_name.getInheritedValue(), dim_name, dim_name_size)) 256 ERROR("void cxios_get_axisgroup_dim_name(axisgroup_Ptr axisgroup_hdl, char * dim_name, int dim_name_size)", << "Input string is too short"); 257 CTimer::get("XIOS").suspend(); 258 } 259 260 bool cxios_is_defined_axisgroup_dim_name(axisgroup_Ptr axisgroup_hdl) 261 { 262 CTimer::get("XIOS").resume(); 263 bool isDefined = axisgroup_hdl->dim_name.hasInheritedValue(); 264 CTimer::get("XIOS").suspend(); 265 return isDefined; 266 } 267 268 269 void cxios_set_axisgroup_formula(axisgroup_Ptr axisgroup_hdl, const char * formula, int formula_size) 270 { 271 std::string formula_str; 272 if (!cstr2string(formula, formula_size, formula_str)) return; 273 CTimer::get("XIOS").resume(); 274 axisgroup_hdl->formula.setValue(formula_str); 275 CTimer::get("XIOS").suspend(); 276 } 277 278 void cxios_get_axisgroup_formula(axisgroup_Ptr axisgroup_hdl, char * formula, int formula_size) 279 { 280 CTimer::get("XIOS").resume(); 281 if (!string_copy(axisgroup_hdl->formula.getInheritedValue(), formula, formula_size)) 282 ERROR("void cxios_get_axisgroup_formula(axisgroup_Ptr axisgroup_hdl, char * formula, int formula_size)", << "Input string is too short"); 283 CTimer::get("XIOS").suspend(); 284 } 285 286 bool cxios_is_defined_axisgroup_formula(axisgroup_Ptr axisgroup_hdl) 287 { 288 CTimer::get("XIOS").resume(); 289 bool isDefined = axisgroup_hdl->formula.hasInheritedValue(); 290 CTimer::get("XIOS").suspend(); 291 return isDefined; 292 } 293 294 295 void cxios_set_axisgroup_formula_bounds(axisgroup_Ptr axisgroup_hdl, const char * formula_bounds, int formula_bounds_size) 296 { 297 std::string formula_bounds_str; 298 if (!cstr2string(formula_bounds, formula_bounds_size, formula_bounds_str)) return; 299 CTimer::get("XIOS").resume(); 300 axisgroup_hdl->formula_bounds.setValue(formula_bounds_str); 301 CTimer::get("XIOS").suspend(); 302 } 303 304 void cxios_get_axisgroup_formula_bounds(axisgroup_Ptr axisgroup_hdl, char * formula_bounds, int formula_bounds_size) 305 { 306 CTimer::get("XIOS").resume(); 307 if (!string_copy(axisgroup_hdl->formula_bounds.getInheritedValue(), formula_bounds, formula_bounds_size)) 308 ERROR("void cxios_get_axisgroup_formula_bounds(axisgroup_Ptr axisgroup_hdl, char * formula_bounds, int formula_bounds_size)", << "Input string is too short"); 309 CTimer::get("XIOS").suspend(); 310 } 311 312 bool cxios_is_defined_axisgroup_formula_bounds(axisgroup_Ptr axisgroup_hdl) 313 { 314 CTimer::get("XIOS").resume(); 315 bool isDefined = axisgroup_hdl->formula_bounds.hasInheritedValue(); 316 CTimer::get("XIOS").suspend(); 317 return isDefined; 318 } 319 320 321 void cxios_set_axisgroup_formula_term(axisgroup_Ptr axisgroup_hdl, const char * formula_term, int formula_term_size) 322 { 323 std::string formula_term_str; 324 if (!cstr2string(formula_term, formula_term_size, formula_term_str)) return; 325 CTimer::get("XIOS").resume(); 326 axisgroup_hdl->formula_term.setValue(formula_term_str); 327 CTimer::get("XIOS").suspend(); 328 } 329 330 void cxios_get_axisgroup_formula_term(axisgroup_Ptr axisgroup_hdl, char * formula_term, int formula_term_size) 331 { 332 CTimer::get("XIOS").resume(); 333 if (!string_copy(axisgroup_hdl->formula_term.getInheritedValue(), formula_term, formula_term_size)) 334 ERROR("void cxios_get_axisgroup_formula_term(axisgroup_Ptr axisgroup_hdl, char * formula_term, int formula_term_size)", << "Input string is too short"); 335 CTimer::get("XIOS").suspend(); 336 } 337 338 bool cxios_is_defined_axisgroup_formula_term(axisgroup_Ptr axisgroup_hdl) 339 { 340 CTimer::get("XIOS").resume(); 341 bool isDefined = axisgroup_hdl->formula_term.hasInheritedValue(); 342 CTimer::get("XIOS").suspend(); 343 return isDefined; 344 } 345 346 347 void cxios_set_axisgroup_formula_term_bounds(axisgroup_Ptr axisgroup_hdl, const char * formula_term_bounds, int formula_term_bounds_size) 348 { 349 std::string formula_term_bounds_str; 350 if (!cstr2string(formula_term_bounds, formula_term_bounds_size, formula_term_bounds_str)) return; 351 CTimer::get("XIOS").resume(); 352 axisgroup_hdl->formula_term_bounds.setValue(formula_term_bounds_str); 353 CTimer::get("XIOS").suspend(); 354 } 355 356 void cxios_get_axisgroup_formula_term_bounds(axisgroup_Ptr axisgroup_hdl, char * formula_term_bounds, int formula_term_bounds_size) 357 { 358 CTimer::get("XIOS").resume(); 359 if (!string_copy(axisgroup_hdl->formula_term_bounds.getInheritedValue(), formula_term_bounds, formula_term_bounds_size)) 360 ERROR("void cxios_get_axisgroup_formula_term_bounds(axisgroup_Ptr axisgroup_hdl, char * formula_term_bounds, int formula_term_bounds_size)", << "Input string is too short"); 361 CTimer::get("XIOS").suspend(); 362 } 363 364 bool cxios_is_defined_axisgroup_formula_term_bounds(axisgroup_Ptr axisgroup_hdl) 365 { 366 CTimer::get("XIOS").resume(); 367 bool isDefined = axisgroup_hdl->formula_term_bounds.hasInheritedValue(); 160 368 CTimer::get("XIOS").suspend(); 161 369 return isDefined; -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/iccalendar_wrapper_attr.cpp
r674 r1492 18 18 typedef xios::CCalendarWrapper* calendar_wrapper_Ptr; 19 19 20 void cxios_set_calendar_wrapper_comment(calendar_wrapper_Ptr calendar_wrapper_hdl, const char * comment, int comment_size) 21 { 22 std::string comment_str; 23 if (!cstr2string(comment, comment_size, comment_str)) return; 24 CTimer::get("XIOS").resume(); 25 calendar_wrapper_hdl->comment.setValue(comment_str); 26 CTimer::get("XIOS").suspend(); 27 } 28 29 void cxios_get_calendar_wrapper_comment(calendar_wrapper_Ptr calendar_wrapper_hdl, char * comment, int comment_size) 30 { 31 CTimer::get("XIOS").resume(); 32 if (!string_copy(calendar_wrapper_hdl->comment.getInheritedValue(), comment, comment_size)) 33 ERROR("void cxios_get_calendar_wrapper_comment(calendar_wrapper_Ptr calendar_wrapper_hdl, char * comment, int comment_size)", << "Input string is too short"); 34 CTimer::get("XIOS").suspend(); 35 } 36 37 bool cxios_is_defined_calendar_wrapper_comment(calendar_wrapper_Ptr calendar_wrapper_hdl) 38 { 39 CTimer::get("XIOS").resume(); 40 bool isDefined = calendar_wrapper_hdl->comment.hasInheritedValue(); 41 CTimer::get("XIOS").suspend(); 42 return isDefined; 43 } 44 45 20 46 void cxios_set_calendar_wrapper_day_length(calendar_wrapper_Ptr calendar_wrapper_hdl, int day_length) 21 47 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icdomain_attr.cpp
r1158 r1492 93 93 94 94 95 void cxios_set_domain_bounds_lat_name(domain_Ptr domain_hdl, const char * bounds_lat_name, int bounds_lat_name_size) 96 { 97 std::string bounds_lat_name_str; 98 if (!cstr2string(bounds_lat_name, bounds_lat_name_size, bounds_lat_name_str)) return; 99 CTimer::get("XIOS").resume(); 100 domain_hdl->bounds_lat_name.setValue(bounds_lat_name_str); 101 CTimer::get("XIOS").suspend(); 102 } 103 104 void cxios_get_domain_bounds_lat_name(domain_Ptr domain_hdl, char * bounds_lat_name, int bounds_lat_name_size) 105 { 106 CTimer::get("XIOS").resume(); 107 if (!string_copy(domain_hdl->bounds_lat_name.getInheritedValue(), bounds_lat_name, bounds_lat_name_size)) 108 ERROR("void cxios_get_domain_bounds_lat_name(domain_Ptr domain_hdl, char * bounds_lat_name, int bounds_lat_name_size)", << "Input string is too short"); 109 CTimer::get("XIOS").suspend(); 110 } 111 112 bool cxios_is_defined_domain_bounds_lat_name(domain_Ptr domain_hdl) 113 { 114 CTimer::get("XIOS").resume(); 115 bool isDefined = domain_hdl->bounds_lat_name.hasInheritedValue(); 116 CTimer::get("XIOS").suspend(); 117 return isDefined; 118 } 119 120 95 121 void cxios_set_domain_bounds_lon_1d(domain_Ptr domain_hdl, double* bounds_lon_1d, int* extent) 96 122 { … … 143 169 144 170 171 void cxios_set_domain_bounds_lon_name(domain_Ptr domain_hdl, const char * bounds_lon_name, int bounds_lon_name_size) 172 { 173 std::string bounds_lon_name_str; 174 if (!cstr2string(bounds_lon_name, bounds_lon_name_size, bounds_lon_name_str)) return; 175 CTimer::get("XIOS").resume(); 176 domain_hdl->bounds_lon_name.setValue(bounds_lon_name_str); 177 CTimer::get("XIOS").suspend(); 178 } 179 180 void cxios_get_domain_bounds_lon_name(domain_Ptr domain_hdl, char * bounds_lon_name, int bounds_lon_name_size) 181 { 182 CTimer::get("XIOS").resume(); 183 if (!string_copy(domain_hdl->bounds_lon_name.getInheritedValue(), bounds_lon_name, bounds_lon_name_size)) 184 ERROR("void cxios_get_domain_bounds_lon_name(domain_Ptr domain_hdl, char * bounds_lon_name, int bounds_lon_name_size)", << "Input string is too short"); 185 CTimer::get("XIOS").suspend(); 186 } 187 188 bool cxios_is_defined_domain_bounds_lon_name(domain_Ptr domain_hdl) 189 { 190 CTimer::get("XIOS").resume(); 191 bool isDefined = domain_hdl->bounds_lon_name.hasInheritedValue(); 192 CTimer::get("XIOS").suspend(); 193 return isDefined; 194 } 195 196 197 void cxios_set_domain_comment(domain_Ptr domain_hdl, const char * comment, int comment_size) 198 { 199 std::string comment_str; 200 if (!cstr2string(comment, comment_size, comment_str)) return; 201 CTimer::get("XIOS").resume(); 202 domain_hdl->comment.setValue(comment_str); 203 CTimer::get("XIOS").suspend(); 204 } 205 206 void cxios_get_domain_comment(domain_Ptr domain_hdl, char * comment, int comment_size) 207 { 208 CTimer::get("XIOS").resume(); 209 if (!string_copy(domain_hdl->comment.getInheritedValue(), comment, comment_size)) 210 ERROR("void cxios_get_domain_comment(domain_Ptr domain_hdl, char * comment, int comment_size)", << "Input string is too short"); 211 CTimer::get("XIOS").suspend(); 212 } 213 214 bool cxios_is_defined_domain_comment(domain_Ptr domain_hdl) 215 { 216 CTimer::get("XIOS").resume(); 217 bool isDefined = domain_hdl->comment.hasInheritedValue(); 218 CTimer::get("XIOS").suspend(); 219 return isDefined; 220 } 221 222 145 223 void cxios_set_domain_data_dim(domain_Ptr domain_hdl, int data_dim) 146 224 { … … 308 386 309 387 388 void cxios_set_domain_dim_i_name(domain_Ptr domain_hdl, const char * dim_i_name, int dim_i_name_size) 389 { 390 std::string dim_i_name_str; 391 if (!cstr2string(dim_i_name, dim_i_name_size, dim_i_name_str)) return; 392 CTimer::get("XIOS").resume(); 393 domain_hdl->dim_i_name.setValue(dim_i_name_str); 394 CTimer::get("XIOS").suspend(); 395 } 396 397 void cxios_get_domain_dim_i_name(domain_Ptr domain_hdl, char * dim_i_name, int dim_i_name_size) 398 { 399 CTimer::get("XIOS").resume(); 400 if (!string_copy(domain_hdl->dim_i_name.getInheritedValue(), dim_i_name, dim_i_name_size)) 401 ERROR("void cxios_get_domain_dim_i_name(domain_Ptr domain_hdl, char * dim_i_name, int dim_i_name_size)", << "Input string is too short"); 402 CTimer::get("XIOS").suspend(); 403 } 404 405 bool cxios_is_defined_domain_dim_i_name(domain_Ptr domain_hdl) 406 { 407 CTimer::get("XIOS").resume(); 408 bool isDefined = domain_hdl->dim_i_name.hasInheritedValue(); 409 CTimer::get("XIOS").suspend(); 410 return isDefined; 411 } 412 413 414 void cxios_set_domain_dim_j_name(domain_Ptr domain_hdl, const char * dim_j_name, int dim_j_name_size) 415 { 416 std::string dim_j_name_str; 417 if (!cstr2string(dim_j_name, dim_j_name_size, dim_j_name_str)) return; 418 CTimer::get("XIOS").resume(); 419 domain_hdl->dim_j_name.setValue(dim_j_name_str); 420 CTimer::get("XIOS").suspend(); 421 } 422 423 void cxios_get_domain_dim_j_name(domain_Ptr domain_hdl, char * dim_j_name, int dim_j_name_size) 424 { 425 CTimer::get("XIOS").resume(); 426 if (!string_copy(domain_hdl->dim_j_name.getInheritedValue(), dim_j_name, dim_j_name_size)) 427 ERROR("void cxios_get_domain_dim_j_name(domain_Ptr domain_hdl, char * dim_j_name, int dim_j_name_size)", << "Input string is too short"); 428 CTimer::get("XIOS").suspend(); 429 } 430 431 bool cxios_is_defined_domain_dim_j_name(domain_Ptr domain_hdl) 432 { 433 CTimer::get("XIOS").resume(); 434 bool isDefined = domain_hdl->dim_j_name.hasInheritedValue(); 435 CTimer::get("XIOS").suspend(); 436 return isDefined; 437 } 438 439 310 440 void cxios_set_domain_domain_ref(domain_Ptr domain_hdl, const char * domain_ref, int domain_ref_size) 311 441 { … … 430 560 431 561 562 void cxios_set_domain_lat_name(domain_Ptr domain_hdl, const char * lat_name, int lat_name_size) 563 { 564 std::string lat_name_str; 565 if (!cstr2string(lat_name, lat_name_size, lat_name_str)) return; 566 CTimer::get("XIOS").resume(); 567 domain_hdl->lat_name.setValue(lat_name_str); 568 CTimer::get("XIOS").suspend(); 569 } 570 571 void cxios_get_domain_lat_name(domain_Ptr domain_hdl, char * lat_name, int lat_name_size) 572 { 573 CTimer::get("XIOS").resume(); 574 if (!string_copy(domain_hdl->lat_name.getInheritedValue(), lat_name, lat_name_size)) 575 ERROR("void cxios_get_domain_lat_name(domain_Ptr domain_hdl, char * lat_name, int lat_name_size)", << "Input string is too short"); 576 CTimer::get("XIOS").suspend(); 577 } 578 579 bool cxios_is_defined_domain_lat_name(domain_Ptr domain_hdl) 580 { 581 CTimer::get("XIOS").resume(); 582 bool isDefined = domain_hdl->lat_name.hasInheritedValue(); 583 CTimer::get("XIOS").suspend(); 584 return isDefined; 585 } 586 587 432 588 void cxios_set_domain_latvalue_1d(domain_Ptr domain_hdl, double* latvalue_1d, int* extent) 433 589 { … … 480 636 481 637 638 void cxios_set_domain_lon_name(domain_Ptr domain_hdl, const char * lon_name, int lon_name_size) 639 { 640 std::string lon_name_str; 641 if (!cstr2string(lon_name, lon_name_size, lon_name_str)) return; 642 CTimer::get("XIOS").resume(); 643 domain_hdl->lon_name.setValue(lon_name_str); 644 CTimer::get("XIOS").suspend(); 645 } 646 647 void cxios_get_domain_lon_name(domain_Ptr domain_hdl, char * lon_name, int lon_name_size) 648 { 649 CTimer::get("XIOS").resume(); 650 if (!string_copy(domain_hdl->lon_name.getInheritedValue(), lon_name, lon_name_size)) 651 ERROR("void cxios_get_domain_lon_name(domain_Ptr domain_hdl, char * lon_name, int lon_name_size)", << "Input string is too short"); 652 CTimer::get("XIOS").suspend(); 653 } 654 655 bool cxios_is_defined_domain_lon_name(domain_Ptr domain_hdl) 656 { 657 CTimer::get("XIOS").resume(); 658 bool isDefined = domain_hdl->lon_name.hasInheritedValue(); 659 CTimer::get("XIOS").suspend(); 660 return isDefined; 661 } 662 663 482 664 void cxios_set_domain_long_name(domain_Ptr domain_hdl, const char * long_name, int long_name_size) 483 665 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icdomaingroup_attr.cpp
r1158 r1492 93 93 94 94 95 void cxios_set_domaingroup_bounds_lat_name(domaingroup_Ptr domaingroup_hdl, const char * bounds_lat_name, int bounds_lat_name_size) 96 { 97 std::string bounds_lat_name_str; 98 if (!cstr2string(bounds_lat_name, bounds_lat_name_size, bounds_lat_name_str)) return; 99 CTimer::get("XIOS").resume(); 100 domaingroup_hdl->bounds_lat_name.setValue(bounds_lat_name_str); 101 CTimer::get("XIOS").suspend(); 102 } 103 104 void cxios_get_domaingroup_bounds_lat_name(domaingroup_Ptr domaingroup_hdl, char * bounds_lat_name, int bounds_lat_name_size) 105 { 106 CTimer::get("XIOS").resume(); 107 if (!string_copy(domaingroup_hdl->bounds_lat_name.getInheritedValue(), bounds_lat_name, bounds_lat_name_size)) 108 ERROR("void cxios_get_domaingroup_bounds_lat_name(domaingroup_Ptr domaingroup_hdl, char * bounds_lat_name, int bounds_lat_name_size)", << "Input string is too short"); 109 CTimer::get("XIOS").suspend(); 110 } 111 112 bool cxios_is_defined_domaingroup_bounds_lat_name(domaingroup_Ptr domaingroup_hdl) 113 { 114 CTimer::get("XIOS").resume(); 115 bool isDefined = domaingroup_hdl->bounds_lat_name.hasInheritedValue(); 116 CTimer::get("XIOS").suspend(); 117 return isDefined; 118 } 119 120 95 121 void cxios_set_domaingroup_bounds_lon_1d(domaingroup_Ptr domaingroup_hdl, double* bounds_lon_1d, int* extent) 96 122 { … … 143 169 144 170 171 void cxios_set_domaingroup_bounds_lon_name(domaingroup_Ptr domaingroup_hdl, const char * bounds_lon_name, int bounds_lon_name_size) 172 { 173 std::string bounds_lon_name_str; 174 if (!cstr2string(bounds_lon_name, bounds_lon_name_size, bounds_lon_name_str)) return; 175 CTimer::get("XIOS").resume(); 176 domaingroup_hdl->bounds_lon_name.setValue(bounds_lon_name_str); 177 CTimer::get("XIOS").suspend(); 178 } 179 180 void cxios_get_domaingroup_bounds_lon_name(domaingroup_Ptr domaingroup_hdl, char * bounds_lon_name, int bounds_lon_name_size) 181 { 182 CTimer::get("XIOS").resume(); 183 if (!string_copy(domaingroup_hdl->bounds_lon_name.getInheritedValue(), bounds_lon_name, bounds_lon_name_size)) 184 ERROR("void cxios_get_domaingroup_bounds_lon_name(domaingroup_Ptr domaingroup_hdl, char * bounds_lon_name, int bounds_lon_name_size)", << "Input string is too short"); 185 CTimer::get("XIOS").suspend(); 186 } 187 188 bool cxios_is_defined_domaingroup_bounds_lon_name(domaingroup_Ptr domaingroup_hdl) 189 { 190 CTimer::get("XIOS").resume(); 191 bool isDefined = domaingroup_hdl->bounds_lon_name.hasInheritedValue(); 192 CTimer::get("XIOS").suspend(); 193 return isDefined; 194 } 195 196 197 void cxios_set_domaingroup_comment(domaingroup_Ptr domaingroup_hdl, const char * comment, int comment_size) 198 { 199 std::string comment_str; 200 if (!cstr2string(comment, comment_size, comment_str)) return; 201 CTimer::get("XIOS").resume(); 202 domaingroup_hdl->comment.setValue(comment_str); 203 CTimer::get("XIOS").suspend(); 204 } 205 206 void cxios_get_domaingroup_comment(domaingroup_Ptr domaingroup_hdl, char * comment, int comment_size) 207 { 208 CTimer::get("XIOS").resume(); 209 if (!string_copy(domaingroup_hdl->comment.getInheritedValue(), comment, comment_size)) 210 ERROR("void cxios_get_domaingroup_comment(domaingroup_Ptr domaingroup_hdl, char * comment, int comment_size)", << "Input string is too short"); 211 CTimer::get("XIOS").suspend(); 212 } 213 214 bool cxios_is_defined_domaingroup_comment(domaingroup_Ptr domaingroup_hdl) 215 { 216 CTimer::get("XIOS").resume(); 217 bool isDefined = domaingroup_hdl->comment.hasInheritedValue(); 218 CTimer::get("XIOS").suspend(); 219 return isDefined; 220 } 221 222 145 223 void cxios_set_domaingroup_data_dim(domaingroup_Ptr domaingroup_hdl, int data_dim) 146 224 { … … 308 386 309 387 388 void cxios_set_domaingroup_dim_i_name(domaingroup_Ptr domaingroup_hdl, const char * dim_i_name, int dim_i_name_size) 389 { 390 std::string dim_i_name_str; 391 if (!cstr2string(dim_i_name, dim_i_name_size, dim_i_name_str)) return; 392 CTimer::get("XIOS").resume(); 393 domaingroup_hdl->dim_i_name.setValue(dim_i_name_str); 394 CTimer::get("XIOS").suspend(); 395 } 396 397 void cxios_get_domaingroup_dim_i_name(domaingroup_Ptr domaingroup_hdl, char * dim_i_name, int dim_i_name_size) 398 { 399 CTimer::get("XIOS").resume(); 400 if (!string_copy(domaingroup_hdl->dim_i_name.getInheritedValue(), dim_i_name, dim_i_name_size)) 401 ERROR("void cxios_get_domaingroup_dim_i_name(domaingroup_Ptr domaingroup_hdl, char * dim_i_name, int dim_i_name_size)", << "Input string is too short"); 402 CTimer::get("XIOS").suspend(); 403 } 404 405 bool cxios_is_defined_domaingroup_dim_i_name(domaingroup_Ptr domaingroup_hdl) 406 { 407 CTimer::get("XIOS").resume(); 408 bool isDefined = domaingroup_hdl->dim_i_name.hasInheritedValue(); 409 CTimer::get("XIOS").suspend(); 410 return isDefined; 411 } 412 413 414 void cxios_set_domaingroup_dim_j_name(domaingroup_Ptr domaingroup_hdl, const char * dim_j_name, int dim_j_name_size) 415 { 416 std::string dim_j_name_str; 417 if (!cstr2string(dim_j_name, dim_j_name_size, dim_j_name_str)) return; 418 CTimer::get("XIOS").resume(); 419 domaingroup_hdl->dim_j_name.setValue(dim_j_name_str); 420 CTimer::get("XIOS").suspend(); 421 } 422 423 void cxios_get_domaingroup_dim_j_name(domaingroup_Ptr domaingroup_hdl, char * dim_j_name, int dim_j_name_size) 424 { 425 CTimer::get("XIOS").resume(); 426 if (!string_copy(domaingroup_hdl->dim_j_name.getInheritedValue(), dim_j_name, dim_j_name_size)) 427 ERROR("void cxios_get_domaingroup_dim_j_name(domaingroup_Ptr domaingroup_hdl, char * dim_j_name, int dim_j_name_size)", << "Input string is too short"); 428 CTimer::get("XIOS").suspend(); 429 } 430 431 bool cxios_is_defined_domaingroup_dim_j_name(domaingroup_Ptr domaingroup_hdl) 432 { 433 CTimer::get("XIOS").resume(); 434 bool isDefined = domaingroup_hdl->dim_j_name.hasInheritedValue(); 435 CTimer::get("XIOS").suspend(); 436 return isDefined; 437 } 438 439 310 440 void cxios_set_domaingroup_domain_ref(domaingroup_Ptr domaingroup_hdl, const char * domain_ref, int domain_ref_size) 311 441 { … … 456 586 457 587 588 void cxios_set_domaingroup_lat_name(domaingroup_Ptr domaingroup_hdl, const char * lat_name, int lat_name_size) 589 { 590 std::string lat_name_str; 591 if (!cstr2string(lat_name, lat_name_size, lat_name_str)) return; 592 CTimer::get("XIOS").resume(); 593 domaingroup_hdl->lat_name.setValue(lat_name_str); 594 CTimer::get("XIOS").suspend(); 595 } 596 597 void cxios_get_domaingroup_lat_name(domaingroup_Ptr domaingroup_hdl, char * lat_name, int lat_name_size) 598 { 599 CTimer::get("XIOS").resume(); 600 if (!string_copy(domaingroup_hdl->lat_name.getInheritedValue(), lat_name, lat_name_size)) 601 ERROR("void cxios_get_domaingroup_lat_name(domaingroup_Ptr domaingroup_hdl, char * lat_name, int lat_name_size)", << "Input string is too short"); 602 CTimer::get("XIOS").suspend(); 603 } 604 605 bool cxios_is_defined_domaingroup_lat_name(domaingroup_Ptr domaingroup_hdl) 606 { 607 CTimer::get("XIOS").resume(); 608 bool isDefined = domaingroup_hdl->lat_name.hasInheritedValue(); 609 CTimer::get("XIOS").suspend(); 610 return isDefined; 611 } 612 613 458 614 void cxios_set_domaingroup_latvalue_1d(domaingroup_Ptr domaingroup_hdl, double* latvalue_1d, int* extent) 459 615 { … … 506 662 507 663 664 void cxios_set_domaingroup_lon_name(domaingroup_Ptr domaingroup_hdl, const char * lon_name, int lon_name_size) 665 { 666 std::string lon_name_str; 667 if (!cstr2string(lon_name, lon_name_size, lon_name_str)) return; 668 CTimer::get("XIOS").resume(); 669 domaingroup_hdl->lon_name.setValue(lon_name_str); 670 CTimer::get("XIOS").suspend(); 671 } 672 673 void cxios_get_domaingroup_lon_name(domaingroup_Ptr domaingroup_hdl, char * lon_name, int lon_name_size) 674 { 675 CTimer::get("XIOS").resume(); 676 if (!string_copy(domaingroup_hdl->lon_name.getInheritedValue(), lon_name, lon_name_size)) 677 ERROR("void cxios_get_domaingroup_lon_name(domaingroup_Ptr domaingroup_hdl, char * lon_name, int lon_name_size)", << "Input string is too short"); 678 CTimer::get("XIOS").suspend(); 679 } 680 681 bool cxios_is_defined_domaingroup_lon_name(domaingroup_Ptr domaingroup_hdl) 682 { 683 CTimer::get("XIOS").resume(); 684 bool isDefined = domaingroup_hdl->lon_name.hasInheritedValue(); 685 CTimer::get("XIOS").suspend(); 686 return isDefined; 687 } 688 689 508 690 void cxios_set_domaingroup_long_name(domaingroup_Ptr domaingroup_hdl, const char * long_name, int long_name_size) 509 691 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icfield_attr.cpp
r1201 r1492 142 142 143 143 144 void cxios_set_field_comment(field_Ptr field_hdl, const char * comment, int comment_size) 145 { 146 std::string comment_str; 147 if (!cstr2string(comment, comment_size, comment_str)) return; 148 CTimer::get("XIOS").resume(); 149 field_hdl->comment.setValue(comment_str); 150 CTimer::get("XIOS").suspend(); 151 } 152 153 void cxios_get_field_comment(field_Ptr field_hdl, char * comment, int comment_size) 154 { 155 CTimer::get("XIOS").resume(); 156 if (!string_copy(field_hdl->comment.getInheritedValue(), comment, comment_size)) 157 ERROR("void cxios_get_field_comment(field_Ptr field_hdl, char * comment, int comment_size)", << "Input string is too short"); 158 CTimer::get("XIOS").suspend(); 159 } 160 161 bool cxios_is_defined_field_comment(field_Ptr field_hdl) 162 { 163 CTimer::get("XIOS").resume(); 164 bool isDefined = field_hdl->comment.hasInheritedValue(); 165 CTimer::get("XIOS").suspend(); 166 return isDefined; 167 } 168 169 144 170 void cxios_set_field_compression_level(field_Ptr field_hdl, int compression_level) 145 171 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icfieldgroup_attr.cpp
r1201 r1492 142 142 143 143 144 void cxios_set_fieldgroup_comment(fieldgroup_Ptr fieldgroup_hdl, const char * comment, int comment_size) 145 { 146 std::string comment_str; 147 if (!cstr2string(comment, comment_size, comment_str)) return; 148 CTimer::get("XIOS").resume(); 149 fieldgroup_hdl->comment.setValue(comment_str); 150 CTimer::get("XIOS").suspend(); 151 } 152 153 void cxios_get_fieldgroup_comment(fieldgroup_Ptr fieldgroup_hdl, char * comment, int comment_size) 154 { 155 CTimer::get("XIOS").resume(); 156 if (!string_copy(fieldgroup_hdl->comment.getInheritedValue(), comment, comment_size)) 157 ERROR("void cxios_get_fieldgroup_comment(fieldgroup_Ptr fieldgroup_hdl, char * comment, int comment_size)", << "Input string is too short"); 158 CTimer::get("XIOS").suspend(); 159 } 160 161 bool cxios_is_defined_fieldgroup_comment(fieldgroup_Ptr fieldgroup_hdl) 162 { 163 CTimer::get("XIOS").resume(); 164 bool isDefined = fieldgroup_hdl->comment.hasInheritedValue(); 165 CTimer::get("XIOS").suspend(); 166 return isDefined; 167 } 168 169 144 170 void cxios_set_fieldgroup_compression_level(fieldgroup_Ptr fieldgroup_hdl, int compression_level) 145 171 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icfile_attr.cpp
r1201 r1492 41 41 42 42 43 void cxios_set_file_comment(file_Ptr file_hdl, const char * comment, int comment_size) 44 { 45 std::string comment_str; 46 if (!cstr2string(comment, comment_size, comment_str)) return; 47 CTimer::get("XIOS").resume(); 48 file_hdl->comment.setValue(comment_str); 49 CTimer::get("XIOS").suspend(); 50 } 51 52 void cxios_get_file_comment(file_Ptr file_hdl, char * comment, int comment_size) 53 { 54 CTimer::get("XIOS").resume(); 55 if (!string_copy(file_hdl->comment.getInheritedValue(), comment, comment_size)) 56 ERROR("void cxios_get_file_comment(file_Ptr file_hdl, char * comment, int comment_size)", << "Input string is too short"); 57 CTimer::get("XIOS").suspend(); 58 } 59 60 bool cxios_is_defined_file_comment(file_Ptr file_hdl) 61 { 62 CTimer::get("XIOS").resume(); 63 bool isDefined = file_hdl->comment.hasInheritedValue(); 64 CTimer::get("XIOS").suspend(); 65 return isDefined; 66 } 67 68 43 69 void cxios_set_file_compression_level(file_Ptr file_hdl, int compression_level) 44 70 { … … 402 428 403 429 430 void cxios_set_file_read_metadata_par(file_Ptr file_hdl, bool read_metadata_par) 431 { 432 CTimer::get("XIOS").resume(); 433 file_hdl->read_metadata_par.setValue(read_metadata_par); 434 CTimer::get("XIOS").suspend(); 435 } 436 437 void cxios_get_file_read_metadata_par(file_Ptr file_hdl, bool* read_metadata_par) 438 { 439 CTimer::get("XIOS").resume(); 440 *read_metadata_par = file_hdl->read_metadata_par.getInheritedValue(); 441 CTimer::get("XIOS").suspend(); 442 } 443 444 bool cxios_is_defined_file_read_metadata_par(file_Ptr file_hdl) 445 { 446 CTimer::get("XIOS").resume(); 447 bool isDefined = file_hdl->read_metadata_par.hasInheritedValue(); 448 CTimer::get("XIOS").suspend(); 449 return isDefined; 450 } 451 452 404 453 void cxios_set_file_record_offset(file_Ptr file_hdl, int record_offset) 405 454 { … … 420 469 CTimer::get("XIOS").resume(); 421 470 bool isDefined = file_hdl->record_offset.hasInheritedValue(); 471 CTimer::get("XIOS").suspend(); 472 return isDefined; 473 } 474 475 476 void cxios_set_file_split_end_offset(file_Ptr file_hdl, cxios_duration split_end_offset_c) 477 { 478 CTimer::get("XIOS").resume(); 479 file_hdl->split_end_offset.allocate(); 480 CDuration& split_end_offset = file_hdl->split_end_offset.get(); 481 split_end_offset.year = split_end_offset_c.year; 482 split_end_offset.month = split_end_offset_c.month; 483 split_end_offset.day = split_end_offset_c.day; 484 split_end_offset.hour = split_end_offset_c.hour; 485 split_end_offset.minute = split_end_offset_c.minute; 486 split_end_offset.second = split_end_offset_c.second; 487 split_end_offset.timestep = split_end_offset_c.timestep; 488 CTimer::get("XIOS").suspend(); 489 } 490 491 void cxios_get_file_split_end_offset(file_Ptr file_hdl, cxios_duration* split_end_offset_c) 492 { 493 CTimer::get("XIOS").resume(); 494 CDuration split_end_offset = file_hdl->split_end_offset.getInheritedValue(); 495 split_end_offset_c->year = split_end_offset.year; 496 split_end_offset_c->month = split_end_offset.month; 497 split_end_offset_c->day = split_end_offset.day; 498 split_end_offset_c->hour = split_end_offset.hour; 499 split_end_offset_c->minute = split_end_offset.minute; 500 split_end_offset_c->second = split_end_offset.second; 501 split_end_offset_c->timestep = split_end_offset.timestep; 502 CTimer::get("XIOS").suspend(); 503 } 504 505 bool cxios_is_defined_file_split_end_offset(file_Ptr file_hdl) 506 { 507 CTimer::get("XIOS").resume(); 508 bool isDefined = file_hdl->split_end_offset.hasInheritedValue(); 422 509 CTimer::get("XIOS").suspend(); 423 510 return isDefined; … … 489 576 490 577 578 void cxios_set_file_split_last_date(file_Ptr file_hdl, const char * split_last_date, int split_last_date_size) 579 { 580 std::string split_last_date_str; 581 if (!cstr2string(split_last_date, split_last_date_size, split_last_date_str)) return; 582 CTimer::get("XIOS").resume(); 583 file_hdl->split_last_date.setValue(split_last_date_str); 584 CTimer::get("XIOS").suspend(); 585 } 586 587 void cxios_get_file_split_last_date(file_Ptr file_hdl, char * split_last_date, int split_last_date_size) 588 { 589 CTimer::get("XIOS").resume(); 590 if (!string_copy(file_hdl->split_last_date.getInheritedValue(), split_last_date, split_last_date_size)) 591 ERROR("void cxios_get_file_split_last_date(file_Ptr file_hdl, char * split_last_date, int split_last_date_size)", << "Input string is too short"); 592 CTimer::get("XIOS").suspend(); 593 } 594 595 bool cxios_is_defined_file_split_last_date(file_Ptr file_hdl) 596 { 597 CTimer::get("XIOS").resume(); 598 bool isDefined = file_hdl->split_last_date.hasInheritedValue(); 599 CTimer::get("XIOS").suspend(); 600 return isDefined; 601 } 602 603 604 void cxios_set_file_split_start_offset(file_Ptr file_hdl, cxios_duration split_start_offset_c) 605 { 606 CTimer::get("XIOS").resume(); 607 file_hdl->split_start_offset.allocate(); 608 CDuration& split_start_offset = file_hdl->split_start_offset.get(); 609 split_start_offset.year = split_start_offset_c.year; 610 split_start_offset.month = split_start_offset_c.month; 611 split_start_offset.day = split_start_offset_c.day; 612 split_start_offset.hour = split_start_offset_c.hour; 613 split_start_offset.minute = split_start_offset_c.minute; 614 split_start_offset.second = split_start_offset_c.second; 615 split_start_offset.timestep = split_start_offset_c.timestep; 616 CTimer::get("XIOS").suspend(); 617 } 618 619 void cxios_get_file_split_start_offset(file_Ptr file_hdl, cxios_duration* split_start_offset_c) 620 { 621 CTimer::get("XIOS").resume(); 622 CDuration split_start_offset = file_hdl->split_start_offset.getInheritedValue(); 623 split_start_offset_c->year = split_start_offset.year; 624 split_start_offset_c->month = split_start_offset.month; 625 split_start_offset_c->day = split_start_offset.day; 626 split_start_offset_c->hour = split_start_offset.hour; 627 split_start_offset_c->minute = split_start_offset.minute; 628 split_start_offset_c->second = split_start_offset.second; 629 split_start_offset_c->timestep = split_start_offset.timestep; 630 CTimer::get("XIOS").suspend(); 631 } 632 633 bool cxios_is_defined_file_split_start_offset(file_Ptr file_hdl) 634 { 635 CTimer::get("XIOS").resume(); 636 bool isDefined = file_hdl->split_start_offset.hasInheritedValue(); 637 CTimer::get("XIOS").suspend(); 638 return isDefined; 639 } 640 641 491 642 void cxios_set_file_sync_freq(file_Ptr file_hdl, cxios_duration sync_freq_c) 492 643 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icfilegroup_attr.cpp
r1201 r1492 41 41 42 42 43 void cxios_set_filegroup_comment(filegroup_Ptr filegroup_hdl, const char * comment, int comment_size) 44 { 45 std::string comment_str; 46 if (!cstr2string(comment, comment_size, comment_str)) return; 47 CTimer::get("XIOS").resume(); 48 filegroup_hdl->comment.setValue(comment_str); 49 CTimer::get("XIOS").suspend(); 50 } 51 52 void cxios_get_filegroup_comment(filegroup_Ptr filegroup_hdl, char * comment, int comment_size) 53 { 54 CTimer::get("XIOS").resume(); 55 if (!string_copy(filegroup_hdl->comment.getInheritedValue(), comment, comment_size)) 56 ERROR("void cxios_get_filegroup_comment(filegroup_Ptr filegroup_hdl, char * comment, int comment_size)", << "Input string is too short"); 57 CTimer::get("XIOS").suspend(); 58 } 59 60 bool cxios_is_defined_filegroup_comment(filegroup_Ptr filegroup_hdl) 61 { 62 CTimer::get("XIOS").resume(); 63 bool isDefined = filegroup_hdl->comment.hasInheritedValue(); 64 CTimer::get("XIOS").suspend(); 65 return isDefined; 66 } 67 68 43 69 void cxios_set_filegroup_compression_level(filegroup_Ptr filegroup_hdl, int compression_level) 44 70 { … … 428 454 429 455 456 void cxios_set_filegroup_read_metadata_par(filegroup_Ptr filegroup_hdl, bool read_metadata_par) 457 { 458 CTimer::get("XIOS").resume(); 459 filegroup_hdl->read_metadata_par.setValue(read_metadata_par); 460 CTimer::get("XIOS").suspend(); 461 } 462 463 void cxios_get_filegroup_read_metadata_par(filegroup_Ptr filegroup_hdl, bool* read_metadata_par) 464 { 465 CTimer::get("XIOS").resume(); 466 *read_metadata_par = filegroup_hdl->read_metadata_par.getInheritedValue(); 467 CTimer::get("XIOS").suspend(); 468 } 469 470 bool cxios_is_defined_filegroup_read_metadata_par(filegroup_Ptr filegroup_hdl) 471 { 472 CTimer::get("XIOS").resume(); 473 bool isDefined = filegroup_hdl->read_metadata_par.hasInheritedValue(); 474 CTimer::get("XIOS").suspend(); 475 return isDefined; 476 } 477 478 430 479 void cxios_set_filegroup_record_offset(filegroup_Ptr filegroup_hdl, int record_offset) 431 480 { … … 446 495 CTimer::get("XIOS").resume(); 447 496 bool isDefined = filegroup_hdl->record_offset.hasInheritedValue(); 497 CTimer::get("XIOS").suspend(); 498 return isDefined; 499 } 500 501 502 void cxios_set_filegroup_split_end_offset(filegroup_Ptr filegroup_hdl, cxios_duration split_end_offset_c) 503 { 504 CTimer::get("XIOS").resume(); 505 filegroup_hdl->split_end_offset.allocate(); 506 CDuration& split_end_offset = filegroup_hdl->split_end_offset.get(); 507 split_end_offset.year = split_end_offset_c.year; 508 split_end_offset.month = split_end_offset_c.month; 509 split_end_offset.day = split_end_offset_c.day; 510 split_end_offset.hour = split_end_offset_c.hour; 511 split_end_offset.minute = split_end_offset_c.minute; 512 split_end_offset.second = split_end_offset_c.second; 513 split_end_offset.timestep = split_end_offset_c.timestep; 514 CTimer::get("XIOS").suspend(); 515 } 516 517 void cxios_get_filegroup_split_end_offset(filegroup_Ptr filegroup_hdl, cxios_duration* split_end_offset_c) 518 { 519 CTimer::get("XIOS").resume(); 520 CDuration split_end_offset = filegroup_hdl->split_end_offset.getInheritedValue(); 521 split_end_offset_c->year = split_end_offset.year; 522 split_end_offset_c->month = split_end_offset.month; 523 split_end_offset_c->day = split_end_offset.day; 524 split_end_offset_c->hour = split_end_offset.hour; 525 split_end_offset_c->minute = split_end_offset.minute; 526 split_end_offset_c->second = split_end_offset.second; 527 split_end_offset_c->timestep = split_end_offset.timestep; 528 CTimer::get("XIOS").suspend(); 529 } 530 531 bool cxios_is_defined_filegroup_split_end_offset(filegroup_Ptr filegroup_hdl) 532 { 533 CTimer::get("XIOS").resume(); 534 bool isDefined = filegroup_hdl->split_end_offset.hasInheritedValue(); 448 535 CTimer::get("XIOS").suspend(); 449 536 return isDefined; … … 515 602 516 603 604 void cxios_set_filegroup_split_last_date(filegroup_Ptr filegroup_hdl, const char * split_last_date, int split_last_date_size) 605 { 606 std::string split_last_date_str; 607 if (!cstr2string(split_last_date, split_last_date_size, split_last_date_str)) return; 608 CTimer::get("XIOS").resume(); 609 filegroup_hdl->split_last_date.setValue(split_last_date_str); 610 CTimer::get("XIOS").suspend(); 611 } 612 613 void cxios_get_filegroup_split_last_date(filegroup_Ptr filegroup_hdl, char * split_last_date, int split_last_date_size) 614 { 615 CTimer::get("XIOS").resume(); 616 if (!string_copy(filegroup_hdl->split_last_date.getInheritedValue(), split_last_date, split_last_date_size)) 617 ERROR("void cxios_get_filegroup_split_last_date(filegroup_Ptr filegroup_hdl, char * split_last_date, int split_last_date_size)", << "Input string is too short"); 618 CTimer::get("XIOS").suspend(); 619 } 620 621 bool cxios_is_defined_filegroup_split_last_date(filegroup_Ptr filegroup_hdl) 622 { 623 CTimer::get("XIOS").resume(); 624 bool isDefined = filegroup_hdl->split_last_date.hasInheritedValue(); 625 CTimer::get("XIOS").suspend(); 626 return isDefined; 627 } 628 629 630 void cxios_set_filegroup_split_start_offset(filegroup_Ptr filegroup_hdl, cxios_duration split_start_offset_c) 631 { 632 CTimer::get("XIOS").resume(); 633 filegroup_hdl->split_start_offset.allocate(); 634 CDuration& split_start_offset = filegroup_hdl->split_start_offset.get(); 635 split_start_offset.year = split_start_offset_c.year; 636 split_start_offset.month = split_start_offset_c.month; 637 split_start_offset.day = split_start_offset_c.day; 638 split_start_offset.hour = split_start_offset_c.hour; 639 split_start_offset.minute = split_start_offset_c.minute; 640 split_start_offset.second = split_start_offset_c.second; 641 split_start_offset.timestep = split_start_offset_c.timestep; 642 CTimer::get("XIOS").suspend(); 643 } 644 645 void cxios_get_filegroup_split_start_offset(filegroup_Ptr filegroup_hdl, cxios_duration* split_start_offset_c) 646 { 647 CTimer::get("XIOS").resume(); 648 CDuration split_start_offset = filegroup_hdl->split_start_offset.getInheritedValue(); 649 split_start_offset_c->year = split_start_offset.year; 650 split_start_offset_c->month = split_start_offset.month; 651 split_start_offset_c->day = split_start_offset.day; 652 split_start_offset_c->hour = split_start_offset.hour; 653 split_start_offset_c->minute = split_start_offset.minute; 654 split_start_offset_c->second = split_start_offset.second; 655 split_start_offset_c->timestep = split_start_offset.timestep; 656 CTimer::get("XIOS").suspend(); 657 } 658 659 bool cxios_is_defined_filegroup_split_start_offset(filegroup_Ptr filegroup_hdl) 660 { 661 CTimer::get("XIOS").resume(); 662 bool isDefined = filegroup_hdl->split_start_offset.hasInheritedValue(); 663 CTimer::get("XIOS").suspend(); 664 return isDefined; 665 } 666 667 517 668 void cxios_set_filegroup_sync_freq(filegroup_Ptr filegroup_hdl, cxios_duration sync_freq_c) 518 669 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icgrid_attr.cpp
r932 r1492 18 18 typedef xios::CGrid* grid_Ptr; 19 19 20 void cxios_set_grid_comment(grid_Ptr grid_hdl, const char * comment, int comment_size) 21 { 22 std::string comment_str; 23 if (!cstr2string(comment, comment_size, comment_str)) return; 24 CTimer::get("XIOS").resume(); 25 grid_hdl->comment.setValue(comment_str); 26 CTimer::get("XIOS").suspend(); 27 } 28 29 void cxios_get_grid_comment(grid_Ptr grid_hdl, char * comment, int comment_size) 30 { 31 CTimer::get("XIOS").resume(); 32 if (!string_copy(grid_hdl->comment.getInheritedValue(), comment, comment_size)) 33 ERROR("void cxios_get_grid_comment(grid_Ptr grid_hdl, char * comment, int comment_size)", << "Input string is too short"); 34 CTimer::get("XIOS").suspend(); 35 } 36 37 bool cxios_is_defined_grid_comment(grid_Ptr grid_hdl) 38 { 39 CTimer::get("XIOS").resume(); 40 bool isDefined = grid_hdl->comment.hasInheritedValue(); 41 CTimer::get("XIOS").suspend(); 42 return isDefined; 43 } 44 45 20 46 void cxios_set_grid_description(grid_Ptr grid_hdl, const char * description, int description_size) 21 47 { … … 44 70 45 71 72 void cxios_set_grid_mask_0d(grid_Ptr grid_hdl, bool* mask_0d, int* extent) 73 { 74 CTimer::get("XIOS").resume(); 75 CArray<bool,1> tmp(mask_0d, shape(extent[0]), neverDeleteData); 76 grid_hdl->mask_0d.reference(tmp.copy()); 77 CTimer::get("XIOS").suspend(); 78 } 79 80 void cxios_get_grid_mask_0d(grid_Ptr grid_hdl, bool* mask_0d, int* extent) 81 { 82 CTimer::get("XIOS").resume(); 83 CArray<bool,1> tmp(mask_0d, shape(extent[0]), neverDeleteData); 84 tmp=grid_hdl->mask_0d.getInheritedValue(); 85 CTimer::get("XIOS").suspend(); 86 } 87 88 bool cxios_is_defined_grid_mask_0d(grid_Ptr grid_hdl) 89 { 90 CTimer::get("XIOS").resume(); 91 bool isDefined = grid_hdl->mask_0d.hasInheritedValue(); 92 CTimer::get("XIOS").suspend(); 93 return isDefined; 94 } 95 96 46 97 void cxios_set_grid_mask_1d(grid_Ptr grid_hdl, bool* mask_1d, int* extent) 47 98 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icgridgroup_attr.cpp
r932 r1492 18 18 typedef xios::CGridGroup* gridgroup_Ptr; 19 19 20 void cxios_set_gridgroup_comment(gridgroup_Ptr gridgroup_hdl, const char * comment, int comment_size) 21 { 22 std::string comment_str; 23 if (!cstr2string(comment, comment_size, comment_str)) return; 24 CTimer::get("XIOS").resume(); 25 gridgroup_hdl->comment.setValue(comment_str); 26 CTimer::get("XIOS").suspend(); 27 } 28 29 void cxios_get_gridgroup_comment(gridgroup_Ptr gridgroup_hdl, char * comment, int comment_size) 30 { 31 CTimer::get("XIOS").resume(); 32 if (!string_copy(gridgroup_hdl->comment.getInheritedValue(), comment, comment_size)) 33 ERROR("void cxios_get_gridgroup_comment(gridgroup_Ptr gridgroup_hdl, char * comment, int comment_size)", << "Input string is too short"); 34 CTimer::get("XIOS").suspend(); 35 } 36 37 bool cxios_is_defined_gridgroup_comment(gridgroup_Ptr gridgroup_hdl) 38 { 39 CTimer::get("XIOS").resume(); 40 bool isDefined = gridgroup_hdl->comment.hasInheritedValue(); 41 CTimer::get("XIOS").suspend(); 42 return isDefined; 43 } 44 45 20 46 void cxios_set_gridgroup_description(gridgroup_Ptr gridgroup_hdl, const char * description, int description_size) 21 47 { … … 70 96 71 97 98 void cxios_set_gridgroup_mask_0d(gridgroup_Ptr gridgroup_hdl, bool* mask_0d, int* extent) 99 { 100 CTimer::get("XIOS").resume(); 101 CArray<bool,1> tmp(mask_0d, shape(extent[0]), neverDeleteData); 102 gridgroup_hdl->mask_0d.reference(tmp.copy()); 103 CTimer::get("XIOS").suspend(); 104 } 105 106 void cxios_get_gridgroup_mask_0d(gridgroup_Ptr gridgroup_hdl, bool* mask_0d, int* extent) 107 { 108 CTimer::get("XIOS").resume(); 109 CArray<bool,1> tmp(mask_0d, shape(extent[0]), neverDeleteData); 110 tmp=gridgroup_hdl->mask_0d.getInheritedValue(); 111 CTimer::get("XIOS").suspend(); 112 } 113 114 bool cxios_is_defined_gridgroup_mask_0d(gridgroup_Ptr gridgroup_hdl) 115 { 116 CTimer::get("XIOS").resume(); 117 bool isDefined = gridgroup_hdl->mask_0d.hasInheritedValue(); 118 CTimer::get("XIOS").suspend(); 119 return isDefined; 120 } 121 122 72 123 void cxios_set_gridgroup_mask_1d(gridgroup_Ptr gridgroup_hdl, bool* mask_1d, int* extent) 73 124 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icinterpolate_domain_attr.cpp
r1201 r1492 18 18 typedef xios::CInterpolateDomain* interpolate_domain_Ptr; 19 19 20 void cxios_set_interpolate_domain_detect_missing_value(interpolate_domain_Ptr interpolate_domain_hdl, bool detect_missing_value) 21 { 22 CTimer::get("XIOS").resume(); 23 interpolate_domain_hdl->detect_missing_value.setValue(detect_missing_value); 24 CTimer::get("XIOS").suspend(); 25 } 26 27 void cxios_get_interpolate_domain_detect_missing_value(interpolate_domain_Ptr interpolate_domain_hdl, bool* detect_missing_value) 28 { 29 CTimer::get("XIOS").resume(); 30 *detect_missing_value = interpolate_domain_hdl->detect_missing_value.getInheritedValue(); 31 CTimer::get("XIOS").suspend(); 32 } 33 34 bool cxios_is_defined_interpolate_domain_detect_missing_value(interpolate_domain_Ptr interpolate_domain_hdl) 35 { 36 CTimer::get("XIOS").resume(); 37 bool isDefined = interpolate_domain_hdl->detect_missing_value.hasInheritedValue(); 38 CTimer::get("XIOS").suspend(); 39 return isDefined; 40 } 41 42 20 43 void cxios_set_interpolate_domain_mode(interpolate_domain_Ptr interpolate_domain_hdl, const char * mode, int mode_size) 21 44 { … … 90 113 91 114 115 void cxios_set_interpolate_domain_read_write_convention(interpolate_domain_Ptr interpolate_domain_hdl, const char * read_write_convention, int read_write_convention_size) 116 { 117 std::string read_write_convention_str; 118 if (!cstr2string(read_write_convention, read_write_convention_size, read_write_convention_str)) return; 119 CTimer::get("XIOS").resume(); 120 interpolate_domain_hdl->read_write_convention.fromString(read_write_convention_str); 121 CTimer::get("XIOS").suspend(); 122 } 123 124 void cxios_get_interpolate_domain_read_write_convention(interpolate_domain_Ptr interpolate_domain_hdl, char * read_write_convention, int read_write_convention_size) 125 { 126 CTimer::get("XIOS").resume(); 127 if (!string_copy(interpolate_domain_hdl->read_write_convention.getInheritedStringValue(), read_write_convention, read_write_convention_size)) 128 ERROR("void cxios_get_interpolate_domain_read_write_convention(interpolate_domain_Ptr interpolate_domain_hdl, char * read_write_convention, int read_write_convention_size)", << "Input string is too short"); 129 CTimer::get("XIOS").suspend(); 130 } 131 132 bool cxios_is_defined_interpolate_domain_read_write_convention(interpolate_domain_Ptr interpolate_domain_hdl) 133 { 134 CTimer::get("XIOS").resume(); 135 bool isDefined = interpolate_domain_hdl->read_write_convention.hasInheritedValue(); 136 CTimer::get("XIOS").suspend(); 137 return isDefined; 138 } 139 140 92 141 void cxios_set_interpolate_domain_renormalize(interpolate_domain_Ptr interpolate_domain_hdl, bool renormalize) 93 142 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icreduce_domain_to_axis_attr.cpp
r981 r1492 44 44 45 45 46 void cxios_set_reduce_domain_to_axis_local(reduce_domain_to_axis_Ptr reduce_domain_to_axis_hdl, bool local) 47 { 48 CTimer::get("XIOS").resume(); 49 reduce_domain_to_axis_hdl->local.setValue(local); 50 CTimer::get("XIOS").suspend(); 51 } 52 53 void cxios_get_reduce_domain_to_axis_local(reduce_domain_to_axis_Ptr reduce_domain_to_axis_hdl, bool* local) 54 { 55 CTimer::get("XIOS").resume(); 56 *local = reduce_domain_to_axis_hdl->local.getInheritedValue(); 57 CTimer::get("XIOS").suspend(); 58 } 59 60 bool cxios_is_defined_reduce_domain_to_axis_local(reduce_domain_to_axis_Ptr reduce_domain_to_axis_hdl) 61 { 62 CTimer::get("XIOS").resume(); 63 bool isDefined = reduce_domain_to_axis_hdl->local.hasInheritedValue(); 64 CTimer::get("XIOS").suspend(); 65 return isDefined; 66 } 67 68 46 69 void cxios_set_reduce_domain_to_axis_operation(reduce_domain_to_axis_Ptr reduce_domain_to_axis_hdl, const char * operation, int operation_size) 47 70 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icreduce_domain_to_scalar_attr.cpp
r981 r1492 17 17 { 18 18 typedef xios::CReduceDomainToScalar* reduce_domain_to_scalar_Ptr; 19 20 void cxios_set_reduce_domain_to_scalar_local(reduce_domain_to_scalar_Ptr reduce_domain_to_scalar_hdl, bool local) 21 { 22 CTimer::get("XIOS").resume(); 23 reduce_domain_to_scalar_hdl->local.setValue(local); 24 CTimer::get("XIOS").suspend(); 25 } 26 27 void cxios_get_reduce_domain_to_scalar_local(reduce_domain_to_scalar_Ptr reduce_domain_to_scalar_hdl, bool* local) 28 { 29 CTimer::get("XIOS").resume(); 30 *local = reduce_domain_to_scalar_hdl->local.getInheritedValue(); 31 CTimer::get("XIOS").suspend(); 32 } 33 34 bool cxios_is_defined_reduce_domain_to_scalar_local(reduce_domain_to_scalar_Ptr reduce_domain_to_scalar_hdl) 35 { 36 CTimer::get("XIOS").resume(); 37 bool isDefined = reduce_domain_to_scalar_hdl->local.hasInheritedValue(); 38 CTimer::get("XIOS").suspend(); 39 return isDefined; 40 } 41 19 42 20 43 void cxios_set_reduce_domain_to_scalar_operation(reduce_domain_to_scalar_Ptr reduce_domain_to_scalar_hdl, const char * operation, int operation_size) -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icscalar_attr.cpp
r1158 r1492 18 18 typedef xios::CScalar* scalar_Ptr; 19 19 20 void cxios_set_scalar_axis_type(scalar_Ptr scalar_hdl, const char * axis_type, int axis_type_size) 21 { 22 std::string axis_type_str; 23 if (!cstr2string(axis_type, axis_type_size, axis_type_str)) return; 24 CTimer::get("XIOS").resume(); 25 scalar_hdl->axis_type.fromString(axis_type_str); 26 CTimer::get("XIOS").suspend(); 27 } 28 29 void cxios_get_scalar_axis_type(scalar_Ptr scalar_hdl, char * axis_type, int axis_type_size) 30 { 31 CTimer::get("XIOS").resume(); 32 if (!string_copy(scalar_hdl->axis_type.getInheritedStringValue(), axis_type, axis_type_size)) 33 ERROR("void cxios_get_scalar_axis_type(scalar_Ptr scalar_hdl, char * axis_type, int axis_type_size)", << "Input string is too short"); 34 CTimer::get("XIOS").suspend(); 35 } 36 37 bool cxios_is_defined_scalar_axis_type(scalar_Ptr scalar_hdl) 38 { 39 CTimer::get("XIOS").resume(); 40 bool isDefined = scalar_hdl->axis_type.hasInheritedValue(); 41 CTimer::get("XIOS").suspend(); 42 return isDefined; 43 } 44 45 46 void cxios_set_scalar_bounds(scalar_Ptr scalar_hdl, double* bounds, int* extent) 47 { 48 CTimer::get("XIOS").resume(); 49 CArray<double,1> tmp(bounds, shape(extent[0]), neverDeleteData); 50 scalar_hdl->bounds.reference(tmp.copy()); 51 CTimer::get("XIOS").suspend(); 52 } 53 54 void cxios_get_scalar_bounds(scalar_Ptr scalar_hdl, double* bounds, int* extent) 55 { 56 CTimer::get("XIOS").resume(); 57 CArray<double,1> tmp(bounds, shape(extent[0]), neverDeleteData); 58 tmp=scalar_hdl->bounds.getInheritedValue(); 59 CTimer::get("XIOS").suspend(); 60 } 61 62 bool cxios_is_defined_scalar_bounds(scalar_Ptr scalar_hdl) 63 { 64 CTimer::get("XIOS").resume(); 65 bool isDefined = scalar_hdl->bounds.hasInheritedValue(); 66 CTimer::get("XIOS").suspend(); 67 return isDefined; 68 } 69 70 71 void cxios_set_scalar_bounds_name(scalar_Ptr scalar_hdl, const char * bounds_name, int bounds_name_size) 72 { 73 std::string bounds_name_str; 74 if (!cstr2string(bounds_name, bounds_name_size, bounds_name_str)) return; 75 CTimer::get("XIOS").resume(); 76 scalar_hdl->bounds_name.setValue(bounds_name_str); 77 CTimer::get("XIOS").suspend(); 78 } 79 80 void cxios_get_scalar_bounds_name(scalar_Ptr scalar_hdl, char * bounds_name, int bounds_name_size) 81 { 82 CTimer::get("XIOS").resume(); 83 if (!string_copy(scalar_hdl->bounds_name.getInheritedValue(), bounds_name, bounds_name_size)) 84 ERROR("void cxios_get_scalar_bounds_name(scalar_Ptr scalar_hdl, char * bounds_name, int bounds_name_size)", << "Input string is too short"); 85 CTimer::get("XIOS").suspend(); 86 } 87 88 bool cxios_is_defined_scalar_bounds_name(scalar_Ptr scalar_hdl) 89 { 90 CTimer::get("XIOS").resume(); 91 bool isDefined = scalar_hdl->bounds_name.hasInheritedValue(); 92 CTimer::get("XIOS").suspend(); 93 return isDefined; 94 } 95 96 97 void cxios_set_scalar_comment(scalar_Ptr scalar_hdl, const char * comment, int comment_size) 98 { 99 std::string comment_str; 100 if (!cstr2string(comment, comment_size, comment_str)) return; 101 CTimer::get("XIOS").resume(); 102 scalar_hdl->comment.setValue(comment_str); 103 CTimer::get("XIOS").suspend(); 104 } 105 106 void cxios_get_scalar_comment(scalar_Ptr scalar_hdl, char * comment, int comment_size) 107 { 108 CTimer::get("XIOS").resume(); 109 if (!string_copy(scalar_hdl->comment.getInheritedValue(), comment, comment_size)) 110 ERROR("void cxios_get_scalar_comment(scalar_Ptr scalar_hdl, char * comment, int comment_size)", << "Input string is too short"); 111 CTimer::get("XIOS").suspend(); 112 } 113 114 bool cxios_is_defined_scalar_comment(scalar_Ptr scalar_hdl) 115 { 116 CTimer::get("XIOS").resume(); 117 bool isDefined = scalar_hdl->comment.hasInheritedValue(); 118 CTimer::get("XIOS").suspend(); 119 return isDefined; 120 } 121 122 123 void cxios_set_scalar_label(scalar_Ptr scalar_hdl, const char * label, int label_size) 124 { 125 std::string label_str; 126 if (!cstr2string(label, label_size, label_str)) return; 127 CTimer::get("XIOS").resume(); 128 scalar_hdl->label.setValue(label_str); 129 CTimer::get("XIOS").suspend(); 130 } 131 132 void cxios_get_scalar_label(scalar_Ptr scalar_hdl, char * label, int label_size) 133 { 134 CTimer::get("XIOS").resume(); 135 if (!string_copy(scalar_hdl->label.getInheritedValue(), label, label_size)) 136 ERROR("void cxios_get_scalar_label(scalar_Ptr scalar_hdl, char * label, int label_size)", << "Input string is too short"); 137 CTimer::get("XIOS").suspend(); 138 } 139 140 bool cxios_is_defined_scalar_label(scalar_Ptr scalar_hdl) 141 { 142 CTimer::get("XIOS").resume(); 143 bool isDefined = scalar_hdl->label.hasInheritedValue(); 144 CTimer::get("XIOS").suspend(); 145 return isDefined; 146 } 147 148 20 149 void cxios_set_scalar_long_name(scalar_Ptr scalar_hdl, const char * long_name, int long_name_size) 21 150 { … … 70 199 71 200 201 void cxios_set_scalar_positive(scalar_Ptr scalar_hdl, const char * positive, int positive_size) 202 { 203 std::string positive_str; 204 if (!cstr2string(positive, positive_size, positive_str)) return; 205 CTimer::get("XIOS").resume(); 206 scalar_hdl->positive.fromString(positive_str); 207 CTimer::get("XIOS").suspend(); 208 } 209 210 void cxios_get_scalar_positive(scalar_Ptr scalar_hdl, char * positive, int positive_size) 211 { 212 CTimer::get("XIOS").resume(); 213 if (!string_copy(scalar_hdl->positive.getInheritedStringValue(), positive, positive_size)) 214 ERROR("void cxios_get_scalar_positive(scalar_Ptr scalar_hdl, char * positive, int positive_size)", << "Input string is too short"); 215 CTimer::get("XIOS").suspend(); 216 } 217 218 bool cxios_is_defined_scalar_positive(scalar_Ptr scalar_hdl) 219 { 220 CTimer::get("XIOS").resume(); 221 bool isDefined = scalar_hdl->positive.hasInheritedValue(); 222 CTimer::get("XIOS").suspend(); 223 return isDefined; 224 } 225 226 72 227 void cxios_set_scalar_prec(scalar_Ptr scalar_hdl, int prec) 73 228 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/c_attr/icscalargroup_attr.cpp
r1158 r1492 18 18 typedef xios::CScalarGroup* scalargroup_Ptr; 19 19 20 void cxios_set_scalargroup_axis_type(scalargroup_Ptr scalargroup_hdl, const char * axis_type, int axis_type_size) 21 { 22 std::string axis_type_str; 23 if (!cstr2string(axis_type, axis_type_size, axis_type_str)) return; 24 CTimer::get("XIOS").resume(); 25 scalargroup_hdl->axis_type.fromString(axis_type_str); 26 CTimer::get("XIOS").suspend(); 27 } 28 29 void cxios_get_scalargroup_axis_type(scalargroup_Ptr scalargroup_hdl, char * axis_type, int axis_type_size) 30 { 31 CTimer::get("XIOS").resume(); 32 if (!string_copy(scalargroup_hdl->axis_type.getInheritedStringValue(), axis_type, axis_type_size)) 33 ERROR("void cxios_get_scalargroup_axis_type(scalargroup_Ptr scalargroup_hdl, char * axis_type, int axis_type_size)", << "Input string is too short"); 34 CTimer::get("XIOS").suspend(); 35 } 36 37 bool cxios_is_defined_scalargroup_axis_type(scalargroup_Ptr scalargroup_hdl) 38 { 39 CTimer::get("XIOS").resume(); 40 bool isDefined = scalargroup_hdl->axis_type.hasInheritedValue(); 41 CTimer::get("XIOS").suspend(); 42 return isDefined; 43 } 44 45 46 void cxios_set_scalargroup_bounds(scalargroup_Ptr scalargroup_hdl, double* bounds, int* extent) 47 { 48 CTimer::get("XIOS").resume(); 49 CArray<double,1> tmp(bounds, shape(extent[0]), neverDeleteData); 50 scalargroup_hdl->bounds.reference(tmp.copy()); 51 CTimer::get("XIOS").suspend(); 52 } 53 54 void cxios_get_scalargroup_bounds(scalargroup_Ptr scalargroup_hdl, double* bounds, int* extent) 55 { 56 CTimer::get("XIOS").resume(); 57 CArray<double,1> tmp(bounds, shape(extent[0]), neverDeleteData); 58 tmp=scalargroup_hdl->bounds.getInheritedValue(); 59 CTimer::get("XIOS").suspend(); 60 } 61 62 bool cxios_is_defined_scalargroup_bounds(scalargroup_Ptr scalargroup_hdl) 63 { 64 CTimer::get("XIOS").resume(); 65 bool isDefined = scalargroup_hdl->bounds.hasInheritedValue(); 66 CTimer::get("XIOS").suspend(); 67 return isDefined; 68 } 69 70 71 void cxios_set_scalargroup_bounds_name(scalargroup_Ptr scalargroup_hdl, const char * bounds_name, int bounds_name_size) 72 { 73 std::string bounds_name_str; 74 if (!cstr2string(bounds_name, bounds_name_size, bounds_name_str)) return; 75 CTimer::get("XIOS").resume(); 76 scalargroup_hdl->bounds_name.setValue(bounds_name_str); 77 CTimer::get("XIOS").suspend(); 78 } 79 80 void cxios_get_scalargroup_bounds_name(scalargroup_Ptr scalargroup_hdl, char * bounds_name, int bounds_name_size) 81 { 82 CTimer::get("XIOS").resume(); 83 if (!string_copy(scalargroup_hdl->bounds_name.getInheritedValue(), bounds_name, bounds_name_size)) 84 ERROR("void cxios_get_scalargroup_bounds_name(scalargroup_Ptr scalargroup_hdl, char * bounds_name, int bounds_name_size)", << "Input string is too short"); 85 CTimer::get("XIOS").suspend(); 86 } 87 88 bool cxios_is_defined_scalargroup_bounds_name(scalargroup_Ptr scalargroup_hdl) 89 { 90 CTimer::get("XIOS").resume(); 91 bool isDefined = scalargroup_hdl->bounds_name.hasInheritedValue(); 92 CTimer::get("XIOS").suspend(); 93 return isDefined; 94 } 95 96 97 void cxios_set_scalargroup_comment(scalargroup_Ptr scalargroup_hdl, const char * comment, int comment_size) 98 { 99 std::string comment_str; 100 if (!cstr2string(comment, comment_size, comment_str)) return; 101 CTimer::get("XIOS").resume(); 102 scalargroup_hdl->comment.setValue(comment_str); 103 CTimer::get("XIOS").suspend(); 104 } 105 106 void cxios_get_scalargroup_comment(scalargroup_Ptr scalargroup_hdl, char * comment, int comment_size) 107 { 108 CTimer::get("XIOS").resume(); 109 if (!string_copy(scalargroup_hdl->comment.getInheritedValue(), comment, comment_size)) 110 ERROR("void cxios_get_scalargroup_comment(scalargroup_Ptr scalargroup_hdl, char * comment, int comment_size)", << "Input string is too short"); 111 CTimer::get("XIOS").suspend(); 112 } 113 114 bool cxios_is_defined_scalargroup_comment(scalargroup_Ptr scalargroup_hdl) 115 { 116 CTimer::get("XIOS").resume(); 117 bool isDefined = scalargroup_hdl->comment.hasInheritedValue(); 118 CTimer::get("XIOS").suspend(); 119 return isDefined; 120 } 121 122 20 123 void cxios_set_scalargroup_group_ref(scalargroup_Ptr scalargroup_hdl, const char * group_ref, int group_ref_size) 21 124 { … … 44 147 45 148 149 void cxios_set_scalargroup_label(scalargroup_Ptr scalargroup_hdl, const char * label, int label_size) 150 { 151 std::string label_str; 152 if (!cstr2string(label, label_size, label_str)) return; 153 CTimer::get("XIOS").resume(); 154 scalargroup_hdl->label.setValue(label_str); 155 CTimer::get("XIOS").suspend(); 156 } 157 158 void cxios_get_scalargroup_label(scalargroup_Ptr scalargroup_hdl, char * label, int label_size) 159 { 160 CTimer::get("XIOS").resume(); 161 if (!string_copy(scalargroup_hdl->label.getInheritedValue(), label, label_size)) 162 ERROR("void cxios_get_scalargroup_label(scalargroup_Ptr scalargroup_hdl, char * label, int label_size)", << "Input string is too short"); 163 CTimer::get("XIOS").suspend(); 164 } 165 166 bool cxios_is_defined_scalargroup_label(scalargroup_Ptr scalargroup_hdl) 167 { 168 CTimer::get("XIOS").resume(); 169 bool isDefined = scalargroup_hdl->label.hasInheritedValue(); 170 CTimer::get("XIOS").suspend(); 171 return isDefined; 172 } 173 174 46 175 void cxios_set_scalargroup_long_name(scalargroup_Ptr scalargroup_hdl, const char * long_name, int long_name_size) 47 176 { … … 96 225 97 226 227 void cxios_set_scalargroup_positive(scalargroup_Ptr scalargroup_hdl, const char * positive, int positive_size) 228 { 229 std::string positive_str; 230 if (!cstr2string(positive, positive_size, positive_str)) return; 231 CTimer::get("XIOS").resume(); 232 scalargroup_hdl->positive.fromString(positive_str); 233 CTimer::get("XIOS").suspend(); 234 } 235 236 void cxios_get_scalargroup_positive(scalargroup_Ptr scalargroup_hdl, char * positive, int positive_size) 237 { 238 CTimer::get("XIOS").resume(); 239 if (!string_copy(scalargroup_hdl->positive.getInheritedStringValue(), positive, positive_size)) 240 ERROR("void cxios_get_scalargroup_positive(scalargroup_Ptr scalargroup_hdl, char * positive, int positive_size)", << "Input string is too short"); 241 CTimer::get("XIOS").suspend(); 242 } 243 244 bool cxios_is_defined_scalargroup_positive(scalargroup_Ptr scalargroup_hdl) 245 { 246 CTimer::get("XIOS").resume(); 247 bool isDefined = scalargroup_hdl->positive.hasInheritedValue(); 248 CTimer::get("XIOS").suspend(); 249 return isDefined; 250 } 251 252 98 253 void cxios_set_scalargroup_prec(scalargroup_Ptr scalargroup_hdl, int prec) 99 254 { -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/axis_interface_attr.F90
r1158 r1492 31 31 32 32 33 SUBROUTINE cxios_set_axis_axis_type(axis_hdl, axis_type, axis_type_size) BIND(C) 34 USE ISO_C_BINDING 35 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 36 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_type 37 INTEGER (kind = C_INT) , VALUE :: axis_type_size 38 END SUBROUTINE cxios_set_axis_axis_type 39 40 SUBROUTINE cxios_get_axis_axis_type(axis_hdl, axis_type, axis_type_size) BIND(C) 41 USE ISO_C_BINDING 42 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 43 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_type 44 INTEGER (kind = C_INT) , VALUE :: axis_type_size 45 END SUBROUTINE cxios_get_axis_axis_type 46 47 FUNCTION cxios_is_defined_axis_axis_type(axis_hdl) BIND(C) 48 USE ISO_C_BINDING 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_axis_type 50 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 51 END FUNCTION cxios_is_defined_axis_axis_type 52 53 33 54 SUBROUTINE cxios_set_axis_begin(axis_hdl, begin) BIND(C) 34 55 USE ISO_C_BINDING … … 71 92 72 93 94 SUBROUTINE cxios_set_axis_bounds_name(axis_hdl, bounds_name, bounds_name_size) BIND(C) 95 USE ISO_C_BINDING 96 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 97 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_name 98 INTEGER (kind = C_INT) , VALUE :: bounds_name_size 99 END SUBROUTINE cxios_set_axis_bounds_name 100 101 SUBROUTINE cxios_get_axis_bounds_name(axis_hdl, bounds_name, bounds_name_size) BIND(C) 102 USE ISO_C_BINDING 103 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 104 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_name 105 INTEGER (kind = C_INT) , VALUE :: bounds_name_size 106 END SUBROUTINE cxios_get_axis_bounds_name 107 108 FUNCTION cxios_is_defined_axis_bounds_name(axis_hdl) BIND(C) 109 USE ISO_C_BINDING 110 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_bounds_name 111 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 112 END FUNCTION cxios_is_defined_axis_bounds_name 113 114 115 SUBROUTINE cxios_set_axis_comment(axis_hdl, comment, comment_size) BIND(C) 116 USE ISO_C_BINDING 117 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 118 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 119 INTEGER (kind = C_INT) , VALUE :: comment_size 120 END SUBROUTINE cxios_set_axis_comment 121 122 SUBROUTINE cxios_get_axis_comment(axis_hdl, comment, comment_size) BIND(C) 123 USE ISO_C_BINDING 124 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 125 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 126 INTEGER (kind = C_INT) , VALUE :: comment_size 127 END SUBROUTINE cxios_get_axis_comment 128 129 FUNCTION cxios_is_defined_axis_comment(axis_hdl) BIND(C) 130 USE ISO_C_BINDING 131 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_comment 132 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 133 END FUNCTION cxios_is_defined_axis_comment 134 135 73 136 SUBROUTINE cxios_set_axis_data_begin(axis_hdl, data_begin) BIND(C) 74 137 USE ISO_C_BINDING … … 128 191 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 129 192 END FUNCTION cxios_is_defined_axis_data_n 193 194 195 SUBROUTINE cxios_set_axis_dim_name(axis_hdl, dim_name, dim_name_size) BIND(C) 196 USE ISO_C_BINDING 197 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 198 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_name 199 INTEGER (kind = C_INT) , VALUE :: dim_name_size 200 END SUBROUTINE cxios_set_axis_dim_name 201 202 SUBROUTINE cxios_get_axis_dim_name(axis_hdl, dim_name, dim_name_size) BIND(C) 203 USE ISO_C_BINDING 204 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 205 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_name 206 INTEGER (kind = C_INT) , VALUE :: dim_name_size 207 END SUBROUTINE cxios_get_axis_dim_name 208 209 FUNCTION cxios_is_defined_axis_dim_name(axis_hdl) BIND(C) 210 USE ISO_C_BINDING 211 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_dim_name 212 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 213 END FUNCTION cxios_is_defined_axis_dim_name 214 215 216 SUBROUTINE cxios_set_axis_formula(axis_hdl, formula, formula_size) BIND(C) 217 USE ISO_C_BINDING 218 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 219 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula 220 INTEGER (kind = C_INT) , VALUE :: formula_size 221 END SUBROUTINE cxios_set_axis_formula 222 223 SUBROUTINE cxios_get_axis_formula(axis_hdl, formula, formula_size) BIND(C) 224 USE ISO_C_BINDING 225 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 226 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula 227 INTEGER (kind = C_INT) , VALUE :: formula_size 228 END SUBROUTINE cxios_get_axis_formula 229 230 FUNCTION cxios_is_defined_axis_formula(axis_hdl) BIND(C) 231 USE ISO_C_BINDING 232 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_formula 233 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 234 END FUNCTION cxios_is_defined_axis_formula 235 236 237 SUBROUTINE cxios_set_axis_formula_bounds(axis_hdl, formula_bounds, formula_bounds_size) BIND(C) 238 USE ISO_C_BINDING 239 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 240 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_bounds 241 INTEGER (kind = C_INT) , VALUE :: formula_bounds_size 242 END SUBROUTINE cxios_set_axis_formula_bounds 243 244 SUBROUTINE cxios_get_axis_formula_bounds(axis_hdl, formula_bounds, formula_bounds_size) BIND(C) 245 USE ISO_C_BINDING 246 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 247 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_bounds 248 INTEGER (kind = C_INT) , VALUE :: formula_bounds_size 249 END SUBROUTINE cxios_get_axis_formula_bounds 250 251 FUNCTION cxios_is_defined_axis_formula_bounds(axis_hdl) BIND(C) 252 USE ISO_C_BINDING 253 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_formula_bounds 254 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 255 END FUNCTION cxios_is_defined_axis_formula_bounds 256 257 258 SUBROUTINE cxios_set_axis_formula_term(axis_hdl, formula_term, formula_term_size) BIND(C) 259 USE ISO_C_BINDING 260 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 261 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_term 262 INTEGER (kind = C_INT) , VALUE :: formula_term_size 263 END SUBROUTINE cxios_set_axis_formula_term 264 265 SUBROUTINE cxios_get_axis_formula_term(axis_hdl, formula_term, formula_term_size) BIND(C) 266 USE ISO_C_BINDING 267 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 268 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_term 269 INTEGER (kind = C_INT) , VALUE :: formula_term_size 270 END SUBROUTINE cxios_get_axis_formula_term 271 272 FUNCTION cxios_is_defined_axis_formula_term(axis_hdl) BIND(C) 273 USE ISO_C_BINDING 274 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_formula_term 275 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 276 END FUNCTION cxios_is_defined_axis_formula_term 277 278 279 SUBROUTINE cxios_set_axis_formula_term_bounds(axis_hdl, formula_term_bounds, formula_term_bounds_size) BIND(C) 280 USE ISO_C_BINDING 281 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 282 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_term_bounds 283 INTEGER (kind = C_INT) , VALUE :: formula_term_bounds_size 284 END SUBROUTINE cxios_set_axis_formula_term_bounds 285 286 SUBROUTINE cxios_get_axis_formula_term_bounds(axis_hdl, formula_term_bounds, formula_term_bounds_size) BIND(C) 287 USE ISO_C_BINDING 288 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 289 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_term_bounds 290 INTEGER (kind = C_INT) , VALUE :: formula_term_bounds_size 291 END SUBROUTINE cxios_get_axis_formula_term_bounds 292 293 FUNCTION cxios_is_defined_axis_formula_term_bounds(axis_hdl) BIND(C) 294 USE ISO_C_BINDING 295 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_formula_term_bounds 296 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 297 END FUNCTION cxios_is_defined_axis_formula_term_bounds 130 298 131 299 -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/axisgroup_interface_attr.F90
r1158 r1492 31 31 32 32 33 SUBROUTINE cxios_set_axisgroup_axis_type(axisgroup_hdl, axis_type, axis_type_size) BIND(C) 34 USE ISO_C_BINDING 35 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 36 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_type 37 INTEGER (kind = C_INT) , VALUE :: axis_type_size 38 END SUBROUTINE cxios_set_axisgroup_axis_type 39 40 SUBROUTINE cxios_get_axisgroup_axis_type(axisgroup_hdl, axis_type, axis_type_size) BIND(C) 41 USE ISO_C_BINDING 42 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 43 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_type 44 INTEGER (kind = C_INT) , VALUE :: axis_type_size 45 END SUBROUTINE cxios_get_axisgroup_axis_type 46 47 FUNCTION cxios_is_defined_axisgroup_axis_type(axisgroup_hdl) BIND(C) 48 USE ISO_C_BINDING 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_axis_type 50 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 51 END FUNCTION cxios_is_defined_axisgroup_axis_type 52 53 33 54 SUBROUTINE cxios_set_axisgroup_begin(axisgroup_hdl, begin) BIND(C) 34 55 USE ISO_C_BINDING … … 71 92 72 93 94 SUBROUTINE cxios_set_axisgroup_bounds_name(axisgroup_hdl, bounds_name, bounds_name_size) BIND(C) 95 USE ISO_C_BINDING 96 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 97 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_name 98 INTEGER (kind = C_INT) , VALUE :: bounds_name_size 99 END SUBROUTINE cxios_set_axisgroup_bounds_name 100 101 SUBROUTINE cxios_get_axisgroup_bounds_name(axisgroup_hdl, bounds_name, bounds_name_size) BIND(C) 102 USE ISO_C_BINDING 103 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 104 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_name 105 INTEGER (kind = C_INT) , VALUE :: bounds_name_size 106 END SUBROUTINE cxios_get_axisgroup_bounds_name 107 108 FUNCTION cxios_is_defined_axisgroup_bounds_name(axisgroup_hdl) BIND(C) 109 USE ISO_C_BINDING 110 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_bounds_name 111 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 112 END FUNCTION cxios_is_defined_axisgroup_bounds_name 113 114 115 SUBROUTINE cxios_set_axisgroup_comment(axisgroup_hdl, comment, comment_size) BIND(C) 116 USE ISO_C_BINDING 117 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 118 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 119 INTEGER (kind = C_INT) , VALUE :: comment_size 120 END SUBROUTINE cxios_set_axisgroup_comment 121 122 SUBROUTINE cxios_get_axisgroup_comment(axisgroup_hdl, comment, comment_size) BIND(C) 123 USE ISO_C_BINDING 124 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 125 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 126 INTEGER (kind = C_INT) , VALUE :: comment_size 127 END SUBROUTINE cxios_get_axisgroup_comment 128 129 FUNCTION cxios_is_defined_axisgroup_comment(axisgroup_hdl) BIND(C) 130 USE ISO_C_BINDING 131 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_comment 132 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 133 END FUNCTION cxios_is_defined_axisgroup_comment 134 135 73 136 SUBROUTINE cxios_set_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C) 74 137 USE ISO_C_BINDING … … 128 191 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 129 192 END FUNCTION cxios_is_defined_axisgroup_data_n 193 194 195 SUBROUTINE cxios_set_axisgroup_dim_name(axisgroup_hdl, dim_name, dim_name_size) BIND(C) 196 USE ISO_C_BINDING 197 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 198 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_name 199 INTEGER (kind = C_INT) , VALUE :: dim_name_size 200 END SUBROUTINE cxios_set_axisgroup_dim_name 201 202 SUBROUTINE cxios_get_axisgroup_dim_name(axisgroup_hdl, dim_name, dim_name_size) BIND(C) 203 USE ISO_C_BINDING 204 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 205 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_name 206 INTEGER (kind = C_INT) , VALUE :: dim_name_size 207 END SUBROUTINE cxios_get_axisgroup_dim_name 208 209 FUNCTION cxios_is_defined_axisgroup_dim_name(axisgroup_hdl) BIND(C) 210 USE ISO_C_BINDING 211 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_dim_name 212 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 213 END FUNCTION cxios_is_defined_axisgroup_dim_name 214 215 216 SUBROUTINE cxios_set_axisgroup_formula(axisgroup_hdl, formula, formula_size) BIND(C) 217 USE ISO_C_BINDING 218 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 219 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula 220 INTEGER (kind = C_INT) , VALUE :: formula_size 221 END SUBROUTINE cxios_set_axisgroup_formula 222 223 SUBROUTINE cxios_get_axisgroup_formula(axisgroup_hdl, formula, formula_size) BIND(C) 224 USE ISO_C_BINDING 225 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 226 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula 227 INTEGER (kind = C_INT) , VALUE :: formula_size 228 END SUBROUTINE cxios_get_axisgroup_formula 229 230 FUNCTION cxios_is_defined_axisgroup_formula(axisgroup_hdl) BIND(C) 231 USE ISO_C_BINDING 232 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_formula 233 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 234 END FUNCTION cxios_is_defined_axisgroup_formula 235 236 237 SUBROUTINE cxios_set_axisgroup_formula_bounds(axisgroup_hdl, formula_bounds, formula_bounds_size) BIND(C) 238 USE ISO_C_BINDING 239 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 240 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_bounds 241 INTEGER (kind = C_INT) , VALUE :: formula_bounds_size 242 END SUBROUTINE cxios_set_axisgroup_formula_bounds 243 244 SUBROUTINE cxios_get_axisgroup_formula_bounds(axisgroup_hdl, formula_bounds, formula_bounds_size) BIND(C) 245 USE ISO_C_BINDING 246 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 247 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_bounds 248 INTEGER (kind = C_INT) , VALUE :: formula_bounds_size 249 END SUBROUTINE cxios_get_axisgroup_formula_bounds 250 251 FUNCTION cxios_is_defined_axisgroup_formula_bounds(axisgroup_hdl) BIND(C) 252 USE ISO_C_BINDING 253 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_formula_bounds 254 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 255 END FUNCTION cxios_is_defined_axisgroup_formula_bounds 256 257 258 SUBROUTINE cxios_set_axisgroup_formula_term(axisgroup_hdl, formula_term, formula_term_size) BIND(C) 259 USE ISO_C_BINDING 260 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 261 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_term 262 INTEGER (kind = C_INT) , VALUE :: formula_term_size 263 END SUBROUTINE cxios_set_axisgroup_formula_term 264 265 SUBROUTINE cxios_get_axisgroup_formula_term(axisgroup_hdl, formula_term, formula_term_size) BIND(C) 266 USE ISO_C_BINDING 267 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 268 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_term 269 INTEGER (kind = C_INT) , VALUE :: formula_term_size 270 END SUBROUTINE cxios_get_axisgroup_formula_term 271 272 FUNCTION cxios_is_defined_axisgroup_formula_term(axisgroup_hdl) BIND(C) 273 USE ISO_C_BINDING 274 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_formula_term 275 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 276 END FUNCTION cxios_is_defined_axisgroup_formula_term 277 278 279 SUBROUTINE cxios_set_axisgroup_formula_term_bounds(axisgroup_hdl, formula_term_bounds, formula_term_bounds_size) BIND(C) 280 USE ISO_C_BINDING 281 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 282 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_term_bounds 283 INTEGER (kind = C_INT) , VALUE :: formula_term_bounds_size 284 END SUBROUTINE cxios_set_axisgroup_formula_term_bounds 285 286 SUBROUTINE cxios_get_axisgroup_formula_term_bounds(axisgroup_hdl, formula_term_bounds, formula_term_bounds_size) BIND(C) 287 USE ISO_C_BINDING 288 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 289 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_term_bounds 290 INTEGER (kind = C_INT) , VALUE :: formula_term_bounds_size 291 END SUBROUTINE cxios_get_axisgroup_formula_term_bounds 292 293 FUNCTION cxios_is_defined_axisgroup_formula_term_bounds(axisgroup_hdl) BIND(C) 294 USE ISO_C_BINDING 295 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_formula_term_bounds 296 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 297 END FUNCTION cxios_is_defined_axisgroup_formula_term_bounds 130 298 131 299 -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/calendar_wrapper_interface_attr.F90
r674 r1492 10 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 11 12 SUBROUTINE cxios_set_calendar_wrapper_comment(calendar_wrapper_hdl, comment, comment_size) BIND(C) 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 15 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 16 INTEGER (kind = C_INT) , VALUE :: comment_size 17 END SUBROUTINE cxios_set_calendar_wrapper_comment 18 19 SUBROUTINE cxios_get_calendar_wrapper_comment(calendar_wrapper_hdl, comment, comment_size) BIND(C) 20 USE ISO_C_BINDING 21 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 22 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 23 INTEGER (kind = C_INT) , VALUE :: comment_size 24 END SUBROUTINE cxios_get_calendar_wrapper_comment 25 26 FUNCTION cxios_is_defined_calendar_wrapper_comment(calendar_wrapper_hdl) BIND(C) 27 USE ISO_C_BINDING 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_calendar_wrapper_comment 29 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 30 END FUNCTION cxios_is_defined_calendar_wrapper_comment 31 32 12 33 SUBROUTINE cxios_set_calendar_wrapper_day_length(calendar_wrapper_hdl, day_length) BIND(C) 13 34 USE ISO_C_BINDING -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/domain_interface_attr.F90
r1158 r1492 73 73 74 74 75 SUBROUTINE cxios_set_domain_bounds_lat_name(domain_hdl, bounds_lat_name, bounds_lat_name_size) BIND(C) 76 USE ISO_C_BINDING 77 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 78 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_lat_name 79 INTEGER (kind = C_INT) , VALUE :: bounds_lat_name_size 80 END SUBROUTINE cxios_set_domain_bounds_lat_name 81 82 SUBROUTINE cxios_get_domain_bounds_lat_name(domain_hdl, bounds_lat_name, bounds_lat_name_size) BIND(C) 83 USE ISO_C_BINDING 84 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 85 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_lat_name 86 INTEGER (kind = C_INT) , VALUE :: bounds_lat_name_size 87 END SUBROUTINE cxios_get_domain_bounds_lat_name 88 89 FUNCTION cxios_is_defined_domain_bounds_lat_name(domain_hdl) BIND(C) 90 USE ISO_C_BINDING 91 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_name 92 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 93 END FUNCTION cxios_is_defined_domain_bounds_lat_name 94 95 75 96 SUBROUTINE cxios_set_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent) BIND(C) 76 97 USE ISO_C_BINDING … … 113 134 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 114 135 END FUNCTION cxios_is_defined_domain_bounds_lon_2d 136 137 138 SUBROUTINE cxios_set_domain_bounds_lon_name(domain_hdl, bounds_lon_name, bounds_lon_name_size) BIND(C) 139 USE ISO_C_BINDING 140 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 141 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_lon_name 142 INTEGER (kind = C_INT) , VALUE :: bounds_lon_name_size 143 END SUBROUTINE cxios_set_domain_bounds_lon_name 144 145 SUBROUTINE cxios_get_domain_bounds_lon_name(domain_hdl, bounds_lon_name, bounds_lon_name_size) BIND(C) 146 USE ISO_C_BINDING 147 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 148 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_lon_name 149 INTEGER (kind = C_INT) , VALUE :: bounds_lon_name_size 150 END SUBROUTINE cxios_get_domain_bounds_lon_name 151 152 FUNCTION cxios_is_defined_domain_bounds_lon_name(domain_hdl) BIND(C) 153 USE ISO_C_BINDING 154 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_name 155 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 156 END FUNCTION cxios_is_defined_domain_bounds_lon_name 157 158 159 SUBROUTINE cxios_set_domain_comment(domain_hdl, comment, comment_size) BIND(C) 160 USE ISO_C_BINDING 161 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 162 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 163 INTEGER (kind = C_INT) , VALUE :: comment_size 164 END SUBROUTINE cxios_set_domain_comment 165 166 SUBROUTINE cxios_get_domain_comment(domain_hdl, comment, comment_size) BIND(C) 167 USE ISO_C_BINDING 168 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 169 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 170 INTEGER (kind = C_INT) , VALUE :: comment_size 171 END SUBROUTINE cxios_get_domain_comment 172 173 FUNCTION cxios_is_defined_domain_comment(domain_hdl) BIND(C) 174 USE ISO_C_BINDING 175 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_comment 176 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 177 END FUNCTION cxios_is_defined_domain_comment 115 178 116 179 … … 250 313 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 251 314 END FUNCTION cxios_is_defined_domain_data_nj 315 316 317 SUBROUTINE cxios_set_domain_dim_i_name(domain_hdl, dim_i_name, dim_i_name_size) BIND(C) 318 USE ISO_C_BINDING 319 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 320 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_i_name 321 INTEGER (kind = C_INT) , VALUE :: dim_i_name_size 322 END SUBROUTINE cxios_set_domain_dim_i_name 323 324 SUBROUTINE cxios_get_domain_dim_i_name(domain_hdl, dim_i_name, dim_i_name_size) BIND(C) 325 USE ISO_C_BINDING 326 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 327 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_i_name 328 INTEGER (kind = C_INT) , VALUE :: dim_i_name_size 329 END SUBROUTINE cxios_get_domain_dim_i_name 330 331 FUNCTION cxios_is_defined_domain_dim_i_name(domain_hdl) BIND(C) 332 USE ISO_C_BINDING 333 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_dim_i_name 334 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 335 END FUNCTION cxios_is_defined_domain_dim_i_name 336 337 338 SUBROUTINE cxios_set_domain_dim_j_name(domain_hdl, dim_j_name, dim_j_name_size) BIND(C) 339 USE ISO_C_BINDING 340 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 341 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_j_name 342 INTEGER (kind = C_INT) , VALUE :: dim_j_name_size 343 END SUBROUTINE cxios_set_domain_dim_j_name 344 345 SUBROUTINE cxios_get_domain_dim_j_name(domain_hdl, dim_j_name, dim_j_name_size) BIND(C) 346 USE ISO_C_BINDING 347 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 348 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_j_name 349 INTEGER (kind = C_INT) , VALUE :: dim_j_name_size 350 END SUBROUTINE cxios_get_domain_dim_j_name 351 352 FUNCTION cxios_is_defined_domain_dim_j_name(domain_hdl) BIND(C) 353 USE ISO_C_BINDING 354 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_dim_j_name 355 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 356 END FUNCTION cxios_is_defined_domain_dim_j_name 252 357 253 358 … … 353 458 354 459 460 SUBROUTINE cxios_set_domain_lat_name(domain_hdl, lat_name, lat_name_size) BIND(C) 461 USE ISO_C_BINDING 462 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 463 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: lat_name 464 INTEGER (kind = C_INT) , VALUE :: lat_name_size 465 END SUBROUTINE cxios_set_domain_lat_name 466 467 SUBROUTINE cxios_get_domain_lat_name(domain_hdl, lat_name, lat_name_size) BIND(C) 468 USE ISO_C_BINDING 469 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 470 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: lat_name 471 INTEGER (kind = C_INT) , VALUE :: lat_name_size 472 END SUBROUTINE cxios_get_domain_lat_name 473 474 FUNCTION cxios_is_defined_domain_lat_name(domain_hdl) BIND(C) 475 USE ISO_C_BINDING 476 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lat_name 477 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 478 END FUNCTION cxios_is_defined_domain_lat_name 479 480 355 481 SUBROUTINE cxios_set_domain_latvalue_1d(domain_hdl, latvalue_1d, extent) BIND(C) 356 482 USE ISO_C_BINDING … … 393 519 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 394 520 END FUNCTION cxios_is_defined_domain_latvalue_2d 521 522 523 SUBROUTINE cxios_set_domain_lon_name(domain_hdl, lon_name, lon_name_size) BIND(C) 524 USE ISO_C_BINDING 525 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 526 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: lon_name 527 INTEGER (kind = C_INT) , VALUE :: lon_name_size 528 END SUBROUTINE cxios_set_domain_lon_name 529 530 SUBROUTINE cxios_get_domain_lon_name(domain_hdl, lon_name, lon_name_size) BIND(C) 531 USE ISO_C_BINDING 532 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 533 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: lon_name 534 INTEGER (kind = C_INT) , VALUE :: lon_name_size 535 END SUBROUTINE cxios_get_domain_lon_name 536 537 FUNCTION cxios_is_defined_domain_lon_name(domain_hdl) BIND(C) 538 USE ISO_C_BINDING 539 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lon_name 540 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 541 END FUNCTION cxios_is_defined_domain_lon_name 395 542 396 543 -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/domaingroup_interface_attr.F90
r1158 r1492 73 73 74 74 75 SUBROUTINE cxios_set_domaingroup_bounds_lat_name(domaingroup_hdl, bounds_lat_name, bounds_lat_name_size) BIND(C) 76 USE ISO_C_BINDING 77 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 78 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_lat_name 79 INTEGER (kind = C_INT) , VALUE :: bounds_lat_name_size 80 END SUBROUTINE cxios_set_domaingroup_bounds_lat_name 81 82 SUBROUTINE cxios_get_domaingroup_bounds_lat_name(domaingroup_hdl, bounds_lat_name, bounds_lat_name_size) BIND(C) 83 USE ISO_C_BINDING 84 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 85 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_lat_name 86 INTEGER (kind = C_INT) , VALUE :: bounds_lat_name_size 87 END SUBROUTINE cxios_get_domaingroup_bounds_lat_name 88 89 FUNCTION cxios_is_defined_domaingroup_bounds_lat_name(domaingroup_hdl) BIND(C) 90 USE ISO_C_BINDING 91 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lat_name 92 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 93 END FUNCTION cxios_is_defined_domaingroup_bounds_lat_name 94 95 75 96 SUBROUTINE cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent) BIND(C) 76 97 USE ISO_C_BINDING … … 113 134 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 114 135 END FUNCTION cxios_is_defined_domaingroup_bounds_lon_2d 136 137 138 SUBROUTINE cxios_set_domaingroup_bounds_lon_name(domaingroup_hdl, bounds_lon_name, bounds_lon_name_size) BIND(C) 139 USE ISO_C_BINDING 140 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 141 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_lon_name 142 INTEGER (kind = C_INT) , VALUE :: bounds_lon_name_size 143 END SUBROUTINE cxios_set_domaingroup_bounds_lon_name 144 145 SUBROUTINE cxios_get_domaingroup_bounds_lon_name(domaingroup_hdl, bounds_lon_name, bounds_lon_name_size) BIND(C) 146 USE ISO_C_BINDING 147 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 148 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_lon_name 149 INTEGER (kind = C_INT) , VALUE :: bounds_lon_name_size 150 END SUBROUTINE cxios_get_domaingroup_bounds_lon_name 151 152 FUNCTION cxios_is_defined_domaingroup_bounds_lon_name(domaingroup_hdl) BIND(C) 153 USE ISO_C_BINDING 154 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lon_name 155 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 156 END FUNCTION cxios_is_defined_domaingroup_bounds_lon_name 157 158 159 SUBROUTINE cxios_set_domaingroup_comment(domaingroup_hdl, comment, comment_size) BIND(C) 160 USE ISO_C_BINDING 161 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 162 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 163 INTEGER (kind = C_INT) , VALUE :: comment_size 164 END SUBROUTINE cxios_set_domaingroup_comment 165 166 SUBROUTINE cxios_get_domaingroup_comment(domaingroup_hdl, comment, comment_size) BIND(C) 167 USE ISO_C_BINDING 168 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 169 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 170 INTEGER (kind = C_INT) , VALUE :: comment_size 171 END SUBROUTINE cxios_get_domaingroup_comment 172 173 FUNCTION cxios_is_defined_domaingroup_comment(domaingroup_hdl) BIND(C) 174 USE ISO_C_BINDING 175 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_comment 176 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 177 END FUNCTION cxios_is_defined_domaingroup_comment 115 178 116 179 … … 250 313 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 251 314 END FUNCTION cxios_is_defined_domaingroup_data_nj 315 316 317 SUBROUTINE cxios_set_domaingroup_dim_i_name(domaingroup_hdl, dim_i_name, dim_i_name_size) BIND(C) 318 USE ISO_C_BINDING 319 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 320 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_i_name 321 INTEGER (kind = C_INT) , VALUE :: dim_i_name_size 322 END SUBROUTINE cxios_set_domaingroup_dim_i_name 323 324 SUBROUTINE cxios_get_domaingroup_dim_i_name(domaingroup_hdl, dim_i_name, dim_i_name_size) BIND(C) 325 USE ISO_C_BINDING 326 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 327 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_i_name 328 INTEGER (kind = C_INT) , VALUE :: dim_i_name_size 329 END SUBROUTINE cxios_get_domaingroup_dim_i_name 330 331 FUNCTION cxios_is_defined_domaingroup_dim_i_name(domaingroup_hdl) BIND(C) 332 USE ISO_C_BINDING 333 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_dim_i_name 334 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 335 END FUNCTION cxios_is_defined_domaingroup_dim_i_name 336 337 338 SUBROUTINE cxios_set_domaingroup_dim_j_name(domaingroup_hdl, dim_j_name, dim_j_name_size) BIND(C) 339 USE ISO_C_BINDING 340 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 341 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_j_name 342 INTEGER (kind = C_INT) , VALUE :: dim_j_name_size 343 END SUBROUTINE cxios_set_domaingroup_dim_j_name 344 345 SUBROUTINE cxios_get_domaingroup_dim_j_name(domaingroup_hdl, dim_j_name, dim_j_name_size) BIND(C) 346 USE ISO_C_BINDING 347 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 348 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_j_name 349 INTEGER (kind = C_INT) , VALUE :: dim_j_name_size 350 END SUBROUTINE cxios_get_domaingroup_dim_j_name 351 352 FUNCTION cxios_is_defined_domaingroup_dim_j_name(domaingroup_hdl) BIND(C) 353 USE ISO_C_BINDING 354 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_dim_j_name 355 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 356 END FUNCTION cxios_is_defined_domaingroup_dim_j_name 252 357 253 358 … … 374 479 375 480 481 SUBROUTINE cxios_set_domaingroup_lat_name(domaingroup_hdl, lat_name, lat_name_size) BIND(C) 482 USE ISO_C_BINDING 483 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 484 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: lat_name 485 INTEGER (kind = C_INT) , VALUE :: lat_name_size 486 END SUBROUTINE cxios_set_domaingroup_lat_name 487 488 SUBROUTINE cxios_get_domaingroup_lat_name(domaingroup_hdl, lat_name, lat_name_size) BIND(C) 489 USE ISO_C_BINDING 490 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 491 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: lat_name 492 INTEGER (kind = C_INT) , VALUE :: lat_name_size 493 END SUBROUTINE cxios_get_domaingroup_lat_name 494 495 FUNCTION cxios_is_defined_domaingroup_lat_name(domaingroup_hdl) BIND(C) 496 USE ISO_C_BINDING 497 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lat_name 498 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 499 END FUNCTION cxios_is_defined_domaingroup_lat_name 500 501 376 502 SUBROUTINE cxios_set_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent) BIND(C) 377 503 USE ISO_C_BINDING … … 414 540 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 415 541 END FUNCTION cxios_is_defined_domaingroup_latvalue_2d 542 543 544 SUBROUTINE cxios_set_domaingroup_lon_name(domaingroup_hdl, lon_name, lon_name_size) BIND(C) 545 USE ISO_C_BINDING 546 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 547 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: lon_name 548 INTEGER (kind = C_INT) , VALUE :: lon_name_size 549 END SUBROUTINE cxios_set_domaingroup_lon_name 550 551 SUBROUTINE cxios_get_domaingroup_lon_name(domaingroup_hdl, lon_name, lon_name_size) BIND(C) 552 USE ISO_C_BINDING 553 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 554 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: lon_name 555 INTEGER (kind = C_INT) , VALUE :: lon_name_size 556 END SUBROUTINE cxios_get_domaingroup_lon_name 557 558 FUNCTION cxios_is_defined_domaingroup_lon_name(domaingroup_hdl) BIND(C) 559 USE ISO_C_BINDING 560 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lon_name 561 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 562 END FUNCTION cxios_is_defined_domaingroup_lon_name 416 563 417 564 -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/field_interface_attr.F90
r1201 r1492 111 111 112 112 113 SUBROUTINE cxios_set_field_comment(field_hdl, comment, comment_size) BIND(C) 114 USE ISO_C_BINDING 115 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 116 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 117 INTEGER (kind = C_INT) , VALUE :: comment_size 118 END SUBROUTINE cxios_set_field_comment 119 120 SUBROUTINE cxios_get_field_comment(field_hdl, comment, comment_size) BIND(C) 121 USE ISO_C_BINDING 122 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 123 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 124 INTEGER (kind = C_INT) , VALUE :: comment_size 125 END SUBROUTINE cxios_get_field_comment 126 127 FUNCTION cxios_is_defined_field_comment(field_hdl) BIND(C) 128 USE ISO_C_BINDING 129 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_comment 130 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 131 END FUNCTION cxios_is_defined_field_comment 132 133 113 134 SUBROUTINE cxios_set_field_compression_level(field_hdl, compression_level) BIND(C) 114 135 USE ISO_C_BINDING -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/fieldgroup_interface_attr.F90
r1201 r1492 111 111 112 112 113 SUBROUTINE cxios_set_fieldgroup_comment(fieldgroup_hdl, comment, comment_size) BIND(C) 114 USE ISO_C_BINDING 115 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 116 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 117 INTEGER (kind = C_INT) , VALUE :: comment_size 118 END SUBROUTINE cxios_set_fieldgroup_comment 119 120 SUBROUTINE cxios_get_fieldgroup_comment(fieldgroup_hdl, comment, comment_size) BIND(C) 121 USE ISO_C_BINDING 122 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 123 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 124 INTEGER (kind = C_INT) , VALUE :: comment_size 125 END SUBROUTINE cxios_get_fieldgroup_comment 126 127 FUNCTION cxios_is_defined_fieldgroup_comment(fieldgroup_hdl) BIND(C) 128 USE ISO_C_BINDING 129 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_comment 130 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 131 END FUNCTION cxios_is_defined_fieldgroup_comment 132 133 113 134 SUBROUTINE cxios_set_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C) 114 135 USE ISO_C_BINDING -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/file_interface_attr.F90
r1201 r1492 29 29 30 30 31 SUBROUTINE cxios_set_file_comment(file_hdl, comment, comment_size) BIND(C) 32 USE ISO_C_BINDING 33 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 34 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 35 INTEGER (kind = C_INT) , VALUE :: comment_size 36 END SUBROUTINE cxios_set_file_comment 37 38 SUBROUTINE cxios_get_file_comment(file_hdl, comment, comment_size) BIND(C) 39 USE ISO_C_BINDING 40 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 41 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 42 INTEGER (kind = C_INT) , VALUE :: comment_size 43 END SUBROUTINE cxios_get_file_comment 44 45 FUNCTION cxios_is_defined_file_comment(file_hdl) BIND(C) 46 USE ISO_C_BINDING 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_comment 48 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 49 END FUNCTION cxios_is_defined_file_comment 50 51 31 52 SUBROUTINE cxios_set_file_compression_level(file_hdl, compression_level) BIND(C) 32 53 USE ISO_C_BINDING … … 313 334 314 335 336 SUBROUTINE cxios_set_file_read_metadata_par(file_hdl, read_metadata_par) BIND(C) 337 USE ISO_C_BINDING 338 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 339 LOGICAL (KIND=C_BOOL) , VALUE :: read_metadata_par 340 END SUBROUTINE cxios_set_file_read_metadata_par 341 342 SUBROUTINE cxios_get_file_read_metadata_par(file_hdl, read_metadata_par) BIND(C) 343 USE ISO_C_BINDING 344 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 345 LOGICAL (KIND=C_BOOL) :: read_metadata_par 346 END SUBROUTINE cxios_get_file_read_metadata_par 347 348 FUNCTION cxios_is_defined_file_read_metadata_par(file_hdl) BIND(C) 349 USE ISO_C_BINDING 350 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_read_metadata_par 351 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 352 END FUNCTION cxios_is_defined_file_read_metadata_par 353 354 315 355 SUBROUTINE cxios_set_file_record_offset(file_hdl, record_offset) BIND(C) 316 356 USE ISO_C_BINDING … … 330 370 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 331 371 END FUNCTION cxios_is_defined_file_record_offset 372 373 374 SUBROUTINE cxios_set_file_split_end_offset(file_hdl, split_end_offset) BIND(C) 375 USE ISO_C_BINDING 376 USE IDURATION 377 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 378 TYPE(txios(duration)), VALUE :: split_end_offset 379 END SUBROUTINE cxios_set_file_split_end_offset 380 381 SUBROUTINE cxios_get_file_split_end_offset(file_hdl, split_end_offset) BIND(C) 382 USE ISO_C_BINDING 383 USE IDURATION 384 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 385 TYPE(txios(duration)) :: split_end_offset 386 END SUBROUTINE cxios_get_file_split_end_offset 387 388 FUNCTION cxios_is_defined_file_split_end_offset(file_hdl) BIND(C) 389 USE ISO_C_BINDING 390 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_end_offset 391 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 392 END FUNCTION cxios_is_defined_file_split_end_offset 332 393 333 394 … … 374 435 375 436 437 SUBROUTINE cxios_set_file_split_last_date(file_hdl, split_last_date, split_last_date_size) BIND(C) 438 USE ISO_C_BINDING 439 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 440 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_last_date 441 INTEGER (kind = C_INT) , VALUE :: split_last_date_size 442 END SUBROUTINE cxios_set_file_split_last_date 443 444 SUBROUTINE cxios_get_file_split_last_date(file_hdl, split_last_date, split_last_date_size) BIND(C) 445 USE ISO_C_BINDING 446 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 447 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_last_date 448 INTEGER (kind = C_INT) , VALUE :: split_last_date_size 449 END SUBROUTINE cxios_get_file_split_last_date 450 451 FUNCTION cxios_is_defined_file_split_last_date(file_hdl) BIND(C) 452 USE ISO_C_BINDING 453 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_last_date 454 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 455 END FUNCTION cxios_is_defined_file_split_last_date 456 457 458 SUBROUTINE cxios_set_file_split_start_offset(file_hdl, split_start_offset) BIND(C) 459 USE ISO_C_BINDING 460 USE IDURATION 461 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 462 TYPE(txios(duration)), VALUE :: split_start_offset 463 END SUBROUTINE cxios_set_file_split_start_offset 464 465 SUBROUTINE cxios_get_file_split_start_offset(file_hdl, split_start_offset) BIND(C) 466 USE ISO_C_BINDING 467 USE IDURATION 468 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 469 TYPE(txios(duration)) :: split_start_offset 470 END SUBROUTINE cxios_get_file_split_start_offset 471 472 FUNCTION cxios_is_defined_file_split_start_offset(file_hdl) BIND(C) 473 USE ISO_C_BINDING 474 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_start_offset 475 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 476 END FUNCTION cxios_is_defined_file_split_start_offset 477 478 376 479 SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_freq) BIND(C) 377 480 USE ISO_C_BINDING -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/filegroup_interface_attr.F90
r1201 r1492 29 29 30 30 31 SUBROUTINE cxios_set_filegroup_comment(filegroup_hdl, comment, comment_size) BIND(C) 32 USE ISO_C_BINDING 33 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 34 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 35 INTEGER (kind = C_INT) , VALUE :: comment_size 36 END SUBROUTINE cxios_set_filegroup_comment 37 38 SUBROUTINE cxios_get_filegroup_comment(filegroup_hdl, comment, comment_size) BIND(C) 39 USE ISO_C_BINDING 40 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 41 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 42 INTEGER (kind = C_INT) , VALUE :: comment_size 43 END SUBROUTINE cxios_get_filegroup_comment 44 45 FUNCTION cxios_is_defined_filegroup_comment(filegroup_hdl) BIND(C) 46 USE ISO_C_BINDING 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_comment 48 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 49 END FUNCTION cxios_is_defined_filegroup_comment 50 51 31 52 SUBROUTINE cxios_set_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C) 32 53 USE ISO_C_BINDING … … 334 355 335 356 357 SUBROUTINE cxios_set_filegroup_read_metadata_par(filegroup_hdl, read_metadata_par) BIND(C) 358 USE ISO_C_BINDING 359 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 360 LOGICAL (KIND=C_BOOL) , VALUE :: read_metadata_par 361 END SUBROUTINE cxios_set_filegroup_read_metadata_par 362 363 SUBROUTINE cxios_get_filegroup_read_metadata_par(filegroup_hdl, read_metadata_par) BIND(C) 364 USE ISO_C_BINDING 365 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 366 LOGICAL (KIND=C_BOOL) :: read_metadata_par 367 END SUBROUTINE cxios_get_filegroup_read_metadata_par 368 369 FUNCTION cxios_is_defined_filegroup_read_metadata_par(filegroup_hdl) BIND(C) 370 USE ISO_C_BINDING 371 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_read_metadata_par 372 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 373 END FUNCTION cxios_is_defined_filegroup_read_metadata_par 374 375 336 376 SUBROUTINE cxios_set_filegroup_record_offset(filegroup_hdl, record_offset) BIND(C) 337 377 USE ISO_C_BINDING … … 351 391 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 352 392 END FUNCTION cxios_is_defined_filegroup_record_offset 393 394 395 SUBROUTINE cxios_set_filegroup_split_end_offset(filegroup_hdl, split_end_offset) BIND(C) 396 USE ISO_C_BINDING 397 USE IDURATION 398 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 399 TYPE(txios(duration)), VALUE :: split_end_offset 400 END SUBROUTINE cxios_set_filegroup_split_end_offset 401 402 SUBROUTINE cxios_get_filegroup_split_end_offset(filegroup_hdl, split_end_offset) BIND(C) 403 USE ISO_C_BINDING 404 USE IDURATION 405 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 406 TYPE(txios(duration)) :: split_end_offset 407 END SUBROUTINE cxios_get_filegroup_split_end_offset 408 409 FUNCTION cxios_is_defined_filegroup_split_end_offset(filegroup_hdl) BIND(C) 410 USE ISO_C_BINDING 411 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_end_offset 412 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 413 END FUNCTION cxios_is_defined_filegroup_split_end_offset 353 414 354 415 … … 395 456 396 457 458 SUBROUTINE cxios_set_filegroup_split_last_date(filegroup_hdl, split_last_date, split_last_date_size) BIND(C) 459 USE ISO_C_BINDING 460 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 461 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_last_date 462 INTEGER (kind = C_INT) , VALUE :: split_last_date_size 463 END SUBROUTINE cxios_set_filegroup_split_last_date 464 465 SUBROUTINE cxios_get_filegroup_split_last_date(filegroup_hdl, split_last_date, split_last_date_size) BIND(C) 466 USE ISO_C_BINDING 467 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 468 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_last_date 469 INTEGER (kind = C_INT) , VALUE :: split_last_date_size 470 END SUBROUTINE cxios_get_filegroup_split_last_date 471 472 FUNCTION cxios_is_defined_filegroup_split_last_date(filegroup_hdl) BIND(C) 473 USE ISO_C_BINDING 474 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_last_date 475 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 476 END FUNCTION cxios_is_defined_filegroup_split_last_date 477 478 479 SUBROUTINE cxios_set_filegroup_split_start_offset(filegroup_hdl, split_start_offset) BIND(C) 480 USE ISO_C_BINDING 481 USE IDURATION 482 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 483 TYPE(txios(duration)), VALUE :: split_start_offset 484 END SUBROUTINE cxios_set_filegroup_split_start_offset 485 486 SUBROUTINE cxios_get_filegroup_split_start_offset(filegroup_hdl, split_start_offset) BIND(C) 487 USE ISO_C_BINDING 488 USE IDURATION 489 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 490 TYPE(txios(duration)) :: split_start_offset 491 END SUBROUTINE cxios_get_filegroup_split_start_offset 492 493 FUNCTION cxios_is_defined_filegroup_split_start_offset(filegroup_hdl) BIND(C) 494 USE ISO_C_BINDING 495 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_start_offset 496 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 497 END FUNCTION cxios_is_defined_filegroup_split_start_offset 498 499 397 500 SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C) 398 501 USE ISO_C_BINDING -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/grid_interface_attr.F90
r932 r1492 10 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 11 12 SUBROUTINE cxios_set_grid_comment(grid_hdl, comment, comment_size) BIND(C) 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 15 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 16 INTEGER (kind = C_INT) , VALUE :: comment_size 17 END SUBROUTINE cxios_set_grid_comment 18 19 SUBROUTINE cxios_get_grid_comment(grid_hdl, comment, comment_size) BIND(C) 20 USE ISO_C_BINDING 21 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 22 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 23 INTEGER (kind = C_INT) , VALUE :: comment_size 24 END SUBROUTINE cxios_get_grid_comment 25 26 FUNCTION cxios_is_defined_grid_comment(grid_hdl) BIND(C) 27 USE ISO_C_BINDING 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_comment 29 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 30 END FUNCTION cxios_is_defined_grid_comment 31 32 12 33 SUBROUTINE cxios_set_grid_description(grid_hdl, description, description_size) BIND(C) 13 34 USE ISO_C_BINDING … … 31 52 32 53 54 SUBROUTINE cxios_set_grid_mask_0d(grid_hdl, mask_0d, extent) BIND(C) 55 USE ISO_C_BINDING 56 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 57 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_0d 58 INTEGER (kind = C_INT), DIMENSION(*) :: extent 59 END SUBROUTINE cxios_set_grid_mask_0d 60 61 SUBROUTINE cxios_get_grid_mask_0d(grid_hdl, mask_0d, extent) BIND(C) 62 USE ISO_C_BINDING 63 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 64 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_0d 65 INTEGER (kind = C_INT), DIMENSION(*) :: extent 66 END SUBROUTINE cxios_get_grid_mask_0d 67 68 FUNCTION cxios_is_defined_grid_mask_0d(grid_hdl) BIND(C) 69 USE ISO_C_BINDING 70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask_0d 71 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 72 END FUNCTION cxios_is_defined_grid_mask_0d 73 74 33 75 SUBROUTINE cxios_set_grid_mask_1d(grid_hdl, mask_1d, extent) BIND(C) 34 76 USE ISO_C_BINDING -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/gridgroup_interface_attr.F90
r932 r1492 10 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 11 12 SUBROUTINE cxios_set_gridgroup_comment(gridgroup_hdl, comment, comment_size) BIND(C) 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 15 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 16 INTEGER (kind = C_INT) , VALUE :: comment_size 17 END SUBROUTINE cxios_set_gridgroup_comment 18 19 SUBROUTINE cxios_get_gridgroup_comment(gridgroup_hdl, comment, comment_size) BIND(C) 20 USE ISO_C_BINDING 21 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 22 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 23 INTEGER (kind = C_INT) , VALUE :: comment_size 24 END SUBROUTINE cxios_get_gridgroup_comment 25 26 FUNCTION cxios_is_defined_gridgroup_comment(gridgroup_hdl) BIND(C) 27 USE ISO_C_BINDING 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_comment 29 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 30 END FUNCTION cxios_is_defined_gridgroup_comment 31 32 12 33 SUBROUTINE cxios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C) 13 34 USE ISO_C_BINDING … … 52 73 53 74 75 SUBROUTINE cxios_set_gridgroup_mask_0d(gridgroup_hdl, mask_0d, extent) BIND(C) 76 USE ISO_C_BINDING 77 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 78 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_0d 79 INTEGER (kind = C_INT), DIMENSION(*) :: extent 80 END SUBROUTINE cxios_set_gridgroup_mask_0d 81 82 SUBROUTINE cxios_get_gridgroup_mask_0d(gridgroup_hdl, mask_0d, extent) BIND(C) 83 USE ISO_C_BINDING 84 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 85 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_0d 86 INTEGER (kind = C_INT), DIMENSION(*) :: extent 87 END SUBROUTINE cxios_get_gridgroup_mask_0d 88 89 FUNCTION cxios_is_defined_gridgroup_mask_0d(gridgroup_hdl) BIND(C) 90 USE ISO_C_BINDING 91 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask_0d 92 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 93 END FUNCTION cxios_is_defined_gridgroup_mask_0d 94 95 54 96 SUBROUTINE cxios_set_gridgroup_mask_1d(gridgroup_hdl, mask_1d, extent) BIND(C) 55 97 USE ISO_C_BINDING -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/iaxis_attr.F90
r1158 r1492 12 12 13 13 SUBROUTINE xios(set_axis_attr) & 14 ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 15 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 16 ) 14 ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & 15 , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & 16 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 17 , value ) 17 18 18 19 IMPLICIT NONE … … 20 21 CHARACTER(LEN=*), INTENT(IN) ::axis_id 21 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 23 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type 22 24 INTEGER , OPTIONAL, INTENT(IN) :: begin 23 25 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 27 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 24 28 INTEGER , OPTIONAL, INTENT(IN) :: data_begin 25 29 INTEGER , OPTIONAL, INTENT(IN) :: data_index(:) 26 30 INTEGER , OPTIONAL, INTENT(IN) :: data_n 31 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name 32 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula 33 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds 27 36 INTEGER , OPTIONAL, INTENT(IN) :: index(:) 28 37 CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:) … … 43 52 (axis_id,axis_hdl) 44 53 CALL xios(set_axis_attr_hdl_) & 45 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 46 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 47 ) 54 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & 55 , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & 56 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 57 , value ) 48 58 49 59 END SUBROUTINE xios(set_axis_attr) 50 60 51 61 SUBROUTINE xios(set_axis_attr_hdl) & 52 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 53 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 54 ) 62 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & 63 , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & 64 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 65 , value ) 55 66 56 67 IMPLICIT NONE 57 68 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 58 69 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 70 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type 59 71 INTEGER , OPTIONAL, INTENT(IN) :: begin 60 72 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) 73 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 74 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 61 75 INTEGER , OPTIONAL, INTENT(IN) :: data_begin 62 76 INTEGER , OPTIONAL, INTENT(IN) :: data_index(:) 63 77 INTEGER , OPTIONAL, INTENT(IN) :: data_n 78 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name 79 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula 80 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds 81 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term 82 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds 64 83 INTEGER , OPTIONAL, INTENT(IN) :: index(:) 65 84 CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:) … … 78 97 79 98 CALL xios(set_axis_attr_hdl_) & 80 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 81 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 82 ) 99 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & 100 , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & 101 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 102 , value ) 83 103 84 104 END SUBROUTINE xios(set_axis_attr_hdl) 85 105 86 106 SUBROUTINE xios(set_axis_attr_hdl_) & 87 ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, label_, long_name_ & 88 , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_, unit_ & 89 , value_ ) 107 ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, 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_ ) 90 111 91 112 IMPLICIT NONE 92 113 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 93 114 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 115 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_ 94 116 INTEGER , OPTIONAL, INTENT(IN) :: begin_ 95 117 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:) 118 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_ 119 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 96 120 INTEGER , OPTIONAL, INTENT(IN) :: data_begin_ 97 121 INTEGER , OPTIONAL, INTENT(IN) :: data_index_(:) 98 122 INTEGER , OPTIONAL, INTENT(IN) :: data_n_ 123 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name_ 124 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_ 125 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds_ 126 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_ 127 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds_ 99 128 INTEGER , OPTIONAL, INTENT(IN) :: index_(:) 100 129 CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label_(:) … … 117 146 ENDIF 118 147 148 IF (PRESENT(axis_type_)) THEN 149 CALL cxios_set_axis_axis_type & 150 (axis_hdl%daddr, axis_type_, len(axis_type_)) 151 ENDIF 152 119 153 IF (PRESENT(begin_)) THEN 120 154 CALL cxios_set_axis_begin & … … 127 161 ENDIF 128 162 163 IF (PRESENT(bounds_name_)) THEN 164 CALL cxios_set_axis_bounds_name & 165 (axis_hdl%daddr, bounds_name_, len(bounds_name_)) 166 ENDIF 167 168 IF (PRESENT(comment_)) THEN 169 CALL cxios_set_axis_comment & 170 (axis_hdl%daddr, comment_, len(comment_)) 171 ENDIF 172 129 173 IF (PRESENT(data_begin_)) THEN 130 174 CALL cxios_set_axis_data_begin & … … 140 184 CALL cxios_set_axis_data_n & 141 185 (axis_hdl%daddr, data_n_) 186 ENDIF 187 188 IF (PRESENT(dim_name_)) THEN 189 CALL cxios_set_axis_dim_name & 190 (axis_hdl%daddr, dim_name_, len(dim_name_)) 191 ENDIF 192 193 IF (PRESENT(formula_)) THEN 194 CALL cxios_set_axis_formula & 195 (axis_hdl%daddr, formula_, len(formula_)) 196 ENDIF 197 198 IF (PRESENT(formula_bounds_)) THEN 199 CALL cxios_set_axis_formula_bounds & 200 (axis_hdl%daddr, formula_bounds_, len(formula_bounds_)) 201 ENDIF 202 203 IF (PRESENT(formula_term_)) THEN 204 CALL cxios_set_axis_formula_term & 205 (axis_hdl%daddr, formula_term_, len(formula_term_)) 206 ENDIF 207 208 IF (PRESENT(formula_term_bounds_)) THEN 209 CALL cxios_set_axis_formula_term_bounds & 210 (axis_hdl%daddr, formula_term_bounds_, len(formula_term_bounds_)) 142 211 ENDIF 143 212 … … 212 281 213 282 SUBROUTINE xios(get_axis_attr) & 214 ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 215 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 216 ) 283 ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & 284 , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & 285 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 286 , value ) 217 287 218 288 IMPLICIT NONE … … 220 290 CHARACTER(LEN=*), INTENT(IN) ::axis_id 221 291 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 292 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type 222 293 INTEGER , OPTIONAL, INTENT(OUT) :: begin 223 294 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) 295 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 296 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 224 297 INTEGER , OPTIONAL, INTENT(OUT) :: data_begin 225 298 INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:) 226 299 INTEGER , OPTIONAL, INTENT(OUT) :: data_n 300 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name 301 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula 302 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds 303 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term 304 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds 227 305 INTEGER , OPTIONAL, INTENT(OUT) :: index(:) 228 306 CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:) … … 243 321 (axis_id,axis_hdl) 244 322 CALL xios(get_axis_attr_hdl_) & 245 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 246 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 247 ) 323 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & 324 , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & 325 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 326 , value ) 248 327 249 328 END SUBROUTINE xios(get_axis_attr) 250 329 251 330 SUBROUTINE xios(get_axis_attr_hdl) & 252 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 253 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 254 ) 331 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & 332 , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & 333 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 334 , value ) 255 335 256 336 IMPLICIT NONE 257 337 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 258 338 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 339 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type 259 340 INTEGER , OPTIONAL, INTENT(OUT) :: begin 260 341 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) 342 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 343 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 261 344 INTEGER , OPTIONAL, INTENT(OUT) :: data_begin 262 345 INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:) 263 346 INTEGER , OPTIONAL, INTENT(OUT) :: data_n 347 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name 348 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula 349 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds 350 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term 351 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds 264 352 INTEGER , OPTIONAL, INTENT(OUT) :: index(:) 265 353 CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:) … … 278 366 279 367 CALL xios(get_axis_attr_hdl_) & 280 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 281 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 282 ) 368 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & 369 , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & 370 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 371 , value ) 283 372 284 373 END SUBROUTINE xios(get_axis_attr_hdl) 285 374 286 375 SUBROUTINE xios(get_axis_attr_hdl_) & 287 ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, label_, long_name_ & 288 , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_, unit_ & 289 , value_ ) 376 ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, 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_ ) 290 380 291 381 IMPLICIT NONE 292 382 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 293 383 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 384 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_ 294 385 INTEGER , OPTIONAL, INTENT(OUT) :: begin_ 295 386 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:) 387 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_ 388 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 296 389 INTEGER , OPTIONAL, INTENT(OUT) :: data_begin_ 297 390 INTEGER , OPTIONAL, INTENT(OUT) :: data_index_(:) 298 391 INTEGER , OPTIONAL, INTENT(OUT) :: data_n_ 392 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name_ 393 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_ 394 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds_ 395 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_ 396 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds_ 299 397 INTEGER , OPTIONAL, INTENT(OUT) :: index_(:) 300 398 CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label_(:) … … 317 415 ENDIF 318 416 417 IF (PRESENT(axis_type_)) THEN 418 CALL cxios_get_axis_axis_type & 419 (axis_hdl%daddr, axis_type_, len(axis_type_)) 420 ENDIF 421 319 422 IF (PRESENT(begin_)) THEN 320 423 CALL cxios_get_axis_begin & … … 327 430 ENDIF 328 431 432 IF (PRESENT(bounds_name_)) THEN 433 CALL cxios_get_axis_bounds_name & 434 (axis_hdl%daddr, bounds_name_, len(bounds_name_)) 435 ENDIF 436 437 IF (PRESENT(comment_)) THEN 438 CALL cxios_get_axis_comment & 439 (axis_hdl%daddr, comment_, len(comment_)) 440 ENDIF 441 329 442 IF (PRESENT(data_begin_)) THEN 330 443 CALL cxios_get_axis_data_begin & … … 340 453 CALL cxios_get_axis_data_n & 341 454 (axis_hdl%daddr, data_n_) 455 ENDIF 456 457 IF (PRESENT(dim_name_)) THEN 458 CALL cxios_get_axis_dim_name & 459 (axis_hdl%daddr, dim_name_, len(dim_name_)) 460 ENDIF 461 462 IF (PRESENT(formula_)) THEN 463 CALL cxios_get_axis_formula & 464 (axis_hdl%daddr, formula_, len(formula_)) 465 ENDIF 466 467 IF (PRESENT(formula_bounds_)) THEN 468 CALL cxios_get_axis_formula_bounds & 469 (axis_hdl%daddr, formula_bounds_, len(formula_bounds_)) 470 ENDIF 471 472 IF (PRESENT(formula_term_)) THEN 473 CALL cxios_get_axis_formula_term & 474 (axis_hdl%daddr, formula_term_, len(formula_term_)) 475 ENDIF 476 477 IF (PRESENT(formula_term_bounds_)) THEN 478 CALL cxios_get_axis_formula_term_bounds & 479 (axis_hdl%daddr, formula_term_bounds_, len(formula_term_bounds_)) 342 480 ENDIF 343 481 … … 412 550 413 551 SUBROUTINE xios(is_defined_axis_attr) & 414 ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 415 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 416 ) 552 ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & 553 , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & 554 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 555 , value ) 417 556 418 557 IMPLICIT NONE … … 421 560 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 422 561 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 562 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type 563 LOGICAL(KIND=C_BOOL) :: axis_type_tmp 423 564 LOGICAL, OPTIONAL, INTENT(OUT) :: begin 424 565 LOGICAL(KIND=C_BOOL) :: begin_tmp 425 566 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds 426 567 LOGICAL(KIND=C_BOOL) :: bounds_tmp 568 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 569 LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 570 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 571 LOGICAL(KIND=C_BOOL) :: comment_tmp 427 572 LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin 428 573 LOGICAL(KIND=C_BOOL) :: data_begin_tmp … … 431 576 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n 432 577 LOGICAL(KIND=C_BOOL) :: data_n_tmp 578 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name 579 LOGICAL(KIND=C_BOOL) :: dim_name_tmp 580 LOGICAL, OPTIONAL, INTENT(OUT) :: formula 581 LOGICAL(KIND=C_BOOL) :: formula_tmp 582 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds 583 LOGICAL(KIND=C_BOOL) :: formula_bounds_tmp 584 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term 585 LOGICAL(KIND=C_BOOL) :: formula_term_tmp 586 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds 587 LOGICAL(KIND=C_BOOL) :: formula_term_bounds_tmp 433 588 LOGICAL, OPTIONAL, INTENT(OUT) :: index 434 589 LOGICAL(KIND=C_BOOL) :: index_tmp … … 461 616 (axis_id,axis_hdl) 462 617 CALL xios(is_defined_axis_attr_hdl_) & 463 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 464 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 465 ) 618 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & 619 , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & 620 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 621 , value ) 466 622 467 623 END SUBROUTINE xios(is_defined_axis_attr) 468 624 469 625 SUBROUTINE xios(is_defined_axis_attr_hdl) & 470 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 471 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 472 ) 626 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & 627 , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & 628 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 629 , value ) 473 630 474 631 IMPLICIT NONE … … 476 633 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 477 634 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 635 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type 636 LOGICAL(KIND=C_BOOL) :: axis_type_tmp 478 637 LOGICAL, OPTIONAL, INTENT(OUT) :: begin 479 638 LOGICAL(KIND=C_BOOL) :: begin_tmp 480 639 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds 481 640 LOGICAL(KIND=C_BOOL) :: bounds_tmp 641 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 642 LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 643 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 644 LOGICAL(KIND=C_BOOL) :: comment_tmp 482 645 LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin 483 646 LOGICAL(KIND=C_BOOL) :: data_begin_tmp … … 486 649 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n 487 650 LOGICAL(KIND=C_BOOL) :: data_n_tmp 651 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name 652 LOGICAL(KIND=C_BOOL) :: dim_name_tmp 653 LOGICAL, OPTIONAL, INTENT(OUT) :: formula 654 LOGICAL(KIND=C_BOOL) :: formula_tmp 655 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds 656 LOGICAL(KIND=C_BOOL) :: formula_bounds_tmp 657 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term 658 LOGICAL(KIND=C_BOOL) :: formula_term_tmp 659 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds 660 LOGICAL(KIND=C_BOOL) :: formula_term_bounds_tmp 488 661 LOGICAL, OPTIONAL, INTENT(OUT) :: index 489 662 LOGICAL(KIND=C_BOOL) :: index_tmp … … 514 687 515 688 CALL xios(is_defined_axis_attr_hdl_) & 516 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 517 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 518 ) 689 ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & 690 , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & 691 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 692 , value ) 519 693 520 694 END SUBROUTINE xios(is_defined_axis_attr_hdl) 521 695 522 696 SUBROUTINE xios(is_defined_axis_attr_hdl_) & 523 ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, label_, long_name_ & 524 , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_, unit_ & 525 , value_ ) 697 ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, 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_ ) 526 701 527 702 IMPLICIT NONE … … 529 704 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 530 705 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 706 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_ 707 LOGICAL(KIND=C_BOOL) :: axis_type__tmp 531 708 LOGICAL, OPTIONAL, INTENT(OUT) :: begin_ 532 709 LOGICAL(KIND=C_BOOL) :: begin__tmp 533 710 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_ 534 711 LOGICAL(KIND=C_BOOL) :: bounds__tmp 712 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_ 713 LOGICAL(KIND=C_BOOL) :: bounds_name__tmp 714 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 715 LOGICAL(KIND=C_BOOL) :: comment__tmp 535 716 LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_ 536 717 LOGICAL(KIND=C_BOOL) :: data_begin__tmp … … 539 720 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_ 540 721 LOGICAL(KIND=C_BOOL) :: data_n__tmp 722 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name_ 723 LOGICAL(KIND=C_BOOL) :: dim_name__tmp 724 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_ 725 LOGICAL(KIND=C_BOOL) :: formula__tmp 726 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds_ 727 LOGICAL(KIND=C_BOOL) :: formula_bounds__tmp 728 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_ 729 LOGICAL(KIND=C_BOOL) :: formula_term__tmp 730 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds_ 731 LOGICAL(KIND=C_BOOL) :: formula_term_bounds__tmp 541 732 LOGICAL, OPTIONAL, INTENT(OUT) :: index_ 542 733 LOGICAL(KIND=C_BOOL) :: index__tmp … … 572 763 ENDIF 573 764 765 IF (PRESENT(axis_type_)) THEN 766 axis_type__tmp = cxios_is_defined_axis_axis_type & 767 (axis_hdl%daddr) 768 axis_type_ = axis_type__tmp 769 ENDIF 770 574 771 IF (PRESENT(begin_)) THEN 575 772 begin__tmp = cxios_is_defined_axis_begin & … … 584 781 ENDIF 585 782 783 IF (PRESENT(bounds_name_)) THEN 784 bounds_name__tmp = cxios_is_defined_axis_bounds_name & 785 (axis_hdl%daddr) 786 bounds_name_ = bounds_name__tmp 787 ENDIF 788 789 IF (PRESENT(comment_)) THEN 790 comment__tmp = cxios_is_defined_axis_comment & 791 (axis_hdl%daddr) 792 comment_ = comment__tmp 793 ENDIF 794 586 795 IF (PRESENT(data_begin_)) THEN 587 796 data_begin__tmp = cxios_is_defined_axis_data_begin & … … 602 811 ENDIF 603 812 813 IF (PRESENT(dim_name_)) THEN 814 dim_name__tmp = cxios_is_defined_axis_dim_name & 815 (axis_hdl%daddr) 816 dim_name_ = dim_name__tmp 817 ENDIF 818 819 IF (PRESENT(formula_)) THEN 820 formula__tmp = cxios_is_defined_axis_formula & 821 (axis_hdl%daddr) 822 formula_ = formula__tmp 823 ENDIF 824 825 IF (PRESENT(formula_bounds_)) THEN 826 formula_bounds__tmp = cxios_is_defined_axis_formula_bounds & 827 (axis_hdl%daddr) 828 formula_bounds_ = formula_bounds__tmp 829 ENDIF 830 831 IF (PRESENT(formula_term_)) THEN 832 formula_term__tmp = cxios_is_defined_axis_formula_term & 833 (axis_hdl%daddr) 834 formula_term_ = formula_term__tmp 835 ENDIF 836 837 IF (PRESENT(formula_term_bounds_)) THEN 838 formula_term_bounds__tmp = cxios_is_defined_axis_formula_term_bounds & 839 (axis_hdl%daddr) 840 formula_term_bounds_ = formula_term_bounds__tmp 841 ENDIF 842 604 843 IF (PRESENT(index_)) THEN 605 844 index__tmp = cxios_is_defined_axis_index & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/iaxisgroup_attr.F90
r1158 r1492 12 12 13 13 SUBROUTINE xios(set_axisgroup_attr) & 14 ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 15 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 16 , value ) 14 ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, 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 & 17 , unit, value ) 17 18 18 19 IMPLICIT NONE … … 20 21 CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id 21 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 23 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type 22 24 INTEGER , OPTIONAL, INTENT(IN) :: begin 23 25 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 27 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 24 28 INTEGER , OPTIONAL, INTENT(IN) :: data_begin 25 29 INTEGER , OPTIONAL, INTENT(IN) :: data_index(:) 26 30 INTEGER , OPTIONAL, INTENT(IN) :: data_n 31 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name 32 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula 33 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds 27 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 28 37 INTEGER , OPTIONAL, INTENT(IN) :: index(:) … … 44 53 (axisgroup_id,axisgroup_hdl) 45 54 CALL xios(set_axisgroup_attr_hdl_) & 46 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 47 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 48 , value ) 55 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, 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 & 58 , unit, value ) 49 59 50 60 END SUBROUTINE xios(set_axisgroup_attr) 51 61 52 62 SUBROUTINE xios(set_axisgroup_attr_hdl) & 53 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 54 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 55 , value ) 63 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, 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 & 66 , unit, value ) 56 67 57 68 IMPLICIT NONE 58 69 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 59 70 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 71 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type 60 72 INTEGER , OPTIONAL, INTENT(IN) :: begin 61 73 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) 74 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 75 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 62 76 INTEGER , OPTIONAL, INTENT(IN) :: data_begin 63 77 INTEGER , OPTIONAL, INTENT(IN) :: data_index(:) 64 78 INTEGER , OPTIONAL, INTENT(IN) :: data_n 79 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name 80 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula 81 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds 82 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term 83 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds 65 84 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 66 85 INTEGER , OPTIONAL, INTENT(IN) :: index(:) … … 80 99 81 100 CALL xios(set_axisgroup_attr_hdl_) & 82 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 83 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 84 , value ) 101 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, 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 & 104 , unit, value ) 85 105 86 106 END SUBROUTINE xios(set_axisgroup_attr_hdl) 87 107 88 108 SUBROUTINE xios(set_axisgroup_attr_hdl_) & 89 ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_ & 90 , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_ & 91 , unit_, value_ ) 109 ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_ & 110 , data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ & 111 , group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_ & 112 , positive_, prec_, standard_name_, unit_, value_ ) 92 113 93 114 IMPLICIT NONE 94 115 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 95 116 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 117 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_ 96 118 INTEGER , OPTIONAL, INTENT(IN) :: begin_ 97 119 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:) 120 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_ 121 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 98 122 INTEGER , OPTIONAL, INTENT(IN) :: data_begin_ 99 123 INTEGER , OPTIONAL, INTENT(IN) :: data_index_(:) 100 124 INTEGER , OPTIONAL, INTENT(IN) :: data_n_ 125 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name_ 126 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_ 127 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds_ 128 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_ 129 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds_ 101 130 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 102 131 INTEGER , OPTIONAL, INTENT(IN) :: index_(:) … … 120 149 ENDIF 121 150 151 IF (PRESENT(axis_type_)) THEN 152 CALL cxios_set_axisgroup_axis_type & 153 (axisgroup_hdl%daddr, axis_type_, len(axis_type_)) 154 ENDIF 155 122 156 IF (PRESENT(begin_)) THEN 123 157 CALL cxios_set_axisgroup_begin & … … 130 164 ENDIF 131 165 166 IF (PRESENT(bounds_name_)) THEN 167 CALL cxios_set_axisgroup_bounds_name & 168 (axisgroup_hdl%daddr, bounds_name_, len(bounds_name_)) 169 ENDIF 170 171 IF (PRESENT(comment_)) THEN 172 CALL cxios_set_axisgroup_comment & 173 (axisgroup_hdl%daddr, comment_, len(comment_)) 174 ENDIF 175 132 176 IF (PRESENT(data_begin_)) THEN 133 177 CALL cxios_set_axisgroup_data_begin & … … 143 187 CALL cxios_set_axisgroup_data_n & 144 188 (axisgroup_hdl%daddr, data_n_) 189 ENDIF 190 191 IF (PRESENT(dim_name_)) THEN 192 CALL cxios_set_axisgroup_dim_name & 193 (axisgroup_hdl%daddr, dim_name_, len(dim_name_)) 194 ENDIF 195 196 IF (PRESENT(formula_)) THEN 197 CALL cxios_set_axisgroup_formula & 198 (axisgroup_hdl%daddr, formula_, len(formula_)) 199 ENDIF 200 201 IF (PRESENT(formula_bounds_)) THEN 202 CALL cxios_set_axisgroup_formula_bounds & 203 (axisgroup_hdl%daddr, formula_bounds_, len(formula_bounds_)) 204 ENDIF 205 206 IF (PRESENT(formula_term_)) THEN 207 CALL cxios_set_axisgroup_formula_term & 208 (axisgroup_hdl%daddr, formula_term_, len(formula_term_)) 209 ENDIF 210 211 IF (PRESENT(formula_term_bounds_)) THEN 212 CALL cxios_set_axisgroup_formula_term_bounds & 213 (axisgroup_hdl%daddr, formula_term_bounds_, len(formula_term_bounds_)) 145 214 ENDIF 146 215 … … 220 289 221 290 SUBROUTINE xios(get_axisgroup_attr) & 222 ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 223 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 224 , value ) 291 ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, 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 & 294 , unit, value ) 225 295 226 296 IMPLICIT NONE … … 228 298 CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id 229 299 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 300 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type 230 301 INTEGER , OPTIONAL, INTENT(OUT) :: begin 231 302 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) 303 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 304 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 232 305 INTEGER , OPTIONAL, INTENT(OUT) :: data_begin 233 306 INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:) 234 307 INTEGER , OPTIONAL, INTENT(OUT) :: data_n 308 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name 309 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula 310 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds 311 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term 312 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds 235 313 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 236 314 INTEGER , OPTIONAL, INTENT(OUT) :: index(:) … … 252 330 (axisgroup_id,axisgroup_hdl) 253 331 CALL xios(get_axisgroup_attr_hdl_) & 254 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 255 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 256 , value ) 332 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, 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 & 335 , unit, value ) 257 336 258 337 END SUBROUTINE xios(get_axisgroup_attr) 259 338 260 339 SUBROUTINE xios(get_axisgroup_attr_hdl) & 261 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 262 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 263 , value ) 340 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, 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 & 343 , unit, value ) 264 344 265 345 IMPLICIT NONE 266 346 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 267 347 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 348 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type 268 349 INTEGER , OPTIONAL, INTENT(OUT) :: begin 269 350 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) 351 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 352 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 270 353 INTEGER , OPTIONAL, INTENT(OUT) :: data_begin 271 354 INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:) 272 355 INTEGER , OPTIONAL, INTENT(OUT) :: data_n 356 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name 357 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula 358 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds 359 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term 360 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds 273 361 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 274 362 INTEGER , OPTIONAL, INTENT(OUT) :: index(:) … … 288 376 289 377 CALL xios(get_axisgroup_attr_hdl_) & 290 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 291 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 292 , value ) 378 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, 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 & 381 , unit, value ) 293 382 294 383 END SUBROUTINE xios(get_axisgroup_attr_hdl) 295 384 296 385 SUBROUTINE xios(get_axisgroup_attr_hdl_) & 297 ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_ & 298 , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_ & 299 , unit_, value_ ) 386 ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_ & 387 , data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ & 388 , group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_ & 389 , positive_, prec_, standard_name_, unit_, value_ ) 300 390 301 391 IMPLICIT NONE 302 392 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 303 393 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 394 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_ 304 395 INTEGER , OPTIONAL, INTENT(OUT) :: begin_ 305 396 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:) 397 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_ 398 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 306 399 INTEGER , OPTIONAL, INTENT(OUT) :: data_begin_ 307 400 INTEGER , OPTIONAL, INTENT(OUT) :: data_index_(:) 308 401 INTEGER , OPTIONAL, INTENT(OUT) :: data_n_ 402 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name_ 403 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_ 404 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds_ 405 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_ 406 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds_ 309 407 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 310 408 INTEGER , OPTIONAL, INTENT(OUT) :: index_(:) … … 328 426 ENDIF 329 427 428 IF (PRESENT(axis_type_)) THEN 429 CALL cxios_get_axisgroup_axis_type & 430 (axisgroup_hdl%daddr, axis_type_, len(axis_type_)) 431 ENDIF 432 330 433 IF (PRESENT(begin_)) THEN 331 434 CALL cxios_get_axisgroup_begin & … … 338 441 ENDIF 339 442 443 IF (PRESENT(bounds_name_)) THEN 444 CALL cxios_get_axisgroup_bounds_name & 445 (axisgroup_hdl%daddr, bounds_name_, len(bounds_name_)) 446 ENDIF 447 448 IF (PRESENT(comment_)) THEN 449 CALL cxios_get_axisgroup_comment & 450 (axisgroup_hdl%daddr, comment_, len(comment_)) 451 ENDIF 452 340 453 IF (PRESENT(data_begin_)) THEN 341 454 CALL cxios_get_axisgroup_data_begin & … … 351 464 CALL cxios_get_axisgroup_data_n & 352 465 (axisgroup_hdl%daddr, data_n_) 466 ENDIF 467 468 IF (PRESENT(dim_name_)) THEN 469 CALL cxios_get_axisgroup_dim_name & 470 (axisgroup_hdl%daddr, dim_name_, len(dim_name_)) 471 ENDIF 472 473 IF (PRESENT(formula_)) THEN 474 CALL cxios_get_axisgroup_formula & 475 (axisgroup_hdl%daddr, formula_, len(formula_)) 476 ENDIF 477 478 IF (PRESENT(formula_bounds_)) THEN 479 CALL cxios_get_axisgroup_formula_bounds & 480 (axisgroup_hdl%daddr, formula_bounds_, len(formula_bounds_)) 481 ENDIF 482 483 IF (PRESENT(formula_term_)) THEN 484 CALL cxios_get_axisgroup_formula_term & 485 (axisgroup_hdl%daddr, formula_term_, len(formula_term_)) 486 ENDIF 487 488 IF (PRESENT(formula_term_bounds_)) THEN 489 CALL cxios_get_axisgroup_formula_term_bounds & 490 (axisgroup_hdl%daddr, formula_term_bounds_, len(formula_term_bounds_)) 353 491 ENDIF 354 492 … … 428 566 429 567 SUBROUTINE xios(is_defined_axisgroup_attr) & 430 ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 431 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 432 , value ) 568 ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, 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 & 571 , unit, value ) 433 572 434 573 IMPLICIT NONE … … 437 576 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 438 577 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 578 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type 579 LOGICAL(KIND=C_BOOL) :: axis_type_tmp 439 580 LOGICAL, OPTIONAL, INTENT(OUT) :: begin 440 581 LOGICAL(KIND=C_BOOL) :: begin_tmp 441 582 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds 442 583 LOGICAL(KIND=C_BOOL) :: bounds_tmp 584 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 585 LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 586 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 587 LOGICAL(KIND=C_BOOL) :: comment_tmp 443 588 LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin 444 589 LOGICAL(KIND=C_BOOL) :: data_begin_tmp … … 447 592 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n 448 593 LOGICAL(KIND=C_BOOL) :: data_n_tmp 594 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name 595 LOGICAL(KIND=C_BOOL) :: dim_name_tmp 596 LOGICAL, OPTIONAL, INTENT(OUT) :: formula 597 LOGICAL(KIND=C_BOOL) :: formula_tmp 598 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds 599 LOGICAL(KIND=C_BOOL) :: formula_bounds_tmp 600 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term 601 LOGICAL(KIND=C_BOOL) :: formula_term_tmp 602 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds 603 LOGICAL(KIND=C_BOOL) :: formula_term_bounds_tmp 449 604 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 450 605 LOGICAL(KIND=C_BOOL) :: group_ref_tmp … … 479 634 (axisgroup_id,axisgroup_hdl) 480 635 CALL xios(is_defined_axisgroup_attr_hdl_) & 481 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 482 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 483 , value ) 636 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, 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 & 639 , unit, value ) 484 640 485 641 END SUBROUTINE xios(is_defined_axisgroup_attr) 486 642 487 643 SUBROUTINE xios(is_defined_axisgroup_attr_hdl) & 488 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 489 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 490 , value ) 644 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, 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 & 647 , unit, value ) 491 648 492 649 IMPLICIT NONE … … 494 651 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 495 652 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 653 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type 654 LOGICAL(KIND=C_BOOL) :: axis_type_tmp 496 655 LOGICAL, OPTIONAL, INTENT(OUT) :: begin 497 656 LOGICAL(KIND=C_BOOL) :: begin_tmp 498 657 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds 499 658 LOGICAL(KIND=C_BOOL) :: bounds_tmp 659 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 660 LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 661 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 662 LOGICAL(KIND=C_BOOL) :: comment_tmp 500 663 LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin 501 664 LOGICAL(KIND=C_BOOL) :: data_begin_tmp … … 504 667 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n 505 668 LOGICAL(KIND=C_BOOL) :: data_n_tmp 669 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name 670 LOGICAL(KIND=C_BOOL) :: dim_name_tmp 671 LOGICAL, OPTIONAL, INTENT(OUT) :: formula 672 LOGICAL(KIND=C_BOOL) :: formula_tmp 673 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds 674 LOGICAL(KIND=C_BOOL) :: formula_bounds_tmp 675 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term 676 LOGICAL(KIND=C_BOOL) :: formula_term_tmp 677 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds 678 LOGICAL(KIND=C_BOOL) :: formula_term_bounds_tmp 506 679 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 507 680 LOGICAL(KIND=C_BOOL) :: group_ref_tmp … … 534 707 535 708 CALL xios(is_defined_axisgroup_attr_hdl_) & 536 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 537 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 538 , value ) 709 ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, 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 & 712 , unit, value ) 539 713 540 714 END SUBROUTINE xios(is_defined_axisgroup_attr_hdl) 541 715 542 716 SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) & 543 ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_ & 544 , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_ & 545 , unit_, value_ ) 717 ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_ & 718 , data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ & 719 , group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_ & 720 , positive_, prec_, standard_name_, unit_, value_ ) 546 721 547 722 IMPLICIT NONE … … 549 724 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 550 725 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 726 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_ 727 LOGICAL(KIND=C_BOOL) :: axis_type__tmp 551 728 LOGICAL, OPTIONAL, INTENT(OUT) :: begin_ 552 729 LOGICAL(KIND=C_BOOL) :: begin__tmp 553 730 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_ 554 731 LOGICAL(KIND=C_BOOL) :: bounds__tmp 732 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_ 733 LOGICAL(KIND=C_BOOL) :: bounds_name__tmp 734 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 735 LOGICAL(KIND=C_BOOL) :: comment__tmp 555 736 LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_ 556 737 LOGICAL(KIND=C_BOOL) :: data_begin__tmp … … 559 740 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_ 560 741 LOGICAL(KIND=C_BOOL) :: data_n__tmp 742 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name_ 743 LOGICAL(KIND=C_BOOL) :: dim_name__tmp 744 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_ 745 LOGICAL(KIND=C_BOOL) :: formula__tmp 746 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds_ 747 LOGICAL(KIND=C_BOOL) :: formula_bounds__tmp 748 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_ 749 LOGICAL(KIND=C_BOOL) :: formula_term__tmp 750 LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds_ 751 LOGICAL(KIND=C_BOOL) :: formula_term_bounds__tmp 561 752 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 562 753 LOGICAL(KIND=C_BOOL) :: group_ref__tmp … … 594 785 ENDIF 595 786 787 IF (PRESENT(axis_type_)) THEN 788 axis_type__tmp = cxios_is_defined_axisgroup_axis_type & 789 (axisgroup_hdl%daddr) 790 axis_type_ = axis_type__tmp 791 ENDIF 792 596 793 IF (PRESENT(begin_)) THEN 597 794 begin__tmp = cxios_is_defined_axisgroup_begin & … … 606 803 ENDIF 607 804 805 IF (PRESENT(bounds_name_)) THEN 806 bounds_name__tmp = cxios_is_defined_axisgroup_bounds_name & 807 (axisgroup_hdl%daddr) 808 bounds_name_ = bounds_name__tmp 809 ENDIF 810 811 IF (PRESENT(comment_)) THEN 812 comment__tmp = cxios_is_defined_axisgroup_comment & 813 (axisgroup_hdl%daddr) 814 comment_ = comment__tmp 815 ENDIF 816 608 817 IF (PRESENT(data_begin_)) THEN 609 818 data_begin__tmp = cxios_is_defined_axisgroup_data_begin & … … 624 833 ENDIF 625 834 835 IF (PRESENT(dim_name_)) THEN 836 dim_name__tmp = cxios_is_defined_axisgroup_dim_name & 837 (axisgroup_hdl%daddr) 838 dim_name_ = dim_name__tmp 839 ENDIF 840 841 IF (PRESENT(formula_)) THEN 842 formula__tmp = cxios_is_defined_axisgroup_formula & 843 (axisgroup_hdl%daddr) 844 formula_ = formula__tmp 845 ENDIF 846 847 IF (PRESENT(formula_bounds_)) THEN 848 formula_bounds__tmp = cxios_is_defined_axisgroup_formula_bounds & 849 (axisgroup_hdl%daddr) 850 formula_bounds_ = formula_bounds__tmp 851 ENDIF 852 853 IF (PRESENT(formula_term_)) THEN 854 formula_term__tmp = cxios_is_defined_axisgroup_formula_term & 855 (axisgroup_hdl%daddr) 856 formula_term_ = formula_term__tmp 857 ENDIF 858 859 IF (PRESENT(formula_term_bounds_)) THEN 860 formula_term_bounds__tmp = cxios_is_defined_axisgroup_formula_term_bounds & 861 (axisgroup_hdl%daddr) 862 formula_term_bounds_ = formula_term_bounds__tmp 863 ENDIF 864 626 865 IF (PRESENT(group_ref_)) THEN 627 866 group_ref__tmp = cxios_is_defined_axisgroup_group_ref & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/icalendar_wrapper_attr.F90
r966 r1492 12 12 13 13 SUBROUTINE xios(set_calendar_wrapper_attr) & 14 ( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &14 ( calendar_wrapper_id, comment, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 15 15 , month_lengths, start_date, time_origin, timestep, type, year_length ) 16 16 … … 18 18 TYPE(txios(calendar_wrapper)) :: calendar_wrapper_hdl 19 19 CHARACTER(LEN=*), INTENT(IN) ::calendar_wrapper_id 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 20 21 INTEGER , OPTIONAL, INTENT(IN) :: day_length 21 22 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift … … 32 33 (calendar_wrapper_id,calendar_wrapper_hdl) 33 34 CALL xios(set_calendar_wrapper_attr_hdl_) & 34 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &35 ( calendar_wrapper_hdl, comment, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 35 36 , month_lengths, start_date, time_origin, timestep, type, year_length ) 36 37 … … 38 39 39 40 SUBROUTINE xios(set_calendar_wrapper_attr_hdl) & 40 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 41 , month_lengths, start_date, time_origin, timestep, type, year_length ) 42 43 IMPLICIT NONE 44 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 41 ( calendar_wrapper_hdl, comment, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 42 , month_lengths, start_date, time_origin, timestep, type, year_length ) 43 44 IMPLICIT NONE 45 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 46 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 45 47 INTEGER , OPTIONAL, INTENT(IN) :: day_length 46 48 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift … … 55 57 56 58 CALL xios(set_calendar_wrapper_attr_hdl_) & 57 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &59 ( calendar_wrapper_hdl, comment, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 58 60 , month_lengths, start_date, time_origin, timestep, type, year_length ) 59 61 … … 61 63 62 64 SUBROUTINE xios(set_calendar_wrapper_attr_hdl_) & 63 ( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ &65 ( calendar_wrapper_hdl, comment_, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ & 64 66 , month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ ) 65 67 66 68 IMPLICIT NONE 67 69 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 70 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 68 71 INTEGER , OPTIONAL, INTENT(IN) :: day_length_ 69 72 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_ … … 77 80 INTEGER , OPTIONAL, INTENT(IN) :: year_length_ 78 81 82 IF (PRESENT(comment_)) THEN 83 CALL cxios_set_calendar_wrapper_comment & 84 (calendar_wrapper_hdl%daddr, comment_, len(comment_)) 85 ENDIF 86 79 87 IF (PRESENT(day_length_)) THEN 80 88 CALL cxios_set_calendar_wrapper_day_length & … … 130 138 131 139 SUBROUTINE xios(get_calendar_wrapper_attr) & 132 ( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &140 ( calendar_wrapper_id, comment, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 133 141 , month_lengths, start_date, time_origin, timestep, type, year_length ) 134 142 … … 136 144 TYPE(txios(calendar_wrapper)) :: calendar_wrapper_hdl 137 145 CHARACTER(LEN=*), INTENT(IN) ::calendar_wrapper_id 146 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 138 147 INTEGER , OPTIONAL, INTENT(OUT) :: day_length 139 148 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift … … 150 159 (calendar_wrapper_id,calendar_wrapper_hdl) 151 160 CALL xios(get_calendar_wrapper_attr_hdl_) & 152 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &161 ( calendar_wrapper_hdl, comment, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 153 162 , month_lengths, start_date, time_origin, timestep, type, year_length ) 154 163 … … 156 165 157 166 SUBROUTINE xios(get_calendar_wrapper_attr_hdl) & 158 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 159 , month_lengths, start_date, time_origin, timestep, type, year_length ) 160 161 IMPLICIT NONE 162 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 167 ( calendar_wrapper_hdl, comment, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 168 , month_lengths, start_date, time_origin, timestep, type, year_length ) 169 170 IMPLICIT NONE 171 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 172 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 163 173 INTEGER , OPTIONAL, INTENT(OUT) :: day_length 164 174 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift … … 173 183 174 184 CALL xios(get_calendar_wrapper_attr_hdl_) & 175 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &185 ( calendar_wrapper_hdl, comment, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 176 186 , month_lengths, start_date, time_origin, timestep, type, year_length ) 177 187 … … 179 189 180 190 SUBROUTINE xios(get_calendar_wrapper_attr_hdl_) & 181 ( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ &191 ( calendar_wrapper_hdl, comment_, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ & 182 192 , month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ ) 183 193 184 194 IMPLICIT NONE 185 195 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 196 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 186 197 INTEGER , OPTIONAL, INTENT(OUT) :: day_length_ 187 198 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_ … … 195 206 INTEGER , OPTIONAL, INTENT(OUT) :: year_length_ 196 207 208 IF (PRESENT(comment_)) THEN 209 CALL cxios_get_calendar_wrapper_comment & 210 (calendar_wrapper_hdl%daddr, comment_, len(comment_)) 211 ENDIF 212 197 213 IF (PRESENT(day_length_)) THEN 198 214 CALL cxios_get_calendar_wrapper_day_length & … … 248 264 249 265 SUBROUTINE xios(is_defined_calendar_wrapper_attr) & 250 ( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &266 ( calendar_wrapper_id, comment, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 251 267 , month_lengths, start_date, time_origin, timestep, type, year_length ) 252 268 … … 254 270 TYPE(txios(calendar_wrapper)) :: calendar_wrapper_hdl 255 271 CHARACTER(LEN=*), INTENT(IN) ::calendar_wrapper_id 272 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 273 LOGICAL(KIND=C_BOOL) :: comment_tmp 256 274 LOGICAL, OPTIONAL, INTENT(OUT) :: day_length 257 275 LOGICAL(KIND=C_BOOL) :: day_length_tmp … … 278 296 (calendar_wrapper_id,calendar_wrapper_hdl) 279 297 CALL xios(is_defined_calendar_wrapper_attr_hdl_) & 280 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &298 ( calendar_wrapper_hdl, comment, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 281 299 , month_lengths, start_date, time_origin, timestep, type, year_length ) 282 300 … … 284 302 285 303 SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl) & 286 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 287 , month_lengths, start_date, time_origin, timestep, type, year_length ) 288 289 IMPLICIT NONE 290 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 304 ( calendar_wrapper_hdl, comment, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 305 , month_lengths, start_date, time_origin, timestep, type, year_length ) 306 307 IMPLICIT NONE 308 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 309 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 310 LOGICAL(KIND=C_BOOL) :: comment_tmp 291 311 LOGICAL, OPTIONAL, INTENT(OUT) :: day_length 292 312 LOGICAL(KIND=C_BOOL) :: day_length_tmp … … 311 331 312 332 CALL xios(is_defined_calendar_wrapper_attr_hdl_) & 313 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &333 ( calendar_wrapper_hdl, comment, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 314 334 , month_lengths, start_date, time_origin, timestep, type, year_length ) 315 335 … … 317 337 318 338 SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl_) & 319 ( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ &339 ( calendar_wrapper_hdl, comment_, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ & 320 340 , month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ ) 321 341 322 342 IMPLICIT NONE 323 343 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 344 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 345 LOGICAL(KIND=C_BOOL) :: comment__tmp 324 346 LOGICAL, OPTIONAL, INTENT(OUT) :: day_length_ 325 347 LOGICAL(KIND=C_BOOL) :: day_length__tmp … … 343 365 LOGICAL(KIND=C_BOOL) :: year_length__tmp 344 366 367 IF (PRESENT(comment_)) THEN 368 comment__tmp = cxios_is_defined_calendar_wrapper_comment & 369 (calendar_wrapper_hdl%daddr) 370 comment_ = comment__tmp 371 ENDIF 372 345 373 IF (PRESENT(day_length_)) THEN 346 374 day_length__tmp = cxios_is_defined_calendar_wrapper_day_length & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/idomain_attr.F90
r1158 r1492 12 12 13 13 SUBROUTINE xios(set_domain_attr) & 14 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 15 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 16 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 17 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 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, standard_name, type ) 18 19 19 20 IMPLICIT NONE … … 23 24 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 24 25 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name 25 27 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:) 26 28 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 27 31 INTEGER , OPTIONAL, INTENT(IN) :: data_dim 28 32 INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:) … … 32 36 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 33 37 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 38 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name 39 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name 34 40 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 35 41 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:) … … 37 43 INTEGER , OPTIONAL, INTENT(IN) :: j_index(:) 38 44 INTEGER , OPTIONAL, INTENT(IN) :: jbegin 45 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name 39 46 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:) 40 47 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:) 48 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name 41 49 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 42 50 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:) … … 59 67 (domain_id,domain_hdl) 60 68 CALL xios(set_domain_attr_hdl_) & 61 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 62 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 63 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 64 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 69 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 70 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 71 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 72 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 73 , nj, nj_glo, nvertex, prec, standard_name, type ) 65 74 66 75 END SUBROUTINE xios(set_domain_attr) 67 76 68 77 SUBROUTINE xios(set_domain_attr_hdl) & 69 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 70 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 71 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 72 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 78 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 79 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 80 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 81 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 82 , nj, nj_glo, nvertex, prec, standard_name, type ) 73 83 74 84 IMPLICIT NONE … … 77 87 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 78 88 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) 89 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name 79 90 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:) 80 91 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 92 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 93 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 81 94 INTEGER , OPTIONAL, INTENT(IN) :: data_dim 82 95 INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:) … … 86 99 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 87 100 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 101 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name 102 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name 88 103 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 89 104 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:) … … 91 106 INTEGER , OPTIONAL, INTENT(IN) :: j_index(:) 92 107 INTEGER , OPTIONAL, INTENT(IN) :: jbegin 108 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name 93 109 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:) 94 110 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:) 111 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name 95 112 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 96 113 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:) … … 111 128 112 129 CALL xios(set_domain_attr_hdl_) & 113 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 114 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 115 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 116 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 130 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 131 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 132 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 133 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 134 , nj, nj_glo, nvertex, prec, standard_name, type ) 117 135 118 136 END SUBROUTINE xios(set_domain_attr_hdl) 119 137 120 138 SUBROUTINE xios(set_domain_attr_hdl_) & 121 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_l on_1d_, bounds_lon_2d_, data_dim_ &122 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ &123 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ &124 , l onvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ &125 , type_ )139 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ & 140 , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ & 141 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ & 142 , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ & 143 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ ) 126 144 127 145 IMPLICIT NONE … … 130 148 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:) 131 149 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:) 150 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name_ 132 151 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:) 133 152 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:) 153 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_ 154 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 134 155 INTEGER , OPTIONAL, INTENT(IN) :: data_dim_ 135 156 INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:) … … 139 160 INTEGER , OPTIONAL, INTENT(IN) :: data_ni_ 140 161 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ 162 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name_ 163 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name_ 141 164 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 142 165 INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:) … … 144 167 INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:) 145 168 INTEGER , OPTIONAL, INTENT(IN) :: jbegin_ 169 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name_ 146 170 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:) 147 171 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:) 172 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name_ 148 173 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 149 174 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:) … … 178 203 ENDIF 179 204 205 IF (PRESENT(bounds_lat_name_)) THEN 206 CALL cxios_set_domain_bounds_lat_name & 207 (domain_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_)) 208 ENDIF 209 180 210 IF (PRESENT(bounds_lon_1d_)) THEN 181 211 CALL cxios_set_domain_bounds_lon_1d & … … 188 218 ENDIF 189 219 220 IF (PRESENT(bounds_lon_name_)) THEN 221 CALL cxios_set_domain_bounds_lon_name & 222 (domain_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 223 ENDIF 224 225 IF (PRESENT(comment_)) THEN 226 CALL cxios_set_domain_comment & 227 (domain_hdl%daddr, comment_, len(comment_)) 228 ENDIF 229 190 230 IF (PRESENT(data_dim_)) THEN 191 231 CALL cxios_set_domain_data_dim & … … 223 263 ENDIF 224 264 265 IF (PRESENT(dim_i_name_)) THEN 266 CALL cxios_set_domain_dim_i_name & 267 (domain_hdl%daddr, dim_i_name_, len(dim_i_name_)) 268 ENDIF 269 270 IF (PRESENT(dim_j_name_)) THEN 271 CALL cxios_set_domain_dim_j_name & 272 (domain_hdl%daddr, dim_j_name_, len(dim_j_name_)) 273 ENDIF 274 225 275 IF (PRESENT(domain_ref_)) THEN 226 276 CALL cxios_set_domain_domain_ref & … … 248 298 ENDIF 249 299 300 IF (PRESENT(lat_name_)) THEN 301 CALL cxios_set_domain_lat_name & 302 (domain_hdl%daddr, lat_name_, len(lat_name_)) 303 ENDIF 304 250 305 IF (PRESENT(latvalue_1d_)) THEN 251 306 CALL cxios_set_domain_latvalue_1d & … … 256 311 CALL cxios_set_domain_latvalue_2d & 257 312 (domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 313 ENDIF 314 315 IF (PRESENT(lon_name_)) THEN 316 CALL cxios_set_domain_lon_name & 317 (domain_hdl%daddr, lon_name_, len(lon_name_)) 258 318 ENDIF 259 319 … … 335 395 336 396 SUBROUTINE xios(get_domain_attr) & 337 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 338 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 339 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 340 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 397 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 398 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 399 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 400 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 401 , nj, nj_glo, nvertex, prec, standard_name, type ) 341 402 342 403 IMPLICIT NONE … … 346 407 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 347 408 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) 409 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name 348 410 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:) 349 411 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 412 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 413 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 350 414 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim 351 415 INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:) … … 355 419 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 356 420 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 421 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name 422 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name 357 423 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 358 424 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:) … … 360 426 INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:) 361 427 INTEGER , OPTIONAL, INTENT(OUT) :: jbegin 428 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name 362 429 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:) 363 430 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:) 431 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name 364 432 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 365 433 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:) … … 382 450 (domain_id,domain_hdl) 383 451 CALL xios(get_domain_attr_hdl_) & 384 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 385 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 386 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 387 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 452 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 453 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 454 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 455 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 456 , nj, nj_glo, nvertex, prec, standard_name, type ) 388 457 389 458 END SUBROUTINE xios(get_domain_attr) 390 459 391 460 SUBROUTINE xios(get_domain_attr_hdl) & 392 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 393 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 394 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 395 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 461 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 462 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 463 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 464 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 465 , nj, nj_glo, nvertex, prec, standard_name, type ) 396 466 397 467 IMPLICIT NONE … … 400 470 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 401 471 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) 472 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name 402 473 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:) 403 474 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 475 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 476 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 404 477 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim 405 478 INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:) … … 409 482 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 410 483 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 484 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name 485 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name 411 486 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 412 487 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:) … … 414 489 INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:) 415 490 INTEGER , OPTIONAL, INTENT(OUT) :: jbegin 491 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name 416 492 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:) 417 493 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:) 494 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name 418 495 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 419 496 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:) … … 434 511 435 512 CALL xios(get_domain_attr_hdl_) & 436 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 437 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 438 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 439 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 513 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 514 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 515 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 516 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 517 , nj, nj_glo, nvertex, prec, standard_name, type ) 440 518 441 519 END SUBROUTINE xios(get_domain_attr_hdl) 442 520 443 521 SUBROUTINE xios(get_domain_attr_hdl_) & 444 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_l on_1d_, bounds_lon_2d_, data_dim_ &445 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ &446 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ &447 , l onvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ &448 , type_ )522 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ & 523 , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ & 524 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ & 525 , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ & 526 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ ) 449 527 450 528 IMPLICIT NONE … … 453 531 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:) 454 532 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:) 533 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name_ 455 534 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:) 456 535 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:) 536 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 537 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 457 538 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_ 458 539 INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:) … … 462 543 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_ 463 544 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ 545 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name_ 546 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name_ 464 547 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 465 548 INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:) … … 467 550 INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:) 468 551 INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_ 552 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name_ 469 553 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:) 470 554 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:) 555 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name_ 471 556 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 472 557 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:) … … 501 586 ENDIF 502 587 588 IF (PRESENT(bounds_lat_name_)) THEN 589 CALL cxios_get_domain_bounds_lat_name & 590 (domain_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_)) 591 ENDIF 592 503 593 IF (PRESENT(bounds_lon_1d_)) THEN 504 594 CALL cxios_get_domain_bounds_lon_1d & … … 511 601 ENDIF 512 602 603 IF (PRESENT(bounds_lon_name_)) THEN 604 CALL cxios_get_domain_bounds_lon_name & 605 (domain_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 606 ENDIF 607 608 IF (PRESENT(comment_)) THEN 609 CALL cxios_get_domain_comment & 610 (domain_hdl%daddr, comment_, len(comment_)) 611 ENDIF 612 513 613 IF (PRESENT(data_dim_)) THEN 514 614 CALL cxios_get_domain_data_dim & … … 546 646 ENDIF 547 647 648 IF (PRESENT(dim_i_name_)) THEN 649 CALL cxios_get_domain_dim_i_name & 650 (domain_hdl%daddr, dim_i_name_, len(dim_i_name_)) 651 ENDIF 652 653 IF (PRESENT(dim_j_name_)) THEN 654 CALL cxios_get_domain_dim_j_name & 655 (domain_hdl%daddr, dim_j_name_, len(dim_j_name_)) 656 ENDIF 657 548 658 IF (PRESENT(domain_ref_)) THEN 549 659 CALL cxios_get_domain_domain_ref & … … 571 681 ENDIF 572 682 683 IF (PRESENT(lat_name_)) THEN 684 CALL cxios_get_domain_lat_name & 685 (domain_hdl%daddr, lat_name_, len(lat_name_)) 686 ENDIF 687 573 688 IF (PRESENT(latvalue_1d_)) THEN 574 689 CALL cxios_get_domain_latvalue_1d & … … 579 694 CALL cxios_get_domain_latvalue_2d & 580 695 (domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 696 ENDIF 697 698 IF (PRESENT(lon_name_)) THEN 699 CALL cxios_get_domain_lon_name & 700 (domain_hdl%daddr, lon_name_, len(lon_name_)) 581 701 ENDIF 582 702 … … 658 778 659 779 SUBROUTINE xios(is_defined_domain_attr) & 660 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 661 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 662 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 663 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 780 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 781 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 782 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 783 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 784 , nj, nj_glo, nvertex, prec, standard_name, type ) 664 785 665 786 IMPLICIT NONE … … 672 793 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d 673 794 LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp 795 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name 796 LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp 674 797 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d 675 798 LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp 676 799 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d 677 800 LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp 801 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 802 LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 803 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 804 LOGICAL(KIND=C_BOOL) :: comment_tmp 678 805 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 679 806 LOGICAL(KIND=C_BOOL) :: data_dim_tmp … … 690 817 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 691 818 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 819 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name 820 LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp 821 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name 822 LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp 692 823 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 693 824 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 700 831 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 701 832 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 833 LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name 834 LOGICAL(KIND=C_BOOL) :: lat_name_tmp 702 835 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d 703 836 LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp 704 837 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d 705 838 LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp 839 LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name 840 LOGICAL(KIND=C_BOOL) :: lon_name_tmp 706 841 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 707 842 LOGICAL(KIND=C_BOOL) :: long_name_tmp … … 736 871 (domain_id,domain_hdl) 737 872 CALL xios(is_defined_domain_attr_hdl_) & 738 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 739 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 740 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 741 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 873 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 874 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 875 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 876 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 877 , nj, nj_glo, nvertex, prec, standard_name, type ) 742 878 743 879 END SUBROUTINE xios(is_defined_domain_attr) 744 880 745 881 SUBROUTINE xios(is_defined_domain_attr_hdl) & 746 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 747 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 748 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 749 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 882 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 883 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 884 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 885 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 886 , nj, nj_glo, nvertex, prec, standard_name, type ) 750 887 751 888 IMPLICIT NONE … … 757 894 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d 758 895 LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp 896 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name 897 LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp 759 898 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d 760 899 LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp 761 900 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d 762 901 LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp 902 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 903 LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 904 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 905 LOGICAL(KIND=C_BOOL) :: comment_tmp 763 906 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 764 907 LOGICAL(KIND=C_BOOL) :: data_dim_tmp … … 775 918 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 776 919 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 920 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name 921 LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp 922 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name 923 LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp 777 924 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 778 925 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 785 932 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 786 933 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 934 LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name 935 LOGICAL(KIND=C_BOOL) :: lat_name_tmp 787 936 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d 788 937 LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp 789 938 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d 790 939 LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp 940 LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name 941 LOGICAL(KIND=C_BOOL) :: lon_name_tmp 791 942 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 792 943 LOGICAL(KIND=C_BOOL) :: long_name_tmp … … 819 970 820 971 CALL xios(is_defined_domain_attr_hdl_) & 821 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 822 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 823 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 824 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 972 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 973 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 974 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 975 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 976 , nj, nj_glo, nvertex, prec, standard_name, type ) 825 977 826 978 END SUBROUTINE xios(is_defined_domain_attr_hdl) 827 979 828 980 SUBROUTINE xios(is_defined_domain_attr_hdl_) & 829 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_l on_1d_, bounds_lon_2d_, data_dim_ &830 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ &831 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ &832 , l onvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ &833 , type_ )981 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ & 982 , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ & 983 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ & 984 , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ & 985 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ ) 834 986 835 987 IMPLICIT NONE … … 841 993 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_ 842 994 LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp 995 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name_ 996 LOGICAL(KIND=C_BOOL) :: bounds_lat_name__tmp 843 997 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_ 844 998 LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp 845 999 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_ 846 1000 LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp 1001 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 1002 LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp 1003 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 1004 LOGICAL(KIND=C_BOOL) :: comment__tmp 847 1005 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_ 848 1006 LOGICAL(KIND=C_BOOL) :: data_dim__tmp … … 859 1017 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 860 1018 LOGICAL(KIND=C_BOOL) :: data_nj__tmp 1019 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name_ 1020 LOGICAL(KIND=C_BOOL) :: dim_i_name__tmp 1021 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name_ 1022 LOGICAL(KIND=C_BOOL) :: dim_j_name__tmp 861 1023 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 862 1024 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp … … 869 1031 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 870 1032 LOGICAL(KIND=C_BOOL) :: jbegin__tmp 1033 LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name_ 1034 LOGICAL(KIND=C_BOOL) :: lat_name__tmp 871 1035 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_ 872 1036 LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp 873 1037 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_ 874 1038 LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp 1039 LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name_ 1040 LOGICAL(KIND=C_BOOL) :: lon_name__tmp 875 1041 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 876 1042 LOGICAL(KIND=C_BOOL) :: long_name__tmp … … 920 1086 ENDIF 921 1087 1088 IF (PRESENT(bounds_lat_name_)) THEN 1089 bounds_lat_name__tmp = cxios_is_defined_domain_bounds_lat_name & 1090 (domain_hdl%daddr) 1091 bounds_lat_name_ = bounds_lat_name__tmp 1092 ENDIF 1093 922 1094 IF (PRESENT(bounds_lon_1d_)) THEN 923 1095 bounds_lon_1d__tmp = cxios_is_defined_domain_bounds_lon_1d & … … 932 1104 ENDIF 933 1105 1106 IF (PRESENT(bounds_lon_name_)) THEN 1107 bounds_lon_name__tmp = cxios_is_defined_domain_bounds_lon_name & 1108 (domain_hdl%daddr) 1109 bounds_lon_name_ = bounds_lon_name__tmp 1110 ENDIF 1111 1112 IF (PRESENT(comment_)) THEN 1113 comment__tmp = cxios_is_defined_domain_comment & 1114 (domain_hdl%daddr) 1115 comment_ = comment__tmp 1116 ENDIF 1117 934 1118 IF (PRESENT(data_dim_)) THEN 935 1119 data_dim__tmp = cxios_is_defined_domain_data_dim & … … 974 1158 ENDIF 975 1159 1160 IF (PRESENT(dim_i_name_)) THEN 1161 dim_i_name__tmp = cxios_is_defined_domain_dim_i_name & 1162 (domain_hdl%daddr) 1163 dim_i_name_ = dim_i_name__tmp 1164 ENDIF 1165 1166 IF (PRESENT(dim_j_name_)) THEN 1167 dim_j_name__tmp = cxios_is_defined_domain_dim_j_name & 1168 (domain_hdl%daddr) 1169 dim_j_name_ = dim_j_name__tmp 1170 ENDIF 1171 976 1172 IF (PRESENT(domain_ref_)) THEN 977 1173 domain_ref__tmp = cxios_is_defined_domain_domain_ref & … … 1004 1200 ENDIF 1005 1201 1202 IF (PRESENT(lat_name_)) THEN 1203 lat_name__tmp = cxios_is_defined_domain_lat_name & 1204 (domain_hdl%daddr) 1205 lat_name_ = lat_name__tmp 1206 ENDIF 1207 1006 1208 IF (PRESENT(latvalue_1d_)) THEN 1007 1209 latvalue_1d__tmp = cxios_is_defined_domain_latvalue_1d & … … 1016 1218 ENDIF 1017 1219 1220 IF (PRESENT(lon_name_)) THEN 1221 lon_name__tmp = cxios_is_defined_domain_lon_name & 1222 (domain_hdl%daddr) 1223 lon_name_ = lon_name__tmp 1224 ENDIF 1225 1018 1226 IF (PRESENT(long_name_)) THEN 1019 1227 long_name__tmp = cxios_is_defined_domain_long_name & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/idomaingroup_attr.F90
r1158 r1492 12 12 13 13 SUBROUTINE xios(set_domaingroup_attr) & 14 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 15 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 16 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 17 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 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, standard_name, type ) 18 19 19 20 IMPLICIT NONE … … 23 24 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 24 25 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name 25 27 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:) 26 28 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 27 31 INTEGER , OPTIONAL, INTENT(IN) :: data_dim 28 32 INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:) … … 32 36 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 33 37 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 38 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name 39 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name 34 40 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 35 41 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref … … 38 44 INTEGER , OPTIONAL, INTENT(IN) :: j_index(:) 39 45 INTEGER , OPTIONAL, INTENT(IN) :: jbegin 46 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name 40 47 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:) 41 48 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:) 49 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name 42 50 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 43 51 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:) … … 60 68 (domaingroup_id,domaingroup_hdl) 61 69 CALL xios(set_domaingroup_attr_hdl_) & 62 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 63 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 64 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 65 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 70 ( domaingroup_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, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 73 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 74 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 66 75 67 76 END SUBROUTINE xios(set_domaingroup_attr) 68 77 69 78 SUBROUTINE xios(set_domaingroup_attr_hdl) & 70 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 71 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 72 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 73 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 79 ( domaingroup_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, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 82 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 83 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 74 84 75 85 IMPLICIT NONE … … 78 88 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 79 89 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) 90 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name 80 91 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:) 81 92 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 93 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 94 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 82 95 INTEGER , OPTIONAL, INTENT(IN) :: data_dim 83 96 INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:) … … 87 100 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 88 101 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 102 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name 103 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name 89 104 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 90 105 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref … … 93 108 INTEGER , OPTIONAL, INTENT(IN) :: j_index(:) 94 109 INTEGER , OPTIONAL, INTENT(IN) :: jbegin 110 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name 95 111 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:) 96 112 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:) 113 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name 97 114 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 98 115 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:) … … 113 130 114 131 CALL xios(set_domaingroup_attr_hdl_) & 115 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 116 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 117 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 118 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 132 ( domaingroup_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, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 135 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 136 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 119 137 120 138 END SUBROUTINE xios(set_domaingroup_attr_hdl) 121 139 122 140 SUBROUTINE xios(set_domaingroup_attr_hdl_) & 123 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 124 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 125 , group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 126 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 127 , type_ ) 141 ( domaingroup_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_, group_ref_, i_index_, ibegin_, j_index_ & 144 , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ & 145 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ & 146 ) 128 147 129 148 IMPLICIT NONE … … 132 151 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:) 133 152 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:) 153 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name_ 134 154 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:) 135 155 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:) 156 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_ 157 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 136 158 INTEGER , OPTIONAL, INTENT(IN) :: data_dim_ 137 159 INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:) … … 141 163 INTEGER , OPTIONAL, INTENT(IN) :: data_ni_ 142 164 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ 165 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name_ 166 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name_ 143 167 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 144 168 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ … … 147 171 INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:) 148 172 INTEGER , OPTIONAL, INTENT(IN) :: jbegin_ 173 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name_ 149 174 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:) 150 175 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:) 176 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name_ 151 177 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 152 178 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:) … … 181 207 ENDIF 182 208 209 IF (PRESENT(bounds_lat_name_)) THEN 210 CALL cxios_set_domaingroup_bounds_lat_name & 211 (domaingroup_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_)) 212 ENDIF 213 183 214 IF (PRESENT(bounds_lon_1d_)) THEN 184 215 CALL cxios_set_domaingroup_bounds_lon_1d & … … 191 222 ENDIF 192 223 224 IF (PRESENT(bounds_lon_name_)) THEN 225 CALL cxios_set_domaingroup_bounds_lon_name & 226 (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 227 ENDIF 228 229 IF (PRESENT(comment_)) THEN 230 CALL cxios_set_domaingroup_comment & 231 (domaingroup_hdl%daddr, comment_, len(comment_)) 232 ENDIF 233 193 234 IF (PRESENT(data_dim_)) THEN 194 235 CALL cxios_set_domaingroup_data_dim & … … 226 267 ENDIF 227 268 269 IF (PRESENT(dim_i_name_)) THEN 270 CALL cxios_set_domaingroup_dim_i_name & 271 (domaingroup_hdl%daddr, dim_i_name_, len(dim_i_name_)) 272 ENDIF 273 274 IF (PRESENT(dim_j_name_)) THEN 275 CALL cxios_set_domaingroup_dim_j_name & 276 (domaingroup_hdl%daddr, dim_j_name_, len(dim_j_name_)) 277 ENDIF 278 228 279 IF (PRESENT(domain_ref_)) THEN 229 280 CALL cxios_set_domaingroup_domain_ref & … … 256 307 ENDIF 257 308 309 IF (PRESENT(lat_name_)) THEN 310 CALL cxios_set_domaingroup_lat_name & 311 (domaingroup_hdl%daddr, lat_name_, len(lat_name_)) 312 ENDIF 313 258 314 IF (PRESENT(latvalue_1d_)) THEN 259 315 CALL cxios_set_domaingroup_latvalue_1d & … … 264 320 CALL cxios_set_domaingroup_latvalue_2d & 265 321 (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 322 ENDIF 323 324 IF (PRESENT(lon_name_)) THEN 325 CALL cxios_set_domaingroup_lon_name & 326 (domaingroup_hdl%daddr, lon_name_, len(lon_name_)) 266 327 ENDIF 267 328 … … 343 404 344 405 SUBROUTINE xios(get_domaingroup_attr) & 345 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 346 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 347 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 348 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 406 ( domaingroup_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, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 409 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 410 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 349 411 350 412 IMPLICIT NONE … … 354 416 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 355 417 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) 418 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name 356 419 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:) 357 420 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 421 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 422 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 358 423 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim 359 424 INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:) … … 363 428 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 364 429 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 430 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name 431 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name 365 432 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 366 433 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref … … 369 436 INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:) 370 437 INTEGER , OPTIONAL, INTENT(OUT) :: jbegin 438 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name 371 439 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:) 372 440 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:) 441 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name 373 442 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 374 443 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:) … … 391 460 (domaingroup_id,domaingroup_hdl) 392 461 CALL xios(get_domaingroup_attr_hdl_) & 393 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 394 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 395 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 396 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 462 ( domaingroup_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, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 465 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 466 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 397 467 398 468 END SUBROUTINE xios(get_domaingroup_attr) 399 469 400 470 SUBROUTINE xios(get_domaingroup_attr_hdl) & 401 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 402 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 403 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 404 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 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, standard_name, type ) 405 476 406 477 IMPLICIT NONE … … 409 480 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 410 481 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) 482 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name 411 483 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:) 412 484 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 485 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 486 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 413 487 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim 414 488 INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:) … … 418 492 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 419 493 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 494 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name 495 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name 420 496 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 421 497 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref … … 424 500 INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:) 425 501 INTEGER , OPTIONAL, INTENT(OUT) :: jbegin 502 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name 426 503 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:) 427 504 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:) 505 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name 428 506 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 429 507 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:) … … 444 522 445 523 CALL xios(get_domaingroup_attr_hdl_) & 446 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 447 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 448 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 449 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 524 ( domaingroup_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, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 527 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 528 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 450 529 451 530 END SUBROUTINE xios(get_domaingroup_attr_hdl) 452 531 453 532 SUBROUTINE xios(get_domaingroup_attr_hdl_) & 454 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 455 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 456 , group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 457 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 458 , type_ ) 533 ( domaingroup_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_, group_ref_, i_index_, ibegin_, j_index_ & 536 , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ & 537 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ & 538 ) 459 539 460 540 IMPLICIT NONE … … 463 543 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:) 464 544 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:) 545 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name_ 465 546 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:) 466 547 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:) 548 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 549 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 467 550 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_ 468 551 INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:) … … 472 555 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_ 473 556 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ 557 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name_ 558 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name_ 474 559 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 475 560 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ … … 478 563 INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:) 479 564 INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_ 565 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name_ 480 566 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:) 481 567 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:) 568 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name_ 482 569 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 483 570 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:) … … 512 599 ENDIF 513 600 601 IF (PRESENT(bounds_lat_name_)) THEN 602 CALL cxios_get_domaingroup_bounds_lat_name & 603 (domaingroup_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_)) 604 ENDIF 605 514 606 IF (PRESENT(bounds_lon_1d_)) THEN 515 607 CALL cxios_get_domaingroup_bounds_lon_1d & … … 522 614 ENDIF 523 615 616 IF (PRESENT(bounds_lon_name_)) THEN 617 CALL cxios_get_domaingroup_bounds_lon_name & 618 (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 619 ENDIF 620 621 IF (PRESENT(comment_)) THEN 622 CALL cxios_get_domaingroup_comment & 623 (domaingroup_hdl%daddr, comment_, len(comment_)) 624 ENDIF 625 524 626 IF (PRESENT(data_dim_)) THEN 525 627 CALL cxios_get_domaingroup_data_dim & … … 557 659 ENDIF 558 660 661 IF (PRESENT(dim_i_name_)) THEN 662 CALL cxios_get_domaingroup_dim_i_name & 663 (domaingroup_hdl%daddr, dim_i_name_, len(dim_i_name_)) 664 ENDIF 665 666 IF (PRESENT(dim_j_name_)) THEN 667 CALL cxios_get_domaingroup_dim_j_name & 668 (domaingroup_hdl%daddr, dim_j_name_, len(dim_j_name_)) 669 ENDIF 670 559 671 IF (PRESENT(domain_ref_)) THEN 560 672 CALL cxios_get_domaingroup_domain_ref & … … 587 699 ENDIF 588 700 701 IF (PRESENT(lat_name_)) THEN 702 CALL cxios_get_domaingroup_lat_name & 703 (domaingroup_hdl%daddr, lat_name_, len(lat_name_)) 704 ENDIF 705 589 706 IF (PRESENT(latvalue_1d_)) THEN 590 707 CALL cxios_get_domaingroup_latvalue_1d & … … 595 712 CALL cxios_get_domaingroup_latvalue_2d & 596 713 (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 714 ENDIF 715 716 IF (PRESENT(lon_name_)) THEN 717 CALL cxios_get_domaingroup_lon_name & 718 (domaingroup_hdl%daddr, lon_name_, len(lon_name_)) 597 719 ENDIF 598 720 … … 674 796 675 797 SUBROUTINE xios(is_defined_domaingroup_attr) & 676 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 677 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 678 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 679 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 798 ( domaingroup_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, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 801 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 802 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 680 803 681 804 IMPLICIT NONE … … 688 811 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d 689 812 LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp 813 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name 814 LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp 690 815 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d 691 816 LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp 692 817 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d 693 818 LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp 819 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 820 LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 821 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 822 LOGICAL(KIND=C_BOOL) :: comment_tmp 694 823 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 695 824 LOGICAL(KIND=C_BOOL) :: data_dim_tmp … … 706 835 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 707 836 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 837 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name 838 LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp 839 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name 840 LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp 708 841 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 709 842 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 718 851 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 719 852 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 853 LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name 854 LOGICAL(KIND=C_BOOL) :: lat_name_tmp 720 855 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d 721 856 LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp 722 857 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d 723 858 LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp 859 LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name 860 LOGICAL(KIND=C_BOOL) :: lon_name_tmp 724 861 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 725 862 LOGICAL(KIND=C_BOOL) :: long_name_tmp … … 754 891 (domaingroup_id,domaingroup_hdl) 755 892 CALL xios(is_defined_domaingroup_attr_hdl_) & 756 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 757 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 758 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 759 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 893 ( domaingroup_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, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 896 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 897 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 760 898 761 899 END SUBROUTINE xios(is_defined_domaingroup_attr) 762 900 763 901 SUBROUTINE xios(is_defined_domaingroup_attr_hdl) & 764 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 765 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 766 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 767 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 902 ( domaingroup_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, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 905 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 906 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 768 907 769 908 IMPLICIT NONE … … 775 914 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d 776 915 LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp 916 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name 917 LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp 777 918 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d 778 919 LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp 779 920 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d 780 921 LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp 922 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 923 LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 924 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 925 LOGICAL(KIND=C_BOOL) :: comment_tmp 781 926 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 782 927 LOGICAL(KIND=C_BOOL) :: data_dim_tmp … … 793 938 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 794 939 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 940 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name 941 LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp 942 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name 943 LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp 795 944 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 796 945 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 805 954 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 806 955 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 956 LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name 957 LOGICAL(KIND=C_BOOL) :: lat_name_tmp 807 958 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d 808 959 LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp 809 960 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d 810 961 LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp 962 LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name 963 LOGICAL(KIND=C_BOOL) :: lon_name_tmp 811 964 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 812 965 LOGICAL(KIND=C_BOOL) :: long_name_tmp … … 839 992 840 993 CALL xios(is_defined_domaingroup_attr_hdl_) & 841 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 842 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 843 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 844 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 994 ( domaingroup_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, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 997 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 998 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 845 999 846 1000 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 847 1001 848 1002 SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) & 849 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 850 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 851 , group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 852 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 853 , type_ ) 1003 ( domaingroup_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_, group_ref_, i_index_, ibegin_, j_index_ & 1006 , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ & 1007 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ & 1008 ) 854 1009 855 1010 IMPLICIT NONE … … 861 1016 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_ 862 1017 LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp 1018 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name_ 1019 LOGICAL(KIND=C_BOOL) :: bounds_lat_name__tmp 863 1020 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_ 864 1021 LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp 865 1022 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_ 866 1023 LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp 1024 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 1025 LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp 1026 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 1027 LOGICAL(KIND=C_BOOL) :: comment__tmp 867 1028 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_ 868 1029 LOGICAL(KIND=C_BOOL) :: data_dim__tmp … … 879 1040 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 880 1041 LOGICAL(KIND=C_BOOL) :: data_nj__tmp 1042 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name_ 1043 LOGICAL(KIND=C_BOOL) :: dim_i_name__tmp 1044 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name_ 1045 LOGICAL(KIND=C_BOOL) :: dim_j_name__tmp 881 1046 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 882 1047 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp … … 891 1056 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 892 1057 LOGICAL(KIND=C_BOOL) :: jbegin__tmp 1058 LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name_ 1059 LOGICAL(KIND=C_BOOL) :: lat_name__tmp 893 1060 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_ 894 1061 LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp 895 1062 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_ 896 1063 LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp 1064 LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name_ 1065 LOGICAL(KIND=C_BOOL) :: lon_name__tmp 897 1066 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 898 1067 LOGICAL(KIND=C_BOOL) :: long_name__tmp … … 942 1111 ENDIF 943 1112 1113 IF (PRESENT(bounds_lat_name_)) THEN 1114 bounds_lat_name__tmp = cxios_is_defined_domaingroup_bounds_lat_name & 1115 (domaingroup_hdl%daddr) 1116 bounds_lat_name_ = bounds_lat_name__tmp 1117 ENDIF 1118 944 1119 IF (PRESENT(bounds_lon_1d_)) THEN 945 1120 bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d & … … 954 1129 ENDIF 955 1130 1131 IF (PRESENT(bounds_lon_name_)) THEN 1132 bounds_lon_name__tmp = cxios_is_defined_domaingroup_bounds_lon_name & 1133 (domaingroup_hdl%daddr) 1134 bounds_lon_name_ = bounds_lon_name__tmp 1135 ENDIF 1136 1137 IF (PRESENT(comment_)) THEN 1138 comment__tmp = cxios_is_defined_domaingroup_comment & 1139 (domaingroup_hdl%daddr) 1140 comment_ = comment__tmp 1141 ENDIF 1142 956 1143 IF (PRESENT(data_dim_)) THEN 957 1144 data_dim__tmp = cxios_is_defined_domaingroup_data_dim & … … 996 1183 ENDIF 997 1184 1185 IF (PRESENT(dim_i_name_)) THEN 1186 dim_i_name__tmp = cxios_is_defined_domaingroup_dim_i_name & 1187 (domaingroup_hdl%daddr) 1188 dim_i_name_ = dim_i_name__tmp 1189 ENDIF 1190 1191 IF (PRESENT(dim_j_name_)) THEN 1192 dim_j_name__tmp = cxios_is_defined_domaingroup_dim_j_name & 1193 (domaingroup_hdl%daddr) 1194 dim_j_name_ = dim_j_name__tmp 1195 ENDIF 1196 998 1197 IF (PRESENT(domain_ref_)) THEN 999 1198 domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref & … … 1032 1231 ENDIF 1033 1232 1233 IF (PRESENT(lat_name_)) THEN 1234 lat_name__tmp = cxios_is_defined_domaingroup_lat_name & 1235 (domaingroup_hdl%daddr) 1236 lat_name_ = lat_name__tmp 1237 ENDIF 1238 1034 1239 IF (PRESENT(latvalue_1d_)) THEN 1035 1240 latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d & … … 1044 1249 ENDIF 1045 1250 1251 IF (PRESENT(lon_name_)) THEN 1252 lon_name__tmp = cxios_is_defined_domaingroup_lon_name & 1253 (domaingroup_hdl%daddr) 1254 lon_name_ = lon_name__tmp 1255 ENDIF 1256 1046 1257 IF (PRESENT(long_name_)) THEN 1047 1258 long_name__tmp = cxios_is_defined_domaingroup_long_name & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ifield_attr.F90
r1201 r1492 12 12 13 13 SUBROUTINE xios(set_field_attr) & 14 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&15 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&16 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access&17 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&18 )14 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 15 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 16 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 17 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 18 , valid_max, valid_min ) 19 19 20 20 IMPLICIT NONE … … 27 27 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active 28 28 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 29 30 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 30 31 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value … … 62 63 (field_id,field_hdl) 63 64 CALL xios(set_field_attr_hdl_) & 64 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&65 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&66 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access&67 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&68 )65 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 66 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 67 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 68 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 69 , valid_max, valid_min ) 69 70 70 71 END SUBROUTINE xios(set_field_attr) 71 72 72 73 SUBROUTINE xios(set_field_attr_hdl) & 73 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&74 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&75 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access&76 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&77 )74 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 75 , compression_level, 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 ) 78 79 79 80 IMPLICIT NONE … … 85 86 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active 86 87 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 88 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 87 89 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 88 90 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value … … 118 120 119 121 CALL xios(set_field_attr_hdl_) & 120 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&121 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&122 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access&123 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&124 )122 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 123 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 124 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 125 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 126 , valid_max, valid_min ) 125 127 126 128 END SUBROUTINE xios(set_field_attr_hdl) 127 129 128 130 SUBROUTINE xios(set_field_attr_hdl_) & 129 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, com pression_level_ &130 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ &131 , freq_o p_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_ &132 , read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_ &133 , valid_max_, valid_min_ )131 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_ & 132 , compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ & 133 , freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_ & 134 , operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ & 135 , unit_, valid_max_, valid_min_ ) 134 136 135 137 IMPLICIT NONE … … 141 143 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active_ 142 144 LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 145 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 143 146 INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ 144 147 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ … … 199 202 ENDIF 200 203 204 IF (PRESENT(comment_)) THEN 205 CALL cxios_set_field_comment & 206 (field_hdl%daddr, comment_, len(comment_)) 207 ENDIF 208 201 209 IF (PRESENT(compression_level_)) THEN 202 210 CALL cxios_set_field_compression_level & … … 337 345 338 346 SUBROUTINE xios(get_field_attr) & 339 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&340 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&341 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access&342 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&343 )347 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 348 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 349 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 350 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 351 , valid_max, valid_min ) 344 352 345 353 IMPLICIT NONE … … 352 360 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active 353 361 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 362 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 354 363 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 355 364 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value … … 387 396 (field_id,field_hdl) 388 397 CALL xios(get_field_attr_hdl_) & 389 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&390 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&391 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access&392 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&393 )398 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 399 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 400 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 401 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 402 , valid_max, valid_min ) 394 403 395 404 END SUBROUTINE xios(get_field_attr) 396 405 397 406 SUBROUTINE xios(get_field_attr_hdl) & 398 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&399 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&400 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access&401 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&402 )407 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 408 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 409 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 410 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 411 , valid_max, valid_min ) 403 412 404 413 IMPLICIT NONE … … 410 419 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active 411 420 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 421 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 412 422 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 413 423 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value … … 443 453 444 454 CALL xios(get_field_attr_hdl_) & 445 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&446 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&447 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access&448 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&449 )455 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 456 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 457 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 458 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 459 , valid_max, valid_min ) 450 460 451 461 END SUBROUTINE xios(get_field_attr_hdl) 452 462 453 463 SUBROUTINE xios(get_field_attr_hdl_) & 454 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, com pression_level_ &455 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ &456 , freq_o p_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_ &457 , read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_ &458 , valid_max_, valid_min_ )464 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_ & 465 , compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ & 466 , freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_ & 467 , operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ & 468 , unit_, valid_max_, valid_min_ ) 459 469 460 470 IMPLICIT NONE … … 466 476 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active_ 467 477 LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 478 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 468 479 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ 469 480 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ … … 524 535 ENDIF 525 536 537 IF (PRESENT(comment_)) THEN 538 CALL cxios_get_field_comment & 539 (field_hdl%daddr, comment_, len(comment_)) 540 ENDIF 541 526 542 IF (PRESENT(compression_level_)) THEN 527 543 CALL cxios_get_field_compression_level & … … 662 678 663 679 SUBROUTINE xios(is_defined_field_attr) & 664 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&665 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&666 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access&667 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&668 )680 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 681 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 682 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 683 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 684 , valid_max, valid_min ) 669 685 670 686 IMPLICIT NONE … … 681 697 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 682 698 LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 699 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 700 LOGICAL(KIND=C_BOOL) :: comment_tmp 683 701 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 684 702 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 737 755 (field_id,field_hdl) 738 756 CALL xios(is_defined_field_attr_hdl_) & 739 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&740 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&741 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access&742 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&743 )757 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 758 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 759 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 760 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 761 , valid_max, valid_min ) 744 762 745 763 END SUBROUTINE xios(is_defined_field_attr) 746 764 747 765 SUBROUTINE xios(is_defined_field_attr_hdl) & 748 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&749 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&750 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access&751 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&752 )766 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 767 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 768 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 769 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 770 , valid_max, valid_min ) 753 771 754 772 IMPLICIT NONE … … 764 782 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 765 783 LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 784 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 785 LOGICAL(KIND=C_BOOL) :: comment_tmp 766 786 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 767 787 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 818 838 819 839 CALL xios(is_defined_field_attr_hdl_) & 820 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&821 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&822 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access&823 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&824 )840 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 841 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 842 , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation & 843 , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit & 844 , valid_max, valid_min ) 825 845 826 846 END SUBROUTINE xios(is_defined_field_attr_hdl) 827 847 828 848 SUBROUTINE xios(is_defined_field_attr_hdl_) & 829 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, com pression_level_ &830 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ &831 , freq_o p_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_ &832 , read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_ &833 , valid_max_, valid_min_ )849 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_ & 850 , compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ & 851 , freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_ & 852 , operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_ & 853 , unit_, valid_max_, valid_min_ ) 834 854 835 855 IMPLICIT NONE … … 845 865 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_ 846 866 LOGICAL(KIND=C_BOOL) :: check_if_active__tmp 867 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 868 LOGICAL(KIND=C_BOOL) :: comment__tmp 847 869 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 848 870 LOGICAL(KIND=C_BOOL) :: compression_level__tmp … … 928 950 ENDIF 929 951 952 IF (PRESENT(comment_)) THEN 953 comment__tmp = cxios_is_defined_field_comment & 954 (field_hdl%daddr) 955 comment_ = comment__tmp 956 ENDIF 957 930 958 IF (PRESENT(compression_level_)) THEN 931 959 compression_level__tmp = cxios_is_defined_field_compression_level & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ifieldgroup_attr.F90
r1201 r1492 12 12 13 13 SUBROUTINE xios(set_fieldgroup_attr) & 14 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&15 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&16 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access&17 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&18 )14 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 15 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 16 , freq_offset, freq_op, grid_path, grid_ref, group_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 ) 19 19 20 20 IMPLICIT NONE … … 27 27 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active 28 28 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 29 30 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 30 31 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value … … 63 64 (fieldgroup_id,fieldgroup_hdl) 64 65 CALL xios(set_fieldgroup_attr_hdl_) & 65 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&66 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&67 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access&68 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&69 )66 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 67 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 68 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name & 69 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 70 , unit, valid_max, valid_min ) 70 71 71 72 END SUBROUTINE xios(set_fieldgroup_attr) 72 73 73 74 SUBROUTINE xios(set_fieldgroup_attr_hdl) & 74 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&75 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&76 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access&77 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&78 )75 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 76 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 77 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name & 78 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 79 , unit, valid_max, valid_min ) 79 80 80 81 IMPLICIT NONE … … 86 87 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active 87 88 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 89 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 88 90 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 89 91 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value … … 120 122 121 123 CALL xios(set_fieldgroup_attr_hdl_) & 122 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&123 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&124 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access&125 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&126 )124 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 125 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 126 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name & 127 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 128 , unit, valid_max, valid_min ) 127 129 128 130 END SUBROUTINE xios(set_fieldgroup_attr_hdl) … … 130 132 SUBROUTINE xios(set_fieldgroup_attr_hdl_) & 131 133 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_ & 132 , com pression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ &133 , freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_ &134 , name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_ &135 , ts_ split_freq_, unit_, valid_max_, valid_min_ )134 , comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_ & 135 , expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_ & 136 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & 137 , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 136 138 137 139 IMPLICIT NONE … … 143 145 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active_ 144 146 LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 147 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 145 148 INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ 146 149 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ … … 202 205 ENDIF 203 206 207 IF (PRESENT(comment_)) THEN 208 CALL cxios_set_fieldgroup_comment & 209 (fieldgroup_hdl%daddr, comment_, len(comment_)) 210 ENDIF 211 204 212 IF (PRESENT(compression_level_)) THEN 205 213 CALL cxios_set_fieldgroup_compression_level & … … 345 353 346 354 SUBROUTINE xios(get_fieldgroup_attr) & 347 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&348 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&349 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access&350 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&351 )355 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 356 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 357 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name & 358 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 359 , unit, valid_max, valid_min ) 352 360 353 361 IMPLICIT NONE … … 360 368 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active 361 369 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 370 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 362 371 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 363 372 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value … … 396 405 (fieldgroup_id,fieldgroup_hdl) 397 406 CALL xios(get_fieldgroup_attr_hdl_) & 398 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&399 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&400 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access&401 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&402 )407 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 408 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 409 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name & 410 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 411 , unit, valid_max, valid_min ) 403 412 404 413 END SUBROUTINE xios(get_fieldgroup_attr) 405 414 406 415 SUBROUTINE xios(get_fieldgroup_attr_hdl) & 407 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&408 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&409 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access&410 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&411 )416 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 417 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 418 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name & 419 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 420 , unit, valid_max, valid_min ) 412 421 413 422 IMPLICIT NONE … … 419 428 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active 420 429 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 430 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 421 431 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 422 432 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value … … 453 463 454 464 CALL xios(get_fieldgroup_attr_hdl_) & 455 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&456 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&457 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access&458 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&459 )465 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 466 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 467 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name & 468 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 469 , unit, valid_max, valid_min ) 460 470 461 471 END SUBROUTINE xios(get_fieldgroup_attr_hdl) … … 463 473 SUBROUTINE xios(get_fieldgroup_attr_hdl_) & 464 474 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_ & 465 , com pression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ &466 , freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_ &467 , name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_ &468 , ts_ split_freq_, unit_, valid_max_, valid_min_ )475 , comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_ & 476 , expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_ & 477 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & 478 , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 469 479 470 480 IMPLICIT NONE … … 476 486 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active_ 477 487 LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 488 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 478 489 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ 479 490 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ … … 535 546 ENDIF 536 547 548 IF (PRESENT(comment_)) THEN 549 CALL cxios_get_fieldgroup_comment & 550 (fieldgroup_hdl%daddr, comment_, len(comment_)) 551 ENDIF 552 537 553 IF (PRESENT(compression_level_)) THEN 538 554 CALL cxios_get_fieldgroup_compression_level & … … 678 694 679 695 SUBROUTINE xios(is_defined_fieldgroup_attr) & 680 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&681 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&682 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access&683 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&684 )696 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 697 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 698 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name & 699 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 700 , unit, valid_max, valid_min ) 685 701 686 702 IMPLICIT NONE … … 697 713 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 698 714 LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 715 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 716 LOGICAL(KIND=C_BOOL) :: comment_tmp 699 717 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 700 718 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 755 773 (fieldgroup_id,fieldgroup_hdl) 756 774 CALL xios(is_defined_fieldgroup_attr_hdl_) & 757 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&758 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&759 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access&760 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&761 )775 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 776 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 777 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name & 778 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 779 , unit, valid_max, valid_min ) 762 780 763 781 END SUBROUTINE xios(is_defined_fieldgroup_attr) 764 782 765 783 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) & 766 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&767 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&768 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access&769 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&770 )784 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 785 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 786 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name & 787 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 788 , unit, valid_max, valid_min ) 771 789 772 790 IMPLICIT NONE … … 782 800 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 783 801 LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 802 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 803 LOGICAL(KIND=C_BOOL) :: comment_tmp 784 804 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 785 805 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 838 858 839 859 CALL xios(is_defined_fieldgroup_attr_hdl_) & 840 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, com pression_level&841 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op&842 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access&843 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min&844 )860 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment & 861 , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref & 862 , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name & 863 , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq & 864 , unit, valid_max, valid_min ) 845 865 846 866 END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) … … 848 868 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) & 849 869 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_ & 850 , com pression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ &851 , freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_ &852 , name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_ &853 , ts_ split_freq_, unit_, valid_max_, valid_min_ )870 , comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_ & 871 , expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_ & 872 , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_ & 873 , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 854 874 855 875 IMPLICIT NONE … … 865 885 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_ 866 886 LOGICAL(KIND=C_BOOL) :: check_if_active__tmp 887 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 888 LOGICAL(KIND=C_BOOL) :: comment__tmp 867 889 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 868 890 LOGICAL(KIND=C_BOOL) :: compression_level__tmp … … 950 972 ENDIF 951 973 974 IF (PRESENT(comment_)) THEN 975 comment__tmp = cxios_is_defined_fieldgroup_comment & 976 (fieldgroup_hdl%daddr) 977 comment_ = comment__tmp 978 ENDIF 979 952 980 IF (PRESENT(compression_level_)) THEN 953 981 compression_level__tmp = cxios_is_defined_fieldgroup_compression_level & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ifile_attr.F90
r1201 r1492 12 12 13 13 SUBROUTINE xios(set_file_attr) & 14 ( file_id, append, compression_level, convention, convention_str, cyclic, description, enabled & 15 , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 16 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 17 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 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 ) 18 19 19 20 IMPLICIT NONE … … 22 23 LOGICAL , OPTIONAL, INTENT(IN) :: append 23 24 LOGICAL (KIND=C_BOOL) :: append_tmp 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 24 26 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 25 27 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention … … 38 40 INTEGER , OPTIONAL, INTENT(IN) :: output_level 39 41 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 42 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par 43 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 40 44 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 45 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset 41 46 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq 42 47 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 48 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date 49 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_start_offset 43 50 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq 44 51 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter … … 56 63 (file_id,file_hdl) 57 64 CALL xios(set_file_attr_hdl_) & 58 ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled & 59 , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 60 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 61 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 65 ( 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 ) 62 70 63 71 END SUBROUTINE xios(set_file_attr) 64 72 65 73 SUBROUTINE xios(set_file_attr_hdl) & 66 ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled & 67 , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 68 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 69 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 74 ( 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 ) 70 79 71 80 IMPLICIT NONE … … 73 82 LOGICAL , OPTIONAL, INTENT(IN) :: append 74 83 LOGICAL (KIND=C_BOOL) :: append_tmp 84 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 75 85 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 76 86 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention … … 89 99 INTEGER , OPTIONAL, INTENT(IN) :: output_level 90 100 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 101 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par 102 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 91 103 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 104 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset 92 105 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq 93 106 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 107 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date 108 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_start_offset 94 109 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq 95 110 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter … … 105 120 106 121 CALL xios(set_file_attr_hdl_) & 107 ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled & 108 , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 109 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 110 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 122 ( 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 ) 111 127 112 128 END SUBROUTINE xios(set_file_attr_hdl) 113 129 114 130 SUBROUTINE xios(set_file_attr_hdl_) & 115 ( file_hdl, append_, com pression_level_, convention_, convention_str_, cyclic_, description_ &131 ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_ & 116 132 , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ & 117 , re cord_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ &118 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ &119 , uuid_name_ )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_ ) 120 136 121 137 IMPLICIT NONE … … 123 139 LOGICAL , OPTIONAL, INTENT(IN) :: append_ 124 140 LOGICAL (KIND=C_BOOL) :: append__tmp 141 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 125 142 INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ 126 143 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_ … … 139 156 INTEGER , OPTIONAL, INTENT(IN) :: output_level_ 140 157 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 158 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par_ 159 LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 141 160 INTEGER , OPTIONAL, INTENT(IN) :: record_offset_ 161 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset_ 142 162 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq_ 143 163 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_ 164 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date_ 165 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_start_offset_ 144 166 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq_ 145 167 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_ … … 160 182 ENDIF 161 183 184 IF (PRESENT(comment_)) THEN 185 CALL cxios_set_file_comment & 186 (file_hdl%daddr, comment_, len(comment_)) 187 ENDIF 188 162 189 IF (PRESENT(compression_level_)) THEN 163 190 CALL cxios_set_file_compression_level & … … 232 259 ENDIF 233 260 261 IF (PRESENT(read_metadata_par_)) THEN 262 read_metadata_par__tmp = read_metadata_par_ 263 CALL cxios_set_file_read_metadata_par & 264 (file_hdl%daddr, read_metadata_par__tmp) 265 ENDIF 266 234 267 IF (PRESENT(record_offset_)) THEN 235 268 CALL cxios_set_file_record_offset & … … 237 270 ENDIF 238 271 272 IF (PRESENT(split_end_offset_)) THEN 273 CALL cxios_set_file_split_end_offset & 274 (file_hdl%daddr, split_end_offset_) 275 ENDIF 276 239 277 IF (PRESENT(split_freq_)) THEN 240 278 CALL cxios_set_file_split_freq & … … 247 285 ENDIF 248 286 287 IF (PRESENT(split_last_date_)) THEN 288 CALL cxios_set_file_split_last_date & 289 (file_hdl%daddr, split_last_date_, len(split_last_date_)) 290 ENDIF 291 292 IF (PRESENT(split_start_offset_)) THEN 293 CALL cxios_set_file_split_start_offset & 294 (file_hdl%daddr, split_start_offset_) 295 ENDIF 296 249 297 IF (PRESENT(sync_freq_)) THEN 250 298 CALL cxios_set_file_sync_freq & … … 305 353 306 354 SUBROUTINE xios(get_file_attr) & 307 ( file_id, append, compression_level, convention, convention_str, cyclic, description, enabled & 308 , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 309 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 310 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 355 ( 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 ) 311 360 312 361 IMPLICIT NONE … … 315 364 LOGICAL , OPTIONAL, INTENT(OUT) :: append 316 365 LOGICAL (KIND=C_BOOL) :: append_tmp 366 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 317 367 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 318 368 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention … … 331 381 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 332 382 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 383 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par 384 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 333 385 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 386 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset 334 387 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq 335 388 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 389 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date 390 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_start_offset 336 391 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq 337 392 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter … … 349 404 (file_id,file_hdl) 350 405 CALL xios(get_file_attr_hdl_) & 351 ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled & 352 , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 353 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 354 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 406 ( 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 ) 355 411 356 412 END SUBROUTINE xios(get_file_attr) 357 413 358 414 SUBROUTINE xios(get_file_attr_hdl) & 359 ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled & 360 , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 361 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 362 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 415 ( 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 ) 363 420 364 421 IMPLICIT NONE … … 366 423 LOGICAL , OPTIONAL, INTENT(OUT) :: append 367 424 LOGICAL (KIND=C_BOOL) :: append_tmp 425 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 368 426 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 369 427 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention … … 382 440 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 383 441 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 442 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par 443 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 384 444 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 445 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset 385 446 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq 386 447 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 448 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date 449 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_start_offset 387 450 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq 388 451 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter … … 398 461 399 462 CALL xios(get_file_attr_hdl_) & 400 ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled & 401 , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 402 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 403 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 463 ( 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 ) 404 468 405 469 END SUBROUTINE xios(get_file_attr_hdl) 406 470 407 471 SUBROUTINE xios(get_file_attr_hdl_) & 408 ( file_hdl, append_, com pression_level_, convention_, convention_str_, cyclic_, description_ &472 ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_ & 409 473 , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ & 410 , re cord_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ &411 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ &412 , uuid_name_ )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_ ) 413 477 414 478 IMPLICIT NONE … … 416 480 LOGICAL , OPTIONAL, INTENT(OUT) :: append_ 417 481 LOGICAL (KIND=C_BOOL) :: append__tmp 482 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 418 483 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ 419 484 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_ … … 432 497 INTEGER , OPTIONAL, INTENT(OUT) :: output_level_ 433 498 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 499 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par_ 500 LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 434 501 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_ 502 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset_ 435 503 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq_ 436 504 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_ 505 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date_ 506 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_start_offset_ 437 507 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq_ 438 508 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_ … … 453 523 ENDIF 454 524 525 IF (PRESENT(comment_)) THEN 526 CALL cxios_get_file_comment & 527 (file_hdl%daddr, comment_, len(comment_)) 528 ENDIF 529 455 530 IF (PRESENT(compression_level_)) THEN 456 531 CALL cxios_get_file_compression_level & … … 525 600 ENDIF 526 601 602 IF (PRESENT(read_metadata_par_)) THEN 603 CALL cxios_get_file_read_metadata_par & 604 (file_hdl%daddr, read_metadata_par__tmp) 605 read_metadata_par_ = read_metadata_par__tmp 606 ENDIF 607 527 608 IF (PRESENT(record_offset_)) THEN 528 609 CALL cxios_get_file_record_offset & … … 530 611 ENDIF 531 612 613 IF (PRESENT(split_end_offset_)) THEN 614 CALL cxios_get_file_split_end_offset & 615 (file_hdl%daddr, split_end_offset_) 616 ENDIF 617 532 618 IF (PRESENT(split_freq_)) THEN 533 619 CALL cxios_get_file_split_freq & … … 540 626 ENDIF 541 627 628 IF (PRESENT(split_last_date_)) THEN 629 CALL cxios_get_file_split_last_date & 630 (file_hdl%daddr, split_last_date_, len(split_last_date_)) 631 ENDIF 632 633 IF (PRESENT(split_start_offset_)) THEN 634 CALL cxios_get_file_split_start_offset & 635 (file_hdl%daddr, split_start_offset_) 636 ENDIF 637 542 638 IF (PRESENT(sync_freq_)) THEN 543 639 CALL cxios_get_file_sync_freq & … … 598 694 599 695 SUBROUTINE xios(is_defined_file_attr) & 600 ( file_id, append, compression_level, convention, convention_str, cyclic, description, enabled & 601 , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 602 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 603 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 696 ( 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 ) 604 701 605 702 IMPLICIT NONE … … 608 705 LOGICAL, OPTIONAL, INTENT(OUT) :: append 609 706 LOGICAL(KIND=C_BOOL) :: append_tmp 707 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 708 LOGICAL(KIND=C_BOOL) :: comment_tmp 610 709 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 611 710 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 636 735 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 637 736 LOGICAL(KIND=C_BOOL) :: par_access_tmp 737 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 738 LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 638 739 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 639 740 LOGICAL(KIND=C_BOOL) :: record_offset_tmp 741 LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset 742 LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp 640 743 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 641 744 LOGICAL(KIND=C_BOOL) :: split_freq_tmp 642 745 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 643 746 LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 747 LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date 748 LOGICAL(KIND=C_BOOL) :: split_last_date_tmp 749 LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset 750 LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp 644 751 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 645 752 LOGICAL(KIND=C_BOOL) :: sync_freq_tmp … … 668 775 (file_id,file_hdl) 669 776 CALL xios(is_defined_file_attr_hdl_) & 670 ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled & 671 , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 672 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 673 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 777 ( 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 ) 674 782 675 783 END SUBROUTINE xios(is_defined_file_attr) 676 784 677 785 SUBROUTINE xios(is_defined_file_attr_hdl) & 678 ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled & 679 , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 680 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 681 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 786 ( 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 ) 682 791 683 792 IMPLICIT NONE … … 685 794 LOGICAL, OPTIONAL, INTENT(OUT) :: append 686 795 LOGICAL(KIND=C_BOOL) :: append_tmp 796 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 797 LOGICAL(KIND=C_BOOL) :: comment_tmp 687 798 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 688 799 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 713 824 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 714 825 LOGICAL(KIND=C_BOOL) :: par_access_tmp 826 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 827 LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 715 828 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 716 829 LOGICAL(KIND=C_BOOL) :: record_offset_tmp 830 LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset 831 LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp 717 832 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 718 833 LOGICAL(KIND=C_BOOL) :: split_freq_tmp 719 834 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 720 835 LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 836 LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date 837 LOGICAL(KIND=C_BOOL) :: split_last_date_tmp 838 LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset 839 LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp 721 840 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 722 841 LOGICAL(KIND=C_BOOL) :: sync_freq_tmp … … 743 862 744 863 CALL xios(is_defined_file_attr_hdl_) & 745 ( file_hdl, append, compression_level, convention, convention_str, cyclic, description, enabled & 746 , format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 747 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 748 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 864 ( 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 ) 749 869 750 870 END SUBROUTINE xios(is_defined_file_attr_hdl) 751 871 752 872 SUBROUTINE xios(is_defined_file_attr_hdl_) & 753 ( file_hdl, append_, com pression_level_, convention_, convention_str_, cyclic_, description_ &873 ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_ & 754 874 , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ & 755 , re cord_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ &756 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ &757 , uuid_name_ )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_ ) 758 878 759 879 IMPLICIT NONE … … 761 881 LOGICAL, OPTIONAL, INTENT(OUT) :: append_ 762 882 LOGICAL(KIND=C_BOOL) :: append__tmp 883 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 884 LOGICAL(KIND=C_BOOL) :: comment__tmp 763 885 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 764 886 LOGICAL(KIND=C_BOOL) :: compression_level__tmp … … 789 911 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 790 912 LOGICAL(KIND=C_BOOL) :: par_access__tmp 913 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_ 914 LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp 791 915 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ 792 916 LOGICAL(KIND=C_BOOL) :: record_offset__tmp 917 LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset_ 918 LOGICAL(KIND=C_BOOL) :: split_end_offset__tmp 793 919 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_ 794 920 LOGICAL(KIND=C_BOOL) :: split_freq__tmp 795 921 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_ 796 922 LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp 923 LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date_ 924 LOGICAL(KIND=C_BOOL) :: split_last_date__tmp 925 LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset_ 926 LOGICAL(KIND=C_BOOL) :: split_start_offset__tmp 797 927 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_ 798 928 LOGICAL(KIND=C_BOOL) :: sync_freq__tmp … … 824 954 ENDIF 825 955 956 IF (PRESENT(comment_)) THEN 957 comment__tmp = cxios_is_defined_file_comment & 958 (file_hdl%daddr) 959 comment_ = comment__tmp 960 ENDIF 961 826 962 IF (PRESENT(compression_level_)) THEN 827 963 compression_level__tmp = cxios_is_defined_file_compression_level & … … 908 1044 ENDIF 909 1045 1046 IF (PRESENT(read_metadata_par_)) THEN 1047 read_metadata_par__tmp = cxios_is_defined_file_read_metadata_par & 1048 (file_hdl%daddr) 1049 read_metadata_par_ = read_metadata_par__tmp 1050 ENDIF 1051 910 1052 IF (PRESENT(record_offset_)) THEN 911 1053 record_offset__tmp = cxios_is_defined_file_record_offset & … … 914 1056 ENDIF 915 1057 1058 IF (PRESENT(split_end_offset_)) THEN 1059 split_end_offset__tmp = cxios_is_defined_file_split_end_offset & 1060 (file_hdl%daddr) 1061 split_end_offset_ = split_end_offset__tmp 1062 ENDIF 1063 916 1064 IF (PRESENT(split_freq_)) THEN 917 1065 split_freq__tmp = cxios_is_defined_file_split_freq & … … 926 1074 ENDIF 927 1075 1076 IF (PRESENT(split_last_date_)) THEN 1077 split_last_date__tmp = cxios_is_defined_file_split_last_date & 1078 (file_hdl%daddr) 1079 split_last_date_ = split_last_date__tmp 1080 ENDIF 1081 1082 IF (PRESENT(split_start_offset_)) THEN 1083 split_start_offset__tmp = cxios_is_defined_file_split_start_offset & 1084 (file_hdl%daddr) 1085 split_start_offset_ = split_start_offset__tmp 1086 ENDIF 1087 928 1088 IF (PRESENT(sync_freq_)) THEN 929 1089 sync_freq__tmp = cxios_is_defined_file_sync_freq & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ifilegroup_attr.F90
r1201 r1492 12 12 13 13 SUBROUTINE xios(set_filegroup_attr) & 14 ( filegroup_id, append, compression_level, convention, convention_str, cyclic, description, enabled & 15 , format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 16 , record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 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 & 17 18 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 18 19 … … 22 23 LOGICAL , OPTIONAL, INTENT(IN) :: append 23 24 LOGICAL (KIND=C_BOOL) :: append_tmp 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 24 26 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 25 27 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention … … 39 41 INTEGER , OPTIONAL, INTENT(IN) :: output_level 40 42 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 43 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par 44 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 41 45 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 46 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset 42 47 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq 43 48 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 49 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date 50 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_start_offset 44 51 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq 45 52 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter … … 57 64 (filegroup_id,filegroup_hdl) 58 65 CALL xios(set_filegroup_attr_hdl_) & 59 ( filegroup_hdl, append, com pression_level, convention, convention_str, cyclic, description &66 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 60 67 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 61 , par_access, re cord_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name&62 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name&63 )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 ) 64 71 65 72 END SUBROUTINE xios(set_filegroup_attr) 66 73 67 74 SUBROUTINE xios(set_filegroup_attr_hdl) & 68 ( filegroup_hdl, append, com pression_level, convention, convention_str, cyclic, description &75 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 69 76 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 70 , par_access, re cord_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name&71 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name&72 )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 ) 73 80 74 81 IMPLICIT NONE … … 76 83 LOGICAL , OPTIONAL, INTENT(IN) :: append 77 84 LOGICAL (KIND=C_BOOL) :: append_tmp 85 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 78 86 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 79 87 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention … … 93 101 INTEGER , OPTIONAL, INTENT(IN) :: output_level 94 102 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 103 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par 104 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 95 105 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 106 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset 96 107 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq 97 108 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 109 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date 110 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_start_offset 98 111 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq 99 112 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter … … 109 122 110 123 CALL xios(set_filegroup_attr_hdl_) & 111 ( filegroup_hdl, append, com pression_level, convention, convention_str, cyclic, description &124 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 112 125 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 113 , par_access, re cord_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name&114 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name&115 )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 ) 116 129 117 130 END SUBROUTINE xios(set_filegroup_attr_hdl) 118 131 119 132 SUBROUTINE xios(set_filegroup_attr_hdl_) & 120 ( filegroup_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_ & 121 , enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_ & 122 , par_access_, record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ & 133 ( 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_ & 123 137 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ & 124 138 , uuid_name_ ) … … 128 142 LOGICAL , OPTIONAL, INTENT(IN) :: append_ 129 143 LOGICAL (KIND=C_BOOL) :: append__tmp 144 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 130 145 INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ 131 146 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_ … … 145 160 INTEGER , OPTIONAL, INTENT(IN) :: output_level_ 146 161 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 162 LOGICAL , OPTIONAL, INTENT(IN) :: read_metadata_par_ 163 LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 147 164 INTEGER , OPTIONAL, INTENT(IN) :: record_offset_ 165 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_end_offset_ 148 166 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq_ 149 167 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_ 168 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date_ 169 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_start_offset_ 150 170 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq_ 151 171 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_ … … 166 186 ENDIF 167 187 188 IF (PRESENT(comment_)) THEN 189 CALL cxios_set_filegroup_comment & 190 (filegroup_hdl%daddr, comment_, len(comment_)) 191 ENDIF 192 168 193 IF (PRESENT(compression_level_)) THEN 169 194 CALL cxios_set_filegroup_compression_level & … … 243 268 ENDIF 244 269 270 IF (PRESENT(read_metadata_par_)) THEN 271 read_metadata_par__tmp = read_metadata_par_ 272 CALL cxios_set_filegroup_read_metadata_par & 273 (filegroup_hdl%daddr, read_metadata_par__tmp) 274 ENDIF 275 245 276 IF (PRESENT(record_offset_)) THEN 246 277 CALL cxios_set_filegroup_record_offset & … … 248 279 ENDIF 249 280 281 IF (PRESENT(split_end_offset_)) THEN 282 CALL cxios_set_filegroup_split_end_offset & 283 (filegroup_hdl%daddr, split_end_offset_) 284 ENDIF 285 250 286 IF (PRESENT(split_freq_)) THEN 251 287 CALL cxios_set_filegroup_split_freq & … … 258 294 ENDIF 259 295 296 IF (PRESENT(split_last_date_)) THEN 297 CALL cxios_set_filegroup_split_last_date & 298 (filegroup_hdl%daddr, split_last_date_, len(split_last_date_)) 299 ENDIF 300 301 IF (PRESENT(split_start_offset_)) THEN 302 CALL cxios_set_filegroup_split_start_offset & 303 (filegroup_hdl%daddr, split_start_offset_) 304 ENDIF 305 260 306 IF (PRESENT(sync_freq_)) THEN 261 307 CALL cxios_set_filegroup_sync_freq & … … 316 362 317 363 SUBROUTINE xios(get_filegroup_attr) & 318 ( filegroup_id, append, compression_level, convention, convention_str, cyclic, description, enabled & 319 , format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 320 , record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 364 ( 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 & 321 368 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 322 369 … … 326 373 LOGICAL , OPTIONAL, INTENT(OUT) :: append 327 374 LOGICAL (KIND=C_BOOL) :: append_tmp 375 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 328 376 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 329 377 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention … … 343 391 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 344 392 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 393 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par 394 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 345 395 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 396 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset 346 397 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq 347 398 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 399 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date 400 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_start_offset 348 401 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq 349 402 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter … … 361 414 (filegroup_id,filegroup_hdl) 362 415 CALL xios(get_filegroup_attr_hdl_) & 363 ( filegroup_hdl, append, com pression_level, convention, convention_str, cyclic, description &416 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 364 417 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 365 , par_access, re cord_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name&366 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name&367 )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 ) 368 421 369 422 END SUBROUTINE xios(get_filegroup_attr) 370 423 371 424 SUBROUTINE xios(get_filegroup_attr_hdl) & 372 ( filegroup_hdl, append, com pression_level, convention, convention_str, cyclic, description &425 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 373 426 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 374 , par_access, re cord_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name&375 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name&376 )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 ) 377 430 378 431 IMPLICIT NONE … … 380 433 LOGICAL , OPTIONAL, INTENT(OUT) :: append 381 434 LOGICAL (KIND=C_BOOL) :: append_tmp 435 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 382 436 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 383 437 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention … … 397 451 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 398 452 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 453 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par 454 LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 399 455 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 456 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset 400 457 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq 401 458 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 459 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date 460 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_start_offset 402 461 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq 403 462 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter … … 413 472 414 473 CALL xios(get_filegroup_attr_hdl_) & 415 ( filegroup_hdl, append, com pression_level, convention, convention_str, cyclic, description &474 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 416 475 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 417 , par_access, re cord_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name&418 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name&419 )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 ) 420 479 421 480 END SUBROUTINE xios(get_filegroup_attr_hdl) 422 481 423 482 SUBROUTINE xios(get_filegroup_attr_hdl_) & 424 ( filegroup_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_ & 425 , enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_ & 426 , par_access_, record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ & 483 ( 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_ & 427 487 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ & 428 488 , uuid_name_ ) … … 432 492 LOGICAL , OPTIONAL, INTENT(OUT) :: append_ 433 493 LOGICAL (KIND=C_BOOL) :: append__tmp 494 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 434 495 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ 435 496 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_ … … 449 510 INTEGER , OPTIONAL, INTENT(OUT) :: output_level_ 450 511 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 512 LOGICAL , OPTIONAL, INTENT(OUT) :: read_metadata_par_ 513 LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 451 514 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_ 515 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_end_offset_ 452 516 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq_ 453 517 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_ 518 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date_ 519 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_start_offset_ 454 520 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq_ 455 521 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_ … … 470 536 ENDIF 471 537 538 IF (PRESENT(comment_)) THEN 539 CALL cxios_get_filegroup_comment & 540 (filegroup_hdl%daddr, comment_, len(comment_)) 541 ENDIF 542 472 543 IF (PRESENT(compression_level_)) THEN 473 544 CALL cxios_get_filegroup_compression_level & … … 547 618 ENDIF 548 619 620 IF (PRESENT(read_metadata_par_)) THEN 621 CALL cxios_get_filegroup_read_metadata_par & 622 (filegroup_hdl%daddr, read_metadata_par__tmp) 623 read_metadata_par_ = read_metadata_par__tmp 624 ENDIF 625 549 626 IF (PRESENT(record_offset_)) THEN 550 627 CALL cxios_get_filegroup_record_offset & … … 552 629 ENDIF 553 630 631 IF (PRESENT(split_end_offset_)) THEN 632 CALL cxios_get_filegroup_split_end_offset & 633 (filegroup_hdl%daddr, split_end_offset_) 634 ENDIF 635 554 636 IF (PRESENT(split_freq_)) THEN 555 637 CALL cxios_get_filegroup_split_freq & … … 562 644 ENDIF 563 645 646 IF (PRESENT(split_last_date_)) THEN 647 CALL cxios_get_filegroup_split_last_date & 648 (filegroup_hdl%daddr, split_last_date_, len(split_last_date_)) 649 ENDIF 650 651 IF (PRESENT(split_start_offset_)) THEN 652 CALL cxios_get_filegroup_split_start_offset & 653 (filegroup_hdl%daddr, split_start_offset_) 654 ENDIF 655 564 656 IF (PRESENT(sync_freq_)) THEN 565 657 CALL cxios_get_filegroup_sync_freq & … … 620 712 621 713 SUBROUTINE xios(is_defined_filegroup_attr) & 622 ( filegroup_id, append, compression_level, convention, convention_str, cyclic, description, enabled & 623 , format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access & 624 , record_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 714 ( 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 & 625 718 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 626 719 … … 630 723 LOGICAL, OPTIONAL, INTENT(OUT) :: append 631 724 LOGICAL(KIND=C_BOOL) :: append_tmp 725 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 726 LOGICAL(KIND=C_BOOL) :: comment_tmp 632 727 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 633 728 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 660 755 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 661 756 LOGICAL(KIND=C_BOOL) :: par_access_tmp 757 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 758 LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 662 759 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 663 760 LOGICAL(KIND=C_BOOL) :: record_offset_tmp 761 LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset 762 LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp 664 763 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 665 764 LOGICAL(KIND=C_BOOL) :: split_freq_tmp 666 765 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 667 766 LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 767 LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date 768 LOGICAL(KIND=C_BOOL) :: split_last_date_tmp 769 LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset 770 LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp 668 771 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 669 772 LOGICAL(KIND=C_BOOL) :: sync_freq_tmp … … 692 795 (filegroup_id,filegroup_hdl) 693 796 CALL xios(is_defined_filegroup_attr_hdl_) & 694 ( filegroup_hdl, append, com pression_level, convention, convention_str, cyclic, description &797 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 695 798 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 696 , par_access, re cord_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name&697 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name&698 )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 ) 699 802 700 803 END SUBROUTINE xios(is_defined_filegroup_attr) 701 804 702 805 SUBROUTINE xios(is_defined_filegroup_attr_hdl) & 703 ( filegroup_hdl, append, com pression_level, convention, convention_str, cyclic, description &806 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 704 807 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 705 , par_access, re cord_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name&706 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name&707 )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 ) 708 811 709 812 IMPLICIT NONE … … 711 814 LOGICAL, OPTIONAL, INTENT(OUT) :: append 712 815 LOGICAL(KIND=C_BOOL) :: append_tmp 816 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 817 LOGICAL(KIND=C_BOOL) :: comment_tmp 713 818 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 714 819 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 741 846 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 742 847 LOGICAL(KIND=C_BOOL) :: par_access_tmp 848 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 849 LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 743 850 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 744 851 LOGICAL(KIND=C_BOOL) :: record_offset_tmp 852 LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset 853 LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp 745 854 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 746 855 LOGICAL(KIND=C_BOOL) :: split_freq_tmp 747 856 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 748 857 LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 858 LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date 859 LOGICAL(KIND=C_BOOL) :: split_last_date_tmp 860 LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset 861 LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp 749 862 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 750 863 LOGICAL(KIND=C_BOOL) :: sync_freq_tmp … … 771 884 772 885 CALL xios(is_defined_filegroup_attr_hdl_) & 773 ( filegroup_hdl, append, com pression_level, convention, convention_str, cyclic, description &886 ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description & 774 887 , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level & 775 , par_access, re cord_offset, split_freq, split_freq_format, sync_freq, time_counter, time_counter_name&776 , time_stamp_format, time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name&777 )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 ) 778 891 779 892 END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 780 893 781 894 SUBROUTINE xios(is_defined_filegroup_attr_hdl_) & 782 ( filegroup_hdl, append_, compression_level_, convention_, convention_str_, cyclic_, description_ & 783 , enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_ & 784 , par_access_, record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ & 895 ( 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_ & 785 899 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ & 786 900 , uuid_name_ ) … … 790 904 LOGICAL, OPTIONAL, INTENT(OUT) :: append_ 791 905 LOGICAL(KIND=C_BOOL) :: append__tmp 906 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 907 LOGICAL(KIND=C_BOOL) :: comment__tmp 792 908 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 793 909 LOGICAL(KIND=C_BOOL) :: compression_level__tmp … … 820 936 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 821 937 LOGICAL(KIND=C_BOOL) :: par_access__tmp 938 LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_ 939 LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp 822 940 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ 823 941 LOGICAL(KIND=C_BOOL) :: record_offset__tmp 942 LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset_ 943 LOGICAL(KIND=C_BOOL) :: split_end_offset__tmp 824 944 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_ 825 945 LOGICAL(KIND=C_BOOL) :: split_freq__tmp 826 946 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_ 827 947 LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp 948 LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date_ 949 LOGICAL(KIND=C_BOOL) :: split_last_date__tmp 950 LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset_ 951 LOGICAL(KIND=C_BOOL) :: split_start_offset__tmp 828 952 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_ 829 953 LOGICAL(KIND=C_BOOL) :: sync_freq__tmp … … 855 979 ENDIF 856 980 981 IF (PRESENT(comment_)) THEN 982 comment__tmp = cxios_is_defined_filegroup_comment & 983 (filegroup_hdl%daddr) 984 comment_ = comment__tmp 985 ENDIF 986 857 987 IF (PRESENT(compression_level_)) THEN 858 988 compression_level__tmp = cxios_is_defined_filegroup_compression_level & … … 945 1075 ENDIF 946 1076 1077 IF (PRESENT(read_metadata_par_)) THEN 1078 read_metadata_par__tmp = cxios_is_defined_filegroup_read_metadata_par & 1079 (filegroup_hdl%daddr) 1080 read_metadata_par_ = read_metadata_par__tmp 1081 ENDIF 1082 947 1083 IF (PRESENT(record_offset_)) THEN 948 1084 record_offset__tmp = cxios_is_defined_filegroup_record_offset & … … 951 1087 ENDIF 952 1088 1089 IF (PRESENT(split_end_offset_)) THEN 1090 split_end_offset__tmp = cxios_is_defined_filegroup_split_end_offset & 1091 (filegroup_hdl%daddr) 1092 split_end_offset_ = split_end_offset__tmp 1093 ENDIF 1094 953 1095 IF (PRESENT(split_freq_)) THEN 954 1096 split_freq__tmp = cxios_is_defined_filegroup_split_freq & … … 963 1105 ENDIF 964 1106 1107 IF (PRESENT(split_last_date_)) THEN 1108 split_last_date__tmp = cxios_is_defined_filegroup_split_last_date & 1109 (filegroup_hdl%daddr) 1110 split_last_date_ = split_last_date__tmp 1111 ENDIF 1112 1113 IF (PRESENT(split_start_offset_)) THEN 1114 split_start_offset__tmp = cxios_is_defined_filegroup_split_start_offset & 1115 (filegroup_hdl%daddr) 1116 split_start_offset_ = split_start_offset__tmp 1117 ENDIF 1118 965 1119 IF (PRESENT(sync_freq_)) THEN 966 1120 sync_freq__tmp = cxios_is_defined_filegroup_sync_freq & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/igrid_attr.F90
r966 r1492 12 12 13 13 SUBROUTINE xios(set_grid_attr) & 14 ( grid_id, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name&15 )14 ( grid_id, comment, description, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d & 15 , mask_7d, name ) 16 16 17 17 IMPLICIT NONE 18 18 TYPE(txios(grid)) :: grid_hdl 19 19 CHARACTER(LEN=*), INTENT(IN) ::grid_id 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 20 21 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 22 LOGICAL , OPTIONAL, INTENT(IN) :: mask_0d(:) 23 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:) 21 24 LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:) 22 25 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) … … 38 41 (grid_id,grid_hdl) 39 42 CALL xios(set_grid_attr_hdl_) & 40 ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name&41 )43 ( grid_hdl, comment, description, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d & 44 , mask_7d, name ) 42 45 43 46 END SUBROUTINE xios(set_grid_attr) 44 47 45 48 SUBROUTINE xios(set_grid_attr_hdl) & 46 ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name&47 )49 ( grid_hdl, comment, description, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d & 50 , mask_7d, name ) 48 51 49 52 IMPLICIT NONE 50 53 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 54 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 51 55 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 56 LOGICAL , OPTIONAL, INTENT(IN) :: mask_0d(:) 57 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:) 52 58 LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:) 53 59 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) … … 67 73 68 74 CALL xios(set_grid_attr_hdl_) & 69 ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name&70 )75 ( grid_hdl, comment, description, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d & 76 , mask_7d, name ) 71 77 72 78 END SUBROUTINE xios(set_grid_attr_hdl) 73 79 74 80 SUBROUTINE xios(set_grid_attr_hdl_) & 75 ( grid_hdl, description_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_, mask_6d_, mask_7d_ &76 , name_ )81 ( grid_hdl, comment_, description_, mask_0d_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_ & 82 , mask_6d_, mask_7d_, name_ ) 77 83 78 84 IMPLICIT NONE 79 85 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 86 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 80 87 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ 88 LOGICAL , OPTIONAL, INTENT(IN) :: mask_0d_(:) 89 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d__tmp(:) 81 90 LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d_(:) 82 91 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:) … … 95 104 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 96 105 106 IF (PRESENT(comment_)) THEN 107 CALL cxios_set_grid_comment & 108 (grid_hdl%daddr, comment_, len(comment_)) 109 ENDIF 110 97 111 IF (PRESENT(description_)) THEN 98 112 CALL cxios_set_grid_description & 99 113 (grid_hdl%daddr, description_, len(description_)) 114 ENDIF 115 116 IF (PRESENT(mask_0d_)) THEN 117 ALLOCATE(mask_0d__tmp(SIZE(mask_0d_,1))) 118 mask_0d__tmp = mask_0d_ 119 CALL cxios_set_grid_mask_0d & 120 (grid_hdl%daddr, mask_0d__tmp, SHAPE(mask_0d_)) 100 121 ENDIF 101 122 … … 162 183 163 184 SUBROUTINE xios(get_grid_attr) & 164 ( grid_id, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name&165 )185 ( grid_id, comment, description, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d & 186 , mask_7d, name ) 166 187 167 188 IMPLICIT NONE 168 189 TYPE(txios(grid)) :: grid_hdl 169 190 CHARACTER(LEN=*), INTENT(IN) ::grid_id 191 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 170 192 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 193 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_0d(:) 194 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:) 171 195 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:) 172 196 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) … … 188 212 (grid_id,grid_hdl) 189 213 CALL xios(get_grid_attr_hdl_) & 190 ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name&191 )214 ( grid_hdl, comment, description, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d & 215 , mask_7d, name ) 192 216 193 217 END SUBROUTINE xios(get_grid_attr) 194 218 195 219 SUBROUTINE xios(get_grid_attr_hdl) & 196 ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name&197 )220 ( grid_hdl, comment, description, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d & 221 , mask_7d, name ) 198 222 199 223 IMPLICIT NONE 200 224 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 225 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 201 226 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 227 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_0d(:) 228 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:) 202 229 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:) 203 230 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) … … 217 244 218 245 CALL xios(get_grid_attr_hdl_) & 219 ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name&220 )246 ( grid_hdl, comment, description, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d & 247 , mask_7d, name ) 221 248 222 249 END SUBROUTINE xios(get_grid_attr_hdl) 223 250 224 251 SUBROUTINE xios(get_grid_attr_hdl_) & 225 ( grid_hdl, description_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_, mask_6d_, mask_7d_ &226 , name_ )252 ( grid_hdl, comment_, description_, mask_0d_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_ & 253 , mask_6d_, mask_7d_, name_ ) 227 254 228 255 IMPLICIT NONE 229 256 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 257 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 230 258 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ 259 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_0d_(:) 260 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d__tmp(:) 231 261 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d_(:) 232 262 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:) … … 245 275 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 246 276 277 IF (PRESENT(comment_)) THEN 278 CALL cxios_get_grid_comment & 279 (grid_hdl%daddr, comment_, len(comment_)) 280 ENDIF 281 247 282 IF (PRESENT(description_)) THEN 248 283 CALL cxios_get_grid_description & 249 284 (grid_hdl%daddr, description_, len(description_)) 285 ENDIF 286 287 IF (PRESENT(mask_0d_)) THEN 288 ALLOCATE(mask_0d__tmp(SIZE(mask_0d_,1))) 289 CALL cxios_get_grid_mask_0d & 290 (grid_hdl%daddr, mask_0d__tmp, SHAPE(mask_0d_)) 291 mask_0d_ = mask_0d__tmp 250 292 ENDIF 251 293 … … 312 354 313 355 SUBROUTINE xios(is_defined_grid_attr) & 314 ( grid_id, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name&315 )356 ( grid_id, comment, description, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d & 357 , mask_7d, name ) 316 358 317 359 IMPLICIT NONE 318 360 TYPE(txios(grid)) :: grid_hdl 319 361 CHARACTER(LEN=*), INTENT(IN) ::grid_id 362 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 363 LOGICAL(KIND=C_BOOL) :: comment_tmp 320 364 LOGICAL, OPTIONAL, INTENT(OUT) :: description 321 365 LOGICAL(KIND=C_BOOL) :: description_tmp 366 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_0d 367 LOGICAL(KIND=C_BOOL) :: mask_0d_tmp 322 368 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d 323 369 LOGICAL(KIND=C_BOOL) :: mask_1d_tmp … … 340 386 (grid_id,grid_hdl) 341 387 CALL xios(is_defined_grid_attr_hdl_) & 342 ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name&343 )388 ( grid_hdl, comment, description, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d & 389 , mask_7d, name ) 344 390 345 391 END SUBROUTINE xios(is_defined_grid_attr) 346 392 347 393 SUBROUTINE xios(is_defined_grid_attr_hdl) & 348 ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name&349 )394 ( grid_hdl, comment, description, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d & 395 , mask_7d, name ) 350 396 351 397 IMPLICIT NONE 352 398 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 399 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 400 LOGICAL(KIND=C_BOOL) :: comment_tmp 353 401 LOGICAL, OPTIONAL, INTENT(OUT) :: description 354 402 LOGICAL(KIND=C_BOOL) :: description_tmp 403 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_0d 404 LOGICAL(KIND=C_BOOL) :: mask_0d_tmp 355 405 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d 356 406 LOGICAL(KIND=C_BOOL) :: mask_1d_tmp … … 371 421 372 422 CALL xios(is_defined_grid_attr_hdl_) & 373 ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name&374 )423 ( grid_hdl, comment, description, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d & 424 , mask_7d, name ) 375 425 376 426 END SUBROUTINE xios(is_defined_grid_attr_hdl) 377 427 378 428 SUBROUTINE xios(is_defined_grid_attr_hdl_) & 379 ( grid_hdl, description_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_, mask_6d_, mask_7d_ &380 , name_ )429 ( grid_hdl, comment_, description_, mask_0d_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_ & 430 , mask_6d_, mask_7d_, name_ ) 381 431 382 432 IMPLICIT NONE 383 433 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 434 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 435 LOGICAL(KIND=C_BOOL) :: comment__tmp 384 436 LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 385 437 LOGICAL(KIND=C_BOOL) :: description__tmp 438 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_0d_ 439 LOGICAL(KIND=C_BOOL) :: mask_0d__tmp 386 440 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_ 387 441 LOGICAL(KIND=C_BOOL) :: mask_1d__tmp … … 401 455 LOGICAL(KIND=C_BOOL) :: name__tmp 402 456 457 IF (PRESENT(comment_)) THEN 458 comment__tmp = cxios_is_defined_grid_comment & 459 (grid_hdl%daddr) 460 comment_ = comment__tmp 461 ENDIF 462 403 463 IF (PRESENT(description_)) THEN 404 464 description__tmp = cxios_is_defined_grid_description & … … 407 467 ENDIF 408 468 469 IF (PRESENT(mask_0d_)) THEN 470 mask_0d__tmp = cxios_is_defined_grid_mask_0d & 471 (grid_hdl%daddr) 472 mask_0d_ = mask_0d__tmp 473 ENDIF 474 409 475 IF (PRESENT(mask_1d_)) THEN 410 476 mask_1d__tmp = cxios_is_defined_grid_mask_1d & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/igridgroup_attr.F90
r966 r1492 12 12 13 13 SUBROUTINE xios(set_gridgroup_attr) & 14 ( gridgroup_id, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d &15 , mask_ 7d, name )14 ( gridgroup_id, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d & 15 , mask_5d, mask_6d, mask_7d, name ) 16 16 17 17 IMPLICIT NONE 18 18 TYPE(txios(gridgroup)) :: gridgroup_hdl 19 19 CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 20 21 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 21 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 23 LOGICAL , OPTIONAL, INTENT(IN) :: mask_0d(:) 24 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:) 22 25 LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:) 23 26 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) … … 39 42 (gridgroup_id,gridgroup_hdl) 40 43 CALL xios(set_gridgroup_attr_hdl_) & 41 ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d &42 , mask_ 7d, name )44 ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d & 45 , mask_5d, mask_6d, mask_7d, name ) 43 46 44 47 END SUBROUTINE xios(set_gridgroup_attr) 45 48 46 49 SUBROUTINE xios(set_gridgroup_attr_hdl) & 47 ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d &48 , mask_ 7d, name )50 ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d & 51 , mask_5d, mask_6d, mask_7d, name ) 49 52 50 53 IMPLICIT NONE 51 54 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl 55 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 52 56 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 53 57 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 58 LOGICAL , OPTIONAL, INTENT(IN) :: mask_0d(:) 59 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:) 54 60 LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:) 55 61 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) … … 69 75 70 76 CALL xios(set_gridgroup_attr_hdl_) & 71 ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d &72 , mask_ 7d, name )77 ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d & 78 , mask_5d, mask_6d, mask_7d, name ) 73 79 74 80 END SUBROUTINE xios(set_gridgroup_attr_hdl) 75 81 76 82 SUBROUTINE xios(set_gridgroup_attr_hdl_) & 77 ( gridgroup_hdl, description_, group_ref_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_ &78 , mask_ 6d_, mask_7d_, name_ )83 ( gridgroup_hdl, comment_, description_, group_ref_, mask_0d_, mask_1d_, mask_2d_, mask_3d_ & 84 , mask_4d_, mask_5d_, mask_6d_, mask_7d_, name_ ) 79 85 80 86 IMPLICIT NONE 81 87 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl 88 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 82 89 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ 83 90 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 91 LOGICAL , OPTIONAL, INTENT(IN) :: mask_0d_(:) 92 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d__tmp(:) 84 93 LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d_(:) 85 94 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:) … … 98 107 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 99 108 109 IF (PRESENT(comment_)) THEN 110 CALL cxios_set_gridgroup_comment & 111 (gridgroup_hdl%daddr, comment_, len(comment_)) 112 ENDIF 113 100 114 IF (PRESENT(description_)) THEN 101 115 CALL cxios_set_gridgroup_description & … … 106 120 CALL cxios_set_gridgroup_group_ref & 107 121 (gridgroup_hdl%daddr, group_ref_, len(group_ref_)) 122 ENDIF 123 124 IF (PRESENT(mask_0d_)) THEN 125 ALLOCATE(mask_0d__tmp(SIZE(mask_0d_,1))) 126 mask_0d__tmp = mask_0d_ 127 CALL cxios_set_gridgroup_mask_0d & 128 (gridgroup_hdl%daddr, mask_0d__tmp, SHAPE(mask_0d_)) 108 129 ENDIF 109 130 … … 170 191 171 192 SUBROUTINE xios(get_gridgroup_attr) & 172 ( gridgroup_id, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d &173 , mask_ 7d, name )193 ( gridgroup_id, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d & 194 , mask_5d, mask_6d, mask_7d, name ) 174 195 175 196 IMPLICIT NONE 176 197 TYPE(txios(gridgroup)) :: gridgroup_hdl 177 198 CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id 199 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 178 200 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 179 201 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 202 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_0d(:) 203 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:) 180 204 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:) 181 205 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) … … 197 221 (gridgroup_id,gridgroup_hdl) 198 222 CALL xios(get_gridgroup_attr_hdl_) & 199 ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d &200 , mask_ 7d, name )223 ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d & 224 , mask_5d, mask_6d, mask_7d, name ) 201 225 202 226 END SUBROUTINE xios(get_gridgroup_attr) 203 227 204 228 SUBROUTINE xios(get_gridgroup_attr_hdl) & 205 ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d &206 , mask_ 7d, name )229 ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d & 230 , mask_5d, mask_6d, mask_7d, name ) 207 231 208 232 IMPLICIT NONE 209 233 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl 234 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 210 235 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 211 236 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 237 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_0d(:) 238 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:) 212 239 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:) 213 240 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) … … 227 254 228 255 CALL xios(get_gridgroup_attr_hdl_) & 229 ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d &230 , mask_ 7d, name )256 ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d & 257 , mask_5d, mask_6d, mask_7d, name ) 231 258 232 259 END SUBROUTINE xios(get_gridgroup_attr_hdl) 233 260 234 261 SUBROUTINE xios(get_gridgroup_attr_hdl_) & 235 ( gridgroup_hdl, description_, group_ref_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_ &236 , mask_ 6d_, mask_7d_, name_ )262 ( gridgroup_hdl, comment_, description_, group_ref_, mask_0d_, mask_1d_, mask_2d_, mask_3d_ & 263 , mask_4d_, mask_5d_, mask_6d_, mask_7d_, name_ ) 237 264 238 265 IMPLICIT NONE 239 266 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl 267 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 240 268 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ 241 269 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 270 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_0d_(:) 271 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d__tmp(:) 242 272 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d_(:) 243 273 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:) … … 256 286 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 257 287 288 IF (PRESENT(comment_)) THEN 289 CALL cxios_get_gridgroup_comment & 290 (gridgroup_hdl%daddr, comment_, len(comment_)) 291 ENDIF 292 258 293 IF (PRESENT(description_)) THEN 259 294 CALL cxios_get_gridgroup_description & … … 264 299 CALL cxios_get_gridgroup_group_ref & 265 300 (gridgroup_hdl%daddr, group_ref_, len(group_ref_)) 301 ENDIF 302 303 IF (PRESENT(mask_0d_)) THEN 304 ALLOCATE(mask_0d__tmp(SIZE(mask_0d_,1))) 305 CALL cxios_get_gridgroup_mask_0d & 306 (gridgroup_hdl%daddr, mask_0d__tmp, SHAPE(mask_0d_)) 307 mask_0d_ = mask_0d__tmp 266 308 ENDIF 267 309 … … 328 370 329 371 SUBROUTINE xios(is_defined_gridgroup_attr) & 330 ( gridgroup_id, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d &331 , mask_ 7d, name )372 ( gridgroup_id, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d & 373 , mask_5d, mask_6d, mask_7d, name ) 332 374 333 375 IMPLICIT NONE 334 376 TYPE(txios(gridgroup)) :: gridgroup_hdl 335 377 CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id 378 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 379 LOGICAL(KIND=C_BOOL) :: comment_tmp 336 380 LOGICAL, OPTIONAL, INTENT(OUT) :: description 337 381 LOGICAL(KIND=C_BOOL) :: description_tmp 338 382 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 339 383 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 384 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_0d 385 LOGICAL(KIND=C_BOOL) :: mask_0d_tmp 340 386 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d 341 387 LOGICAL(KIND=C_BOOL) :: mask_1d_tmp … … 358 404 (gridgroup_id,gridgroup_hdl) 359 405 CALL xios(is_defined_gridgroup_attr_hdl_) & 360 ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d &361 , mask_ 7d, name )406 ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d & 407 , mask_5d, mask_6d, mask_7d, name ) 362 408 363 409 END SUBROUTINE xios(is_defined_gridgroup_attr) 364 410 365 411 SUBROUTINE xios(is_defined_gridgroup_attr_hdl) & 366 ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d &367 , mask_ 7d, name )412 ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d & 413 , mask_5d, mask_6d, mask_7d, name ) 368 414 369 415 IMPLICIT NONE 370 416 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl 417 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 418 LOGICAL(KIND=C_BOOL) :: comment_tmp 371 419 LOGICAL, OPTIONAL, INTENT(OUT) :: description 372 420 LOGICAL(KIND=C_BOOL) :: description_tmp 373 421 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 374 422 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 423 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_0d 424 LOGICAL(KIND=C_BOOL) :: mask_0d_tmp 375 425 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d 376 426 LOGICAL(KIND=C_BOOL) :: mask_1d_tmp … … 391 441 392 442 CALL xios(is_defined_gridgroup_attr_hdl_) & 393 ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d &394 , mask_ 7d, name )443 ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d & 444 , mask_5d, mask_6d, mask_7d, name ) 395 445 396 446 END SUBROUTINE xios(is_defined_gridgroup_attr_hdl) 397 447 398 448 SUBROUTINE xios(is_defined_gridgroup_attr_hdl_) & 399 ( gridgroup_hdl, description_, group_ref_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_ &400 , mask_ 6d_, mask_7d_, name_ )449 ( gridgroup_hdl, comment_, description_, group_ref_, mask_0d_, mask_1d_, mask_2d_, mask_3d_ & 450 , mask_4d_, mask_5d_, mask_6d_, mask_7d_, name_ ) 401 451 402 452 IMPLICIT NONE 403 453 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl 454 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 455 LOGICAL(KIND=C_BOOL) :: comment__tmp 404 456 LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 405 457 LOGICAL(KIND=C_BOOL) :: description__tmp 406 458 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 407 459 LOGICAL(KIND=C_BOOL) :: group_ref__tmp 460 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_0d_ 461 LOGICAL(KIND=C_BOOL) :: mask_0d__tmp 408 462 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_ 409 463 LOGICAL(KIND=C_BOOL) :: mask_1d__tmp … … 423 477 LOGICAL(KIND=C_BOOL) :: name__tmp 424 478 479 IF (PRESENT(comment_)) THEN 480 comment__tmp = cxios_is_defined_gridgroup_comment & 481 (gridgroup_hdl%daddr) 482 comment_ = comment__tmp 483 ENDIF 484 425 485 IF (PRESENT(description_)) THEN 426 486 description__tmp = cxios_is_defined_gridgroup_description & … … 435 495 ENDIF 436 496 497 IF (PRESENT(mask_0d_)) THEN 498 mask_0d__tmp = cxios_is_defined_gridgroup_mask_0d & 499 (gridgroup_hdl%daddr) 500 mask_0d_ = mask_0d__tmp 501 ENDIF 502 437 503 IF (PRESENT(mask_1d_)) THEN 438 504 mask_1d__tmp = cxios_is_defined_gridgroup_mask_1d & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/iinterpolate_domain_attr.F90
r1201 r1492 12 12 13 13 SUBROUTINE xios(set_interpolate_domain_attr) & 14 ( interpolate_domain_id, mode, order, quantity, renormalize, weight_filename, write_weight ) 14 ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention & 15 , renormalize, weight_filename, write_weight ) 15 16 16 17 IMPLICIT NONE 17 18 TYPE(txios(interpolate_domain)) :: interpolate_domain_hdl 18 19 CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id 20 LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value 21 LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp 19 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode 20 23 INTEGER , OPTIONAL, INTENT(IN) :: order 21 24 LOGICAL , OPTIONAL, INTENT(IN) :: quantity 22 25 LOGICAL (KIND=C_BOOL) :: quantity_tmp 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: read_write_convention 23 27 LOGICAL , OPTIONAL, INTENT(IN) :: renormalize 24 28 LOGICAL (KIND=C_BOOL) :: renormalize_tmp … … 30 34 (interpolate_domain_id,interpolate_domain_hdl) 31 35 CALL xios(set_interpolate_domain_attr_hdl_) & 32 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight&33 )36 ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention & 37 , renormalize, weight_filename, write_weight ) 34 38 35 39 END SUBROUTINE xios(set_interpolate_domain_attr) 36 40 37 41 SUBROUTINE xios(set_interpolate_domain_attr_hdl) & 38 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight & 39 ) 40 41 IMPLICIT NONE 42 TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 42 ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention & 43 , renormalize, weight_filename, write_weight ) 44 45 IMPLICIT NONE 46 TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 47 LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value 48 LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp 43 49 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode 44 50 INTEGER , OPTIONAL, INTENT(IN) :: order 45 51 LOGICAL , OPTIONAL, INTENT(IN) :: quantity 46 52 LOGICAL (KIND=C_BOOL) :: quantity_tmp 53 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: read_write_convention 47 54 LOGICAL , OPTIONAL, INTENT(IN) :: renormalize 48 55 LOGICAL (KIND=C_BOOL) :: renormalize_tmp … … 52 59 53 60 CALL xios(set_interpolate_domain_attr_hdl_) & 54 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight&55 )61 ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention & 62 , renormalize, weight_filename, write_weight ) 56 63 57 64 END SUBROUTINE xios(set_interpolate_domain_attr_hdl) 58 65 59 66 SUBROUTINE xios(set_interpolate_domain_attr_hdl_) & 60 ( interpolate_domain_hdl, mode_, order_, quantity_, renormalize_, weight_filename_, write_weight_ & 61 ) 62 63 IMPLICIT NONE 64 TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 67 ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_ & 68 , renormalize_, weight_filename_, write_weight_ ) 69 70 IMPLICIT NONE 71 TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 72 LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value_ 73 LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp 65 74 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_ 66 75 INTEGER , OPTIONAL, INTENT(IN) :: order_ 67 76 LOGICAL , OPTIONAL, INTENT(IN) :: quantity_ 68 77 LOGICAL (KIND=C_BOOL) :: quantity__tmp 78 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: read_write_convention_ 69 79 LOGICAL , OPTIONAL, INTENT(IN) :: renormalize_ 70 80 LOGICAL (KIND=C_BOOL) :: renormalize__tmp … … 73 83 LOGICAL (KIND=C_BOOL) :: write_weight__tmp 74 84 85 IF (PRESENT(detect_missing_value_)) THEN 86 detect_missing_value__tmp = detect_missing_value_ 87 CALL cxios_set_interpolate_domain_detect_missing_value & 88 (interpolate_domain_hdl%daddr, detect_missing_value__tmp) 89 ENDIF 90 75 91 IF (PRESENT(mode_)) THEN 76 92 CALL cxios_set_interpolate_domain_mode & … … 89 105 ENDIF 90 106 107 IF (PRESENT(read_write_convention_)) THEN 108 CALL cxios_set_interpolate_domain_read_write_convention & 109 (interpolate_domain_hdl%daddr, read_write_convention_, len(read_write_convention_)) 110 ENDIF 111 91 112 IF (PRESENT(renormalize_)) THEN 92 113 renormalize__tmp = renormalize_ … … 109 130 110 131 SUBROUTINE xios(get_interpolate_domain_attr) & 111 ( interpolate_domain_id, mode, order, quantity, renormalize, weight_filename, write_weight ) 132 ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention & 133 , renormalize, weight_filename, write_weight ) 112 134 113 135 IMPLICIT NONE 114 136 TYPE(txios(interpolate_domain)) :: interpolate_domain_hdl 115 137 CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id 138 LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value 139 LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp 116 140 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode 117 141 INTEGER , OPTIONAL, INTENT(OUT) :: order 118 142 LOGICAL , OPTIONAL, INTENT(OUT) :: quantity 119 143 LOGICAL (KIND=C_BOOL) :: quantity_tmp 144 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: read_write_convention 120 145 LOGICAL , OPTIONAL, INTENT(OUT) :: renormalize 121 146 LOGICAL (KIND=C_BOOL) :: renormalize_tmp … … 127 152 (interpolate_domain_id,interpolate_domain_hdl) 128 153 CALL xios(get_interpolate_domain_attr_hdl_) & 129 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight&130 )154 ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention & 155 , renormalize, weight_filename, write_weight ) 131 156 132 157 END SUBROUTINE xios(get_interpolate_domain_attr) 133 158 134 159 SUBROUTINE xios(get_interpolate_domain_attr_hdl) & 135 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight & 136 ) 137 138 IMPLICIT NONE 139 TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 160 ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention & 161 , renormalize, weight_filename, write_weight ) 162 163 IMPLICIT NONE 164 TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 165 LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value 166 LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp 140 167 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode 141 168 INTEGER , OPTIONAL, INTENT(OUT) :: order 142 169 LOGICAL , OPTIONAL, INTENT(OUT) :: quantity 143 170 LOGICAL (KIND=C_BOOL) :: quantity_tmp 171 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: read_write_convention 144 172 LOGICAL , OPTIONAL, INTENT(OUT) :: renormalize 145 173 LOGICAL (KIND=C_BOOL) :: renormalize_tmp … … 149 177 150 178 CALL xios(get_interpolate_domain_attr_hdl_) & 151 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight&152 )179 ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention & 180 , renormalize, weight_filename, write_weight ) 153 181 154 182 END SUBROUTINE xios(get_interpolate_domain_attr_hdl) 155 183 156 184 SUBROUTINE xios(get_interpolate_domain_attr_hdl_) & 157 ( interpolate_domain_hdl, mode_, order_, quantity_, renormalize_, weight_filename_, write_weight_ & 158 ) 159 160 IMPLICIT NONE 161 TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 185 ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_ & 186 , renormalize_, weight_filename_, write_weight_ ) 187 188 IMPLICIT NONE 189 TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 190 LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value_ 191 LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp 162 192 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_ 163 193 INTEGER , OPTIONAL, INTENT(OUT) :: order_ 164 194 LOGICAL , OPTIONAL, INTENT(OUT) :: quantity_ 165 195 LOGICAL (KIND=C_BOOL) :: quantity__tmp 196 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: read_write_convention_ 166 197 LOGICAL , OPTIONAL, INTENT(OUT) :: renormalize_ 167 198 LOGICAL (KIND=C_BOOL) :: renormalize__tmp … … 170 201 LOGICAL (KIND=C_BOOL) :: write_weight__tmp 171 202 203 IF (PRESENT(detect_missing_value_)) THEN 204 CALL cxios_get_interpolate_domain_detect_missing_value & 205 (interpolate_domain_hdl%daddr, detect_missing_value__tmp) 206 detect_missing_value_ = detect_missing_value__tmp 207 ENDIF 208 172 209 IF (PRESENT(mode_)) THEN 173 210 CALL cxios_get_interpolate_domain_mode & … … 186 223 ENDIF 187 224 225 IF (PRESENT(read_write_convention_)) THEN 226 CALL cxios_get_interpolate_domain_read_write_convention & 227 (interpolate_domain_hdl%daddr, read_write_convention_, len(read_write_convention_)) 228 ENDIF 229 188 230 IF (PRESENT(renormalize_)) THEN 189 231 CALL cxios_get_interpolate_domain_renormalize & … … 206 248 207 249 SUBROUTINE xios(is_defined_interpolate_domain_attr) & 208 ( interpolate_domain_id, mode, order, quantity, renormalize, weight_filename, write_weight ) 250 ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention & 251 , renormalize, weight_filename, write_weight ) 209 252 210 253 IMPLICIT NONE 211 254 TYPE(txios(interpolate_domain)) :: interpolate_domain_hdl 212 255 CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id 256 LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value 257 LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp 213 258 LOGICAL, OPTIONAL, INTENT(OUT) :: mode 214 259 LOGICAL(KIND=C_BOOL) :: mode_tmp … … 217 262 LOGICAL, OPTIONAL, INTENT(OUT) :: quantity 218 263 LOGICAL(KIND=C_BOOL) :: quantity_tmp 264 LOGICAL, OPTIONAL, INTENT(OUT) :: read_write_convention 265 LOGICAL(KIND=C_BOOL) :: read_write_convention_tmp 219 266 LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize 220 267 LOGICAL(KIND=C_BOOL) :: renormalize_tmp … … 227 274 (interpolate_domain_id,interpolate_domain_hdl) 228 275 CALL xios(is_defined_interpolate_domain_attr_hdl_) & 229 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight&230 )276 ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention & 277 , renormalize, weight_filename, write_weight ) 231 278 232 279 END SUBROUTINE xios(is_defined_interpolate_domain_attr) 233 280 234 281 SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl) & 235 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight & 236 ) 237 238 IMPLICIT NONE 239 TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 282 ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention & 283 , renormalize, weight_filename, write_weight ) 284 285 IMPLICIT NONE 286 TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 287 LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value 288 LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp 240 289 LOGICAL, OPTIONAL, INTENT(OUT) :: mode 241 290 LOGICAL(KIND=C_BOOL) :: mode_tmp … … 244 293 LOGICAL, OPTIONAL, INTENT(OUT) :: quantity 245 294 LOGICAL(KIND=C_BOOL) :: quantity_tmp 295 LOGICAL, OPTIONAL, INTENT(OUT) :: read_write_convention 296 LOGICAL(KIND=C_BOOL) :: read_write_convention_tmp 246 297 LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize 247 298 LOGICAL(KIND=C_BOOL) :: renormalize_tmp … … 252 303 253 304 CALL xios(is_defined_interpolate_domain_attr_hdl_) & 254 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight&255 )305 ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention & 306 , renormalize, weight_filename, write_weight ) 256 307 257 308 END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl) 258 309 259 310 SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_) & 260 ( interpolate_domain_hdl, mode_, order_, quantity_, renormalize_, weight_filename_, write_weight_ & 261 ) 262 263 IMPLICIT NONE 264 TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 311 ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_ & 312 , renormalize_, weight_filename_, write_weight_ ) 313 314 IMPLICIT NONE 315 TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 316 LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_ 317 LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp 265 318 LOGICAL, OPTIONAL, INTENT(OUT) :: mode_ 266 319 LOGICAL(KIND=C_BOOL) :: mode__tmp … … 269 322 LOGICAL, OPTIONAL, INTENT(OUT) :: quantity_ 270 323 LOGICAL(KIND=C_BOOL) :: quantity__tmp 324 LOGICAL, OPTIONAL, INTENT(OUT) :: read_write_convention_ 325 LOGICAL(KIND=C_BOOL) :: read_write_convention__tmp 271 326 LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_ 272 327 LOGICAL(KIND=C_BOOL) :: renormalize__tmp … … 276 331 LOGICAL(KIND=C_BOOL) :: write_weight__tmp 277 332 333 IF (PRESENT(detect_missing_value_)) THEN 334 detect_missing_value__tmp = cxios_is_defined_interpolate_domain_detect_missing_value & 335 (interpolate_domain_hdl%daddr) 336 detect_missing_value_ = detect_missing_value__tmp 337 ENDIF 338 278 339 IF (PRESENT(mode_)) THEN 279 340 mode__tmp = cxios_is_defined_interpolate_domain_mode & … … 294 355 ENDIF 295 356 357 IF (PRESENT(read_write_convention_)) THEN 358 read_write_convention__tmp = cxios_is_defined_interpolate_domain_read_write_convention & 359 (interpolate_domain_hdl%daddr) 360 read_write_convention_ = read_write_convention__tmp 361 ENDIF 362 296 363 IF (PRESENT(renormalize_)) THEN 297 364 renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/interpolate_domain_interface_attr.F90
r1201 r1492 9 9 INTERFACE 10 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 SUBROUTINE cxios_set_interpolate_domain_detect_missing_value(interpolate_domain_hdl, detect_missing_value) BIND(C) 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 15 LOGICAL (KIND=C_BOOL) , VALUE :: detect_missing_value 16 END SUBROUTINE cxios_set_interpolate_domain_detect_missing_value 17 18 SUBROUTINE cxios_get_interpolate_domain_detect_missing_value(interpolate_domain_hdl, detect_missing_value) BIND(C) 19 USE ISO_C_BINDING 20 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 21 LOGICAL (KIND=C_BOOL) :: detect_missing_value 22 END SUBROUTINE cxios_get_interpolate_domain_detect_missing_value 23 24 FUNCTION cxios_is_defined_interpolate_domain_detect_missing_value(interpolate_domain_hdl) BIND(C) 25 USE ISO_C_BINDING 26 LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_detect_missing_value 27 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 28 END FUNCTION cxios_is_defined_interpolate_domain_detect_missing_value 29 11 30 12 31 SUBROUTINE cxios_set_interpolate_domain_mode(interpolate_domain_hdl, mode, mode_size) BIND(C) … … 67 86 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 68 87 END FUNCTION cxios_is_defined_interpolate_domain_quantity 88 89 90 SUBROUTINE cxios_set_interpolate_domain_read_write_convention(interpolate_domain_hdl, read_write_convention, read_write_convention_size) BIND(C) 91 USE ISO_C_BINDING 92 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 93 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: read_write_convention 94 INTEGER (kind = C_INT) , VALUE :: read_write_convention_size 95 END SUBROUTINE cxios_set_interpolate_domain_read_write_convention 96 97 SUBROUTINE cxios_get_interpolate_domain_read_write_convention(interpolate_domain_hdl, read_write_convention, read_write_convention_size) BIND(C) 98 USE ISO_C_BINDING 99 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 100 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: read_write_convention 101 INTEGER (kind = C_INT) , VALUE :: read_write_convention_size 102 END SUBROUTINE cxios_get_interpolate_domain_read_write_convention 103 104 FUNCTION cxios_is_defined_interpolate_domain_read_write_convention(interpolate_domain_hdl) BIND(C) 105 USE ISO_C_BINDING 106 LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_read_write_convention 107 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 108 END FUNCTION cxios_is_defined_interpolate_domain_read_write_convention 69 109 70 110 -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ireduce_domain_to_axis_attr.F90
r981 r1492 12 12 13 13 SUBROUTINE xios(set_reduce_domain_to_axis_attr) & 14 ( reduce_domain_to_axis_id, direction, operation )14 ( reduce_domain_to_axis_id, direction, local, operation ) 15 15 16 16 IMPLICIT NONE … … 18 18 CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_axis_id 19 19 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction 20 LOGICAL , OPTIONAL, INTENT(IN) :: local 21 LOGICAL (KIND=C_BOOL) :: local_tmp 20 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation 21 23 … … 23 25 (reduce_domain_to_axis_id,reduce_domain_to_axis_hdl) 24 26 CALL xios(set_reduce_domain_to_axis_attr_hdl_) & 25 ( reduce_domain_to_axis_hdl, direction, operation )27 ( reduce_domain_to_axis_hdl, direction, local, operation ) 26 28 27 29 END SUBROUTINE xios(set_reduce_domain_to_axis_attr) 28 30 29 31 SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl) & 30 ( reduce_domain_to_axis_hdl, direction, operation )32 ( reduce_domain_to_axis_hdl, direction, local, operation ) 31 33 32 34 IMPLICIT NONE 33 35 TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl 34 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction 37 LOGICAL , OPTIONAL, INTENT(IN) :: local 38 LOGICAL (KIND=C_BOOL) :: local_tmp 35 39 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation 36 40 37 41 CALL xios(set_reduce_domain_to_axis_attr_hdl_) & 38 ( reduce_domain_to_axis_hdl, direction, operation )42 ( reduce_domain_to_axis_hdl, direction, local, operation ) 39 43 40 44 END SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl) 41 45 42 46 SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl_) & 43 ( reduce_domain_to_axis_hdl, direction_, operation_ )47 ( reduce_domain_to_axis_hdl, direction_, local_, operation_ ) 44 48 45 49 IMPLICIT NONE 46 50 TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl 47 51 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction_ 52 LOGICAL , OPTIONAL, INTENT(IN) :: local_ 53 LOGICAL (KIND=C_BOOL) :: local__tmp 48 54 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_ 49 55 … … 53 59 ENDIF 54 60 61 IF (PRESENT(local_)) THEN 62 local__tmp = local_ 63 CALL cxios_set_reduce_domain_to_axis_local & 64 (reduce_domain_to_axis_hdl%daddr, local__tmp) 65 ENDIF 66 55 67 IF (PRESENT(operation_)) THEN 56 68 CALL cxios_set_reduce_domain_to_axis_operation & … … 61 73 62 74 SUBROUTINE xios(get_reduce_domain_to_axis_attr) & 63 ( reduce_domain_to_axis_id, direction, operation )75 ( reduce_domain_to_axis_id, direction, local, operation ) 64 76 65 77 IMPLICIT NONE … … 67 79 CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_axis_id 68 80 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction 81 LOGICAL , OPTIONAL, INTENT(OUT) :: local 82 LOGICAL (KIND=C_BOOL) :: local_tmp 69 83 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation 70 84 … … 72 86 (reduce_domain_to_axis_id,reduce_domain_to_axis_hdl) 73 87 CALL xios(get_reduce_domain_to_axis_attr_hdl_) & 74 ( reduce_domain_to_axis_hdl, direction, operation )88 ( reduce_domain_to_axis_hdl, direction, local, operation ) 75 89 76 90 END SUBROUTINE xios(get_reduce_domain_to_axis_attr) 77 91 78 92 SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl) & 79 ( reduce_domain_to_axis_hdl, direction, operation )93 ( reduce_domain_to_axis_hdl, direction, local, operation ) 80 94 81 95 IMPLICIT NONE 82 96 TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl 83 97 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction 98 LOGICAL , OPTIONAL, INTENT(OUT) :: local 99 LOGICAL (KIND=C_BOOL) :: local_tmp 84 100 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation 85 101 86 102 CALL xios(get_reduce_domain_to_axis_attr_hdl_) & 87 ( reduce_domain_to_axis_hdl, direction, operation )103 ( reduce_domain_to_axis_hdl, direction, local, operation ) 88 104 89 105 END SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl) 90 106 91 107 SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl_) & 92 ( reduce_domain_to_axis_hdl, direction_, operation_ )108 ( reduce_domain_to_axis_hdl, direction_, local_, operation_ ) 93 109 94 110 IMPLICIT NONE 95 111 TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl 96 112 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction_ 113 LOGICAL , OPTIONAL, INTENT(OUT) :: local_ 114 LOGICAL (KIND=C_BOOL) :: local__tmp 97 115 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_ 98 116 … … 102 120 ENDIF 103 121 122 IF (PRESENT(local_)) THEN 123 CALL cxios_get_reduce_domain_to_axis_local & 124 (reduce_domain_to_axis_hdl%daddr, local__tmp) 125 local_ = local__tmp 126 ENDIF 127 104 128 IF (PRESENT(operation_)) THEN 105 129 CALL cxios_get_reduce_domain_to_axis_operation & … … 110 134 111 135 SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr) & 112 ( reduce_domain_to_axis_id, direction, operation )136 ( reduce_domain_to_axis_id, direction, local, operation ) 113 137 114 138 IMPLICIT NONE … … 117 141 LOGICAL, OPTIONAL, INTENT(OUT) :: direction 118 142 LOGICAL(KIND=C_BOOL) :: direction_tmp 143 LOGICAL, OPTIONAL, INTENT(OUT) :: local 144 LOGICAL(KIND=C_BOOL) :: local_tmp 119 145 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 120 146 LOGICAL(KIND=C_BOOL) :: operation_tmp … … 123 149 (reduce_domain_to_axis_id,reduce_domain_to_axis_hdl) 124 150 CALL xios(is_defined_reduce_domain_to_axis_attr_hdl_) & 125 ( reduce_domain_to_axis_hdl, direction, operation )151 ( reduce_domain_to_axis_hdl, direction, local, operation ) 126 152 127 153 END SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr) 128 154 129 155 SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl) & 130 ( reduce_domain_to_axis_hdl, direction, operation )156 ( reduce_domain_to_axis_hdl, direction, local, operation ) 131 157 132 158 IMPLICIT NONE … … 134 160 LOGICAL, OPTIONAL, INTENT(OUT) :: direction 135 161 LOGICAL(KIND=C_BOOL) :: direction_tmp 162 LOGICAL, OPTIONAL, INTENT(OUT) :: local 163 LOGICAL(KIND=C_BOOL) :: local_tmp 136 164 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 137 165 LOGICAL(KIND=C_BOOL) :: operation_tmp 138 166 139 167 CALL xios(is_defined_reduce_domain_to_axis_attr_hdl_) & 140 ( reduce_domain_to_axis_hdl, direction, operation )168 ( reduce_domain_to_axis_hdl, direction, local, operation ) 141 169 142 170 END SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl) 143 171 144 172 SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl_) & 145 ( reduce_domain_to_axis_hdl, direction_, operation_ )173 ( reduce_domain_to_axis_hdl, direction_, local_, operation_ ) 146 174 147 175 IMPLICIT NONE … … 149 177 LOGICAL, OPTIONAL, INTENT(OUT) :: direction_ 150 178 LOGICAL(KIND=C_BOOL) :: direction__tmp 179 LOGICAL, OPTIONAL, INTENT(OUT) :: local_ 180 LOGICAL(KIND=C_BOOL) :: local__tmp 151 181 LOGICAL, OPTIONAL, INTENT(OUT) :: operation_ 152 182 LOGICAL(KIND=C_BOOL) :: operation__tmp … … 158 188 ENDIF 159 189 190 IF (PRESENT(local_)) THEN 191 local__tmp = cxios_is_defined_reduce_domain_to_axis_local & 192 (reduce_domain_to_axis_hdl%daddr) 193 local_ = local__tmp 194 ENDIF 195 160 196 IF (PRESENT(operation_)) THEN 161 197 operation__tmp = cxios_is_defined_reduce_domain_to_axis_operation & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ireduce_domain_to_scalar_attr.F90
r981 r1492 12 12 13 13 SUBROUTINE xios(set_reduce_domain_to_scalar_attr) & 14 ( reduce_domain_to_scalar_id, operation )14 ( reduce_domain_to_scalar_id, local, operation ) 15 15 16 16 IMPLICIT NONE 17 17 TYPE(txios(reduce_domain_to_scalar)) :: reduce_domain_to_scalar_hdl 18 18 CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_scalar_id 19 LOGICAL , OPTIONAL, INTENT(IN) :: local 20 LOGICAL (KIND=C_BOOL) :: local_tmp 19 21 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation 20 22 … … 22 24 (reduce_domain_to_scalar_id,reduce_domain_to_scalar_hdl) 23 25 CALL xios(set_reduce_domain_to_scalar_attr_hdl_) & 24 ( reduce_domain_to_scalar_hdl, operation )26 ( reduce_domain_to_scalar_hdl, local, operation ) 25 27 26 28 END SUBROUTINE xios(set_reduce_domain_to_scalar_attr) 27 29 28 30 SUBROUTINE xios(set_reduce_domain_to_scalar_attr_hdl) & 29 ( reduce_domain_to_scalar_hdl, operation )31 ( reduce_domain_to_scalar_hdl, local, operation ) 30 32 31 33 IMPLICIT NONE 32 34 TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl 35 LOGICAL , OPTIONAL, INTENT(IN) :: local 36 LOGICAL (KIND=C_BOOL) :: local_tmp 33 37 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation 34 38 35 39 CALL xios(set_reduce_domain_to_scalar_attr_hdl_) & 36 ( reduce_domain_to_scalar_hdl, operation )40 ( reduce_domain_to_scalar_hdl, local, operation ) 37 41 38 42 END SUBROUTINE xios(set_reduce_domain_to_scalar_attr_hdl) 39 43 40 44 SUBROUTINE xios(set_reduce_domain_to_scalar_attr_hdl_) & 41 ( reduce_domain_to_scalar_hdl, operation_ )45 ( reduce_domain_to_scalar_hdl, local_, operation_ ) 42 46 43 47 IMPLICIT NONE 44 48 TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl 49 LOGICAL , OPTIONAL, INTENT(IN) :: local_ 50 LOGICAL (KIND=C_BOOL) :: local__tmp 45 51 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_ 52 53 IF (PRESENT(local_)) THEN 54 local__tmp = local_ 55 CALL cxios_set_reduce_domain_to_scalar_local & 56 (reduce_domain_to_scalar_hdl%daddr, local__tmp) 57 ENDIF 46 58 47 59 IF (PRESENT(operation_)) THEN … … 53 65 54 66 SUBROUTINE xios(get_reduce_domain_to_scalar_attr) & 55 ( reduce_domain_to_scalar_id, operation )67 ( reduce_domain_to_scalar_id, local, operation ) 56 68 57 69 IMPLICIT NONE 58 70 TYPE(txios(reduce_domain_to_scalar)) :: reduce_domain_to_scalar_hdl 59 71 CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_scalar_id 72 LOGICAL , OPTIONAL, INTENT(OUT) :: local 73 LOGICAL (KIND=C_BOOL) :: local_tmp 60 74 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation 61 75 … … 63 77 (reduce_domain_to_scalar_id,reduce_domain_to_scalar_hdl) 64 78 CALL xios(get_reduce_domain_to_scalar_attr_hdl_) & 65 ( reduce_domain_to_scalar_hdl, operation )79 ( reduce_domain_to_scalar_hdl, local, operation ) 66 80 67 81 END SUBROUTINE xios(get_reduce_domain_to_scalar_attr) 68 82 69 83 SUBROUTINE xios(get_reduce_domain_to_scalar_attr_hdl) & 70 ( reduce_domain_to_scalar_hdl, operation )84 ( reduce_domain_to_scalar_hdl, local, operation ) 71 85 72 86 IMPLICIT NONE 73 87 TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl 88 LOGICAL , OPTIONAL, INTENT(OUT) :: local 89 LOGICAL (KIND=C_BOOL) :: local_tmp 74 90 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation 75 91 76 92 CALL xios(get_reduce_domain_to_scalar_attr_hdl_) & 77 ( reduce_domain_to_scalar_hdl, operation )93 ( reduce_domain_to_scalar_hdl, local, operation ) 78 94 79 95 END SUBROUTINE xios(get_reduce_domain_to_scalar_attr_hdl) 80 96 81 97 SUBROUTINE xios(get_reduce_domain_to_scalar_attr_hdl_) & 82 ( reduce_domain_to_scalar_hdl, operation_ )98 ( reduce_domain_to_scalar_hdl, local_, operation_ ) 83 99 84 100 IMPLICIT NONE 85 101 TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl 102 LOGICAL , OPTIONAL, INTENT(OUT) :: local_ 103 LOGICAL (KIND=C_BOOL) :: local__tmp 86 104 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_ 105 106 IF (PRESENT(local_)) THEN 107 CALL cxios_get_reduce_domain_to_scalar_local & 108 (reduce_domain_to_scalar_hdl%daddr, local__tmp) 109 local_ = local__tmp 110 ENDIF 87 111 88 112 IF (PRESENT(operation_)) THEN … … 94 118 95 119 SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr) & 96 ( reduce_domain_to_scalar_id, operation )120 ( reduce_domain_to_scalar_id, local, operation ) 97 121 98 122 IMPLICIT NONE 99 123 TYPE(txios(reduce_domain_to_scalar)) :: reduce_domain_to_scalar_hdl 100 124 CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_scalar_id 125 LOGICAL, OPTIONAL, INTENT(OUT) :: local 126 LOGICAL(KIND=C_BOOL) :: local_tmp 101 127 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 102 128 LOGICAL(KIND=C_BOOL) :: operation_tmp … … 105 131 (reduce_domain_to_scalar_id,reduce_domain_to_scalar_hdl) 106 132 CALL xios(is_defined_reduce_domain_to_scalar_attr_hdl_) & 107 ( reduce_domain_to_scalar_hdl, operation )133 ( reduce_domain_to_scalar_hdl, local, operation ) 108 134 109 135 END SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr) 110 136 111 137 SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr_hdl) & 112 ( reduce_domain_to_scalar_hdl, operation )138 ( reduce_domain_to_scalar_hdl, local, operation ) 113 139 114 140 IMPLICIT NONE 115 141 TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl 142 LOGICAL, OPTIONAL, INTENT(OUT) :: local 143 LOGICAL(KIND=C_BOOL) :: local_tmp 116 144 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 117 145 LOGICAL(KIND=C_BOOL) :: operation_tmp 118 146 119 147 CALL xios(is_defined_reduce_domain_to_scalar_attr_hdl_) & 120 ( reduce_domain_to_scalar_hdl, operation )148 ( reduce_domain_to_scalar_hdl, local, operation ) 121 149 122 150 END SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr_hdl) 123 151 124 152 SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr_hdl_) & 125 ( reduce_domain_to_scalar_hdl, operation_ )153 ( reduce_domain_to_scalar_hdl, local_, operation_ ) 126 154 127 155 IMPLICIT NONE 128 156 TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl 157 LOGICAL, OPTIONAL, INTENT(OUT) :: local_ 158 LOGICAL(KIND=C_BOOL) :: local__tmp 129 159 LOGICAL, OPTIONAL, INTENT(OUT) :: operation_ 130 160 LOGICAL(KIND=C_BOOL) :: operation__tmp 161 162 IF (PRESENT(local_)) THEN 163 local__tmp = cxios_is_defined_reduce_domain_to_scalar_local & 164 (reduce_domain_to_scalar_hdl%daddr) 165 local_ = local__tmp 166 ENDIF 131 167 132 168 IF (PRESENT(operation_)) THEN -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/iscalar_attr.F90
r1158 r1492 12 12 13 13 SUBROUTINE xios(set_scalar_attr) & 14 ( scalar_id, long_name, name, prec, scalar_ref, standard_name, unit, value ) 14 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec & 15 , scalar_ref, standard_name, unit, value ) 15 16 16 17 IMPLICIT NONE 17 18 TYPE(txios(scalar)) :: scalar_hdl 18 19 CHARACTER(LEN=*), INTENT(IN) ::scalar_id 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type 21 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:) 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 23 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 24 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label 19 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 20 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 27 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 21 28 INTEGER , OPTIONAL, INTENT(IN) :: prec 22 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref … … 28 35 (scalar_id,scalar_hdl) 29 36 CALL xios(set_scalar_attr_hdl_) & 30 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 37 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec & 38 , scalar_ref, standard_name, unit, value ) 31 39 32 40 END SUBROUTINE xios(set_scalar_attr) 33 41 34 42 SUBROUTINE xios(set_scalar_attr_hdl) & 35 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 36 37 IMPLICIT NONE 38 TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl 43 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec & 44 , scalar_ref, standard_name, unit, value ) 45 46 IMPLICIT NONE 47 TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl 48 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type 49 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:) 50 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 51 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 52 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label 39 53 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 40 54 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 55 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 41 56 INTEGER , OPTIONAL, INTENT(IN) :: prec 42 57 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref … … 46 61 47 62 CALL xios(set_scalar_attr_hdl_) & 48 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 63 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec & 64 , scalar_ref, standard_name, unit, value ) 49 65 50 66 END SUBROUTINE xios(set_scalar_attr_hdl) 51 67 52 68 SUBROUTINE xios(set_scalar_attr_hdl_) & 53 ( scalar_hdl, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 54 55 IMPLICIT NONE 56 TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl 69 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, name_, positive_ & 70 , prec_, scalar_ref_, standard_name_, unit_, value_ ) 71 72 IMPLICIT NONE 73 TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl 74 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_ 75 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:) 76 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_ 77 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 78 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label_ 57 79 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 58 80 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 81 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ 59 82 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 60 83 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_ … … 63 86 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_ 64 87 88 IF (PRESENT(axis_type_)) THEN 89 CALL cxios_set_scalar_axis_type & 90 (scalar_hdl%daddr, axis_type_, len(axis_type_)) 91 ENDIF 92 93 IF (PRESENT(bounds_)) THEN 94 CALL cxios_set_scalar_bounds & 95 (scalar_hdl%daddr, bounds_, SHAPE(bounds_)) 96 ENDIF 97 98 IF (PRESENT(bounds_name_)) THEN 99 CALL cxios_set_scalar_bounds_name & 100 (scalar_hdl%daddr, bounds_name_, len(bounds_name_)) 101 ENDIF 102 103 IF (PRESENT(comment_)) THEN 104 CALL cxios_set_scalar_comment & 105 (scalar_hdl%daddr, comment_, len(comment_)) 106 ENDIF 107 108 IF (PRESENT(label_)) THEN 109 CALL cxios_set_scalar_label & 110 (scalar_hdl%daddr, label_, len(label_)) 111 ENDIF 112 65 113 IF (PRESENT(long_name_)) THEN 66 114 CALL cxios_set_scalar_long_name & … … 73 121 ENDIF 74 122 123 IF (PRESENT(positive_)) THEN 124 CALL cxios_set_scalar_positive & 125 (scalar_hdl%daddr, positive_, len(positive_)) 126 ENDIF 127 75 128 IF (PRESENT(prec_)) THEN 76 129 CALL cxios_set_scalar_prec & … … 101 154 102 155 SUBROUTINE xios(get_scalar_attr) & 103 ( scalar_id, long_name, name, prec, scalar_ref, standard_name, unit, value ) 156 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec & 157 , scalar_ref, standard_name, unit, value ) 104 158 105 159 IMPLICIT NONE 106 160 TYPE(txios(scalar)) :: scalar_hdl 107 161 CHARACTER(LEN=*), INTENT(IN) ::scalar_id 162 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type 163 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:) 164 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 165 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 166 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label 108 167 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 109 168 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 169 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 110 170 INTEGER , OPTIONAL, INTENT(OUT) :: prec 111 171 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref … … 117 177 (scalar_id,scalar_hdl) 118 178 CALL xios(get_scalar_attr_hdl_) & 119 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 179 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec & 180 , scalar_ref, standard_name, unit, value ) 120 181 121 182 END SUBROUTINE xios(get_scalar_attr) 122 183 123 184 SUBROUTINE xios(get_scalar_attr_hdl) & 124 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 125 126 IMPLICIT NONE 127 TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl 185 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec & 186 , scalar_ref, standard_name, unit, value ) 187 188 IMPLICIT NONE 189 TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl 190 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type 191 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:) 192 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 193 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 194 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label 128 195 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 129 196 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 197 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 130 198 INTEGER , OPTIONAL, INTENT(OUT) :: prec 131 199 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref … … 135 203 136 204 CALL xios(get_scalar_attr_hdl_) & 137 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 205 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec & 206 , scalar_ref, standard_name, unit, value ) 138 207 139 208 END SUBROUTINE xios(get_scalar_attr_hdl) 140 209 141 210 SUBROUTINE xios(get_scalar_attr_hdl_) & 142 ( scalar_hdl, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 143 144 IMPLICIT NONE 145 TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl 211 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, name_, positive_ & 212 , prec_, scalar_ref_, standard_name_, unit_, value_ ) 213 214 IMPLICIT NONE 215 TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl 216 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_ 217 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:) 218 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_ 219 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 220 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label_ 146 221 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 147 222 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 223 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ 148 224 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 149 225 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_ … … 152 228 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_ 153 229 230 IF (PRESENT(axis_type_)) THEN 231 CALL cxios_get_scalar_axis_type & 232 (scalar_hdl%daddr, axis_type_, len(axis_type_)) 233 ENDIF 234 235 IF (PRESENT(bounds_)) THEN 236 CALL cxios_get_scalar_bounds & 237 (scalar_hdl%daddr, bounds_, SHAPE(bounds_)) 238 ENDIF 239 240 IF (PRESENT(bounds_name_)) THEN 241 CALL cxios_get_scalar_bounds_name & 242 (scalar_hdl%daddr, bounds_name_, len(bounds_name_)) 243 ENDIF 244 245 IF (PRESENT(comment_)) THEN 246 CALL cxios_get_scalar_comment & 247 (scalar_hdl%daddr, comment_, len(comment_)) 248 ENDIF 249 250 IF (PRESENT(label_)) THEN 251 CALL cxios_get_scalar_label & 252 (scalar_hdl%daddr, label_, len(label_)) 253 ENDIF 254 154 255 IF (PRESENT(long_name_)) THEN 155 256 CALL cxios_get_scalar_long_name & … … 162 263 ENDIF 163 264 265 IF (PRESENT(positive_)) THEN 266 CALL cxios_get_scalar_positive & 267 (scalar_hdl%daddr, positive_, len(positive_)) 268 ENDIF 269 164 270 IF (PRESENT(prec_)) THEN 165 271 CALL cxios_get_scalar_prec & … … 190 296 191 297 SUBROUTINE xios(is_defined_scalar_attr) & 192 ( scalar_id, long_name, name, prec, scalar_ref, standard_name, unit, value ) 298 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec & 299 , scalar_ref, standard_name, unit, value ) 193 300 194 301 IMPLICIT NONE 195 302 TYPE(txios(scalar)) :: scalar_hdl 196 303 CHARACTER(LEN=*), INTENT(IN) ::scalar_id 304 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type 305 LOGICAL(KIND=C_BOOL) :: axis_type_tmp 306 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds 307 LOGICAL(KIND=C_BOOL) :: bounds_tmp 308 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 309 LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 310 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 311 LOGICAL(KIND=C_BOOL) :: comment_tmp 312 LOGICAL, OPTIONAL, INTENT(OUT) :: label 313 LOGICAL(KIND=C_BOOL) :: label_tmp 197 314 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 198 315 LOGICAL(KIND=C_BOOL) :: long_name_tmp 199 316 LOGICAL, OPTIONAL, INTENT(OUT) :: name 200 317 LOGICAL(KIND=C_BOOL) :: name_tmp 318 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 319 LOGICAL(KIND=C_BOOL) :: positive_tmp 201 320 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 202 321 LOGICAL(KIND=C_BOOL) :: prec_tmp … … 213 332 (scalar_id,scalar_hdl) 214 333 CALL xios(is_defined_scalar_attr_hdl_) & 215 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 334 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec & 335 , scalar_ref, standard_name, unit, value ) 216 336 217 337 END SUBROUTINE xios(is_defined_scalar_attr) 218 338 219 339 SUBROUTINE xios(is_defined_scalar_attr_hdl) & 220 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 221 222 IMPLICIT NONE 223 TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl 340 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec & 341 , scalar_ref, standard_name, unit, value ) 342 343 IMPLICIT NONE 344 TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl 345 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type 346 LOGICAL(KIND=C_BOOL) :: axis_type_tmp 347 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds 348 LOGICAL(KIND=C_BOOL) :: bounds_tmp 349 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 350 LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 351 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 352 LOGICAL(KIND=C_BOOL) :: comment_tmp 353 LOGICAL, OPTIONAL, INTENT(OUT) :: label 354 LOGICAL(KIND=C_BOOL) :: label_tmp 224 355 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 225 356 LOGICAL(KIND=C_BOOL) :: long_name_tmp 226 357 LOGICAL, OPTIONAL, INTENT(OUT) :: name 227 358 LOGICAL(KIND=C_BOOL) :: name_tmp 359 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 360 LOGICAL(KIND=C_BOOL) :: positive_tmp 228 361 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 229 362 LOGICAL(KIND=C_BOOL) :: prec_tmp … … 238 371 239 372 CALL xios(is_defined_scalar_attr_hdl_) & 240 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 373 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec & 374 , scalar_ref, standard_name, unit, value ) 241 375 242 376 END SUBROUTINE xios(is_defined_scalar_attr_hdl) 243 377 244 378 SUBROUTINE xios(is_defined_scalar_attr_hdl_) & 245 ( scalar_hdl, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 246 247 IMPLICIT NONE 248 TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl 379 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, name_, positive_ & 380 , prec_, scalar_ref_, standard_name_, unit_, value_ ) 381 382 IMPLICIT NONE 383 TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl 384 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_ 385 LOGICAL(KIND=C_BOOL) :: axis_type__tmp 386 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_ 387 LOGICAL(KIND=C_BOOL) :: bounds__tmp 388 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_ 389 LOGICAL(KIND=C_BOOL) :: bounds_name__tmp 390 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 391 LOGICAL(KIND=C_BOOL) :: comment__tmp 392 LOGICAL, OPTIONAL, INTENT(OUT) :: label_ 393 LOGICAL(KIND=C_BOOL) :: label__tmp 249 394 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 250 395 LOGICAL(KIND=C_BOOL) :: long_name__tmp 251 396 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 252 397 LOGICAL(KIND=C_BOOL) :: name__tmp 398 LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 399 LOGICAL(KIND=C_BOOL) :: positive__tmp 253 400 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 254 401 LOGICAL(KIND=C_BOOL) :: prec__tmp … … 262 409 LOGICAL(KIND=C_BOOL) :: value__tmp 263 410 411 IF (PRESENT(axis_type_)) THEN 412 axis_type__tmp = cxios_is_defined_scalar_axis_type & 413 (scalar_hdl%daddr) 414 axis_type_ = axis_type__tmp 415 ENDIF 416 417 IF (PRESENT(bounds_)) THEN 418 bounds__tmp = cxios_is_defined_scalar_bounds & 419 (scalar_hdl%daddr) 420 bounds_ = bounds__tmp 421 ENDIF 422 423 IF (PRESENT(bounds_name_)) THEN 424 bounds_name__tmp = cxios_is_defined_scalar_bounds_name & 425 (scalar_hdl%daddr) 426 bounds_name_ = bounds_name__tmp 427 ENDIF 428 429 IF (PRESENT(comment_)) THEN 430 comment__tmp = cxios_is_defined_scalar_comment & 431 (scalar_hdl%daddr) 432 comment_ = comment__tmp 433 ENDIF 434 435 IF (PRESENT(label_)) THEN 436 label__tmp = cxios_is_defined_scalar_label & 437 (scalar_hdl%daddr) 438 label_ = label__tmp 439 ENDIF 440 264 441 IF (PRESENT(long_name_)) THEN 265 442 long_name__tmp = cxios_is_defined_scalar_long_name & … … 274 451 ENDIF 275 452 453 IF (PRESENT(positive_)) THEN 454 positive__tmp = cxios_is_defined_scalar_positive & 455 (scalar_hdl%daddr) 456 positive_ = positive__tmp 457 ENDIF 458 276 459 IF (PRESENT(prec_)) THEN 277 460 prec__tmp = cxios_is_defined_scalar_prec & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/iscalargroup_attr.F90
r1158 r1492 12 12 13 13 SUBROUTINE xios(set_scalargroup_attr) & 14 ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value ) 14 ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name & 15 , positive, prec, scalar_ref, standard_name, unit, value ) 15 16 16 17 IMPLICIT NONE 17 18 TYPE(txios(scalargroup)) :: scalargroup_hdl 18 19 CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type 21 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:) 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 23 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 19 24 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label 20 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 21 27 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 28 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 22 29 INTEGER , OPTIONAL, INTENT(IN) :: prec 23 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref … … 29 36 (scalargroup_id,scalargroup_hdl) 30 37 CALL xios(set_scalargroup_attr_hdl_) & 31 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value &32 )38 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name & 39 , positive, prec, scalar_ref, standard_name, unit, value ) 33 40 34 41 END SUBROUTINE xios(set_scalargroup_attr) 35 42 36 43 SUBROUTINE xios(set_scalargroup_attr_hdl) & 37 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value &38 )44 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name & 45 , positive, prec, scalar_ref, standard_name, unit, value ) 39 46 40 47 IMPLICIT NONE 41 48 TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl 49 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type 50 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:) 51 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 52 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 42 53 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 54 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label 43 55 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 44 56 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 57 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 45 58 INTEGER , OPTIONAL, INTENT(IN) :: prec 46 59 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref … … 50 63 51 64 CALL xios(set_scalargroup_attr_hdl_) & 52 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value &53 )65 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name & 66 , positive, prec, scalar_ref, standard_name, unit, value ) 54 67 55 68 END SUBROUTINE xios(set_scalargroup_attr_hdl) 56 69 57 70 SUBROUTINE xios(set_scalargroup_attr_hdl_) & 58 ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_ &59 , value_ )71 ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_ & 72 , name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 60 73 61 74 IMPLICIT NONE 62 75 TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl 76 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_ 77 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:) 78 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_ 79 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 63 80 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 81 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label_ 64 82 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 65 83 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 84 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ 66 85 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 67 86 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_ … … 70 89 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_ 71 90 91 IF (PRESENT(axis_type_)) THEN 92 CALL cxios_set_scalargroup_axis_type & 93 (scalargroup_hdl%daddr, axis_type_, len(axis_type_)) 94 ENDIF 95 96 IF (PRESENT(bounds_)) THEN 97 CALL cxios_set_scalargroup_bounds & 98 (scalargroup_hdl%daddr, bounds_, SHAPE(bounds_)) 99 ENDIF 100 101 IF (PRESENT(bounds_name_)) THEN 102 CALL cxios_set_scalargroup_bounds_name & 103 (scalargroup_hdl%daddr, bounds_name_, len(bounds_name_)) 104 ENDIF 105 106 IF (PRESENT(comment_)) THEN 107 CALL cxios_set_scalargroup_comment & 108 (scalargroup_hdl%daddr, comment_, len(comment_)) 109 ENDIF 110 72 111 IF (PRESENT(group_ref_)) THEN 73 112 CALL cxios_set_scalargroup_group_ref & … … 75 114 ENDIF 76 115 116 IF (PRESENT(label_)) THEN 117 CALL cxios_set_scalargroup_label & 118 (scalargroup_hdl%daddr, label_, len(label_)) 119 ENDIF 120 77 121 IF (PRESENT(long_name_)) THEN 78 122 CALL cxios_set_scalargroup_long_name & … … 85 129 ENDIF 86 130 131 IF (PRESENT(positive_)) THEN 132 CALL cxios_set_scalargroup_positive & 133 (scalargroup_hdl%daddr, positive_, len(positive_)) 134 ENDIF 135 87 136 IF (PRESENT(prec_)) THEN 88 137 CALL cxios_set_scalargroup_prec & … … 113 162 114 163 SUBROUTINE xios(get_scalargroup_attr) & 115 ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value ) 164 ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name & 165 , positive, prec, scalar_ref, standard_name, unit, value ) 116 166 117 167 IMPLICIT NONE 118 168 TYPE(txios(scalargroup)) :: scalargroup_hdl 119 169 CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id 170 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type 171 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:) 172 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 173 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 120 174 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 175 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label 121 176 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 122 177 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 178 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 123 179 INTEGER , OPTIONAL, INTENT(OUT) :: prec 124 180 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref … … 130 186 (scalargroup_id,scalargroup_hdl) 131 187 CALL xios(get_scalargroup_attr_hdl_) & 132 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value &133 )188 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name & 189 , positive, prec, scalar_ref, standard_name, unit, value ) 134 190 135 191 END SUBROUTINE xios(get_scalargroup_attr) 136 192 137 193 SUBROUTINE xios(get_scalargroup_attr_hdl) & 138 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value &139 )194 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name & 195 , positive, prec, scalar_ref, standard_name, unit, value ) 140 196 141 197 IMPLICIT NONE 142 198 TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl 199 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type 200 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:) 201 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 202 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 143 203 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 204 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label 144 205 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 145 206 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 207 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 146 208 INTEGER , OPTIONAL, INTENT(OUT) :: prec 147 209 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref … … 151 213 152 214 CALL xios(get_scalargroup_attr_hdl_) & 153 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value &154 )215 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name & 216 , positive, prec, scalar_ref, standard_name, unit, value ) 155 217 156 218 END SUBROUTINE xios(get_scalargroup_attr_hdl) 157 219 158 220 SUBROUTINE xios(get_scalargroup_attr_hdl_) & 159 ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_ &160 , value_ )221 ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_ & 222 , name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 161 223 162 224 IMPLICIT NONE 163 225 TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl 226 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_ 227 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:) 228 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_ 229 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 164 230 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 231 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label_ 165 232 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 166 233 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 234 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ 167 235 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 168 236 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_ … … 171 239 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_ 172 240 241 IF (PRESENT(axis_type_)) THEN 242 CALL cxios_get_scalargroup_axis_type & 243 (scalargroup_hdl%daddr, axis_type_, len(axis_type_)) 244 ENDIF 245 246 IF (PRESENT(bounds_)) THEN 247 CALL cxios_get_scalargroup_bounds & 248 (scalargroup_hdl%daddr, bounds_, SHAPE(bounds_)) 249 ENDIF 250 251 IF (PRESENT(bounds_name_)) THEN 252 CALL cxios_get_scalargroup_bounds_name & 253 (scalargroup_hdl%daddr, bounds_name_, len(bounds_name_)) 254 ENDIF 255 256 IF (PRESENT(comment_)) THEN 257 CALL cxios_get_scalargroup_comment & 258 (scalargroup_hdl%daddr, comment_, len(comment_)) 259 ENDIF 260 173 261 IF (PRESENT(group_ref_)) THEN 174 262 CALL cxios_get_scalargroup_group_ref & … … 176 264 ENDIF 177 265 266 IF (PRESENT(label_)) THEN 267 CALL cxios_get_scalargroup_label & 268 (scalargroup_hdl%daddr, label_, len(label_)) 269 ENDIF 270 178 271 IF (PRESENT(long_name_)) THEN 179 272 CALL cxios_get_scalargroup_long_name & … … 186 279 ENDIF 187 280 281 IF (PRESENT(positive_)) THEN 282 CALL cxios_get_scalargroup_positive & 283 (scalargroup_hdl%daddr, positive_, len(positive_)) 284 ENDIF 285 188 286 IF (PRESENT(prec_)) THEN 189 287 CALL cxios_get_scalargroup_prec & … … 214 312 215 313 SUBROUTINE xios(is_defined_scalargroup_attr) & 216 ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value ) 314 ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name & 315 , positive, prec, scalar_ref, standard_name, unit, value ) 217 316 218 317 IMPLICIT NONE 219 318 TYPE(txios(scalargroup)) :: scalargroup_hdl 220 319 CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id 320 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type 321 LOGICAL(KIND=C_BOOL) :: axis_type_tmp 322 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds 323 LOGICAL(KIND=C_BOOL) :: bounds_tmp 324 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 325 LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 326 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 327 LOGICAL(KIND=C_BOOL) :: comment_tmp 221 328 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 222 329 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 330 LOGICAL, OPTIONAL, INTENT(OUT) :: label 331 LOGICAL(KIND=C_BOOL) :: label_tmp 223 332 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 224 333 LOGICAL(KIND=C_BOOL) :: long_name_tmp 225 334 LOGICAL, OPTIONAL, INTENT(OUT) :: name 226 335 LOGICAL(KIND=C_BOOL) :: name_tmp 336 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 337 LOGICAL(KIND=C_BOOL) :: positive_tmp 227 338 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 228 339 LOGICAL(KIND=C_BOOL) :: prec_tmp … … 239 350 (scalargroup_id,scalargroup_hdl) 240 351 CALL xios(is_defined_scalargroup_attr_hdl_) & 241 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value &242 )352 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name & 353 , positive, prec, scalar_ref, standard_name, unit, value ) 243 354 244 355 END SUBROUTINE xios(is_defined_scalargroup_attr) 245 356 246 357 SUBROUTINE xios(is_defined_scalargroup_attr_hdl) & 247 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value &248 )358 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name & 359 , positive, prec, scalar_ref, standard_name, unit, value ) 249 360 250 361 IMPLICIT NONE 251 362 TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl 363 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type 364 LOGICAL(KIND=C_BOOL) :: axis_type_tmp 365 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds 366 LOGICAL(KIND=C_BOOL) :: bounds_tmp 367 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 368 LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 369 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 370 LOGICAL(KIND=C_BOOL) :: comment_tmp 252 371 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 253 372 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 373 LOGICAL, OPTIONAL, INTENT(OUT) :: label 374 LOGICAL(KIND=C_BOOL) :: label_tmp 254 375 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 255 376 LOGICAL(KIND=C_BOOL) :: long_name_tmp 256 377 LOGICAL, OPTIONAL, INTENT(OUT) :: name 257 378 LOGICAL(KIND=C_BOOL) :: name_tmp 379 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 380 LOGICAL(KIND=C_BOOL) :: positive_tmp 258 381 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 259 382 LOGICAL(KIND=C_BOOL) :: prec_tmp … … 268 391 269 392 CALL xios(is_defined_scalargroup_attr_hdl_) & 270 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value &271 )393 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name & 394 , positive, prec, scalar_ref, standard_name, unit, value ) 272 395 273 396 END SUBROUTINE xios(is_defined_scalargroup_attr_hdl) 274 397 275 398 SUBROUTINE xios(is_defined_scalargroup_attr_hdl_) & 276 ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_ &277 , value_ )399 ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_ & 400 , name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 278 401 279 402 IMPLICIT NONE 280 403 TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl 404 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_ 405 LOGICAL(KIND=C_BOOL) :: axis_type__tmp 406 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_ 407 LOGICAL(KIND=C_BOOL) :: bounds__tmp 408 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_ 409 LOGICAL(KIND=C_BOOL) :: bounds_name__tmp 410 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 411 LOGICAL(KIND=C_BOOL) :: comment__tmp 281 412 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 282 413 LOGICAL(KIND=C_BOOL) :: group_ref__tmp 414 LOGICAL, OPTIONAL, INTENT(OUT) :: label_ 415 LOGICAL(KIND=C_BOOL) :: label__tmp 283 416 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 284 417 LOGICAL(KIND=C_BOOL) :: long_name__tmp 285 418 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 286 419 LOGICAL(KIND=C_BOOL) :: name__tmp 420 LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 421 LOGICAL(KIND=C_BOOL) :: positive__tmp 287 422 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 288 423 LOGICAL(KIND=C_BOOL) :: prec__tmp … … 296 431 LOGICAL(KIND=C_BOOL) :: value__tmp 297 432 433 IF (PRESENT(axis_type_)) THEN 434 axis_type__tmp = cxios_is_defined_scalargroup_axis_type & 435 (scalargroup_hdl%daddr) 436 axis_type_ = axis_type__tmp 437 ENDIF 438 439 IF (PRESENT(bounds_)) THEN 440 bounds__tmp = cxios_is_defined_scalargroup_bounds & 441 (scalargroup_hdl%daddr) 442 bounds_ = bounds__tmp 443 ENDIF 444 445 IF (PRESENT(bounds_name_)) THEN 446 bounds_name__tmp = cxios_is_defined_scalargroup_bounds_name & 447 (scalargroup_hdl%daddr) 448 bounds_name_ = bounds_name__tmp 449 ENDIF 450 451 IF (PRESENT(comment_)) THEN 452 comment__tmp = cxios_is_defined_scalargroup_comment & 453 (scalargroup_hdl%daddr) 454 comment_ = comment__tmp 455 ENDIF 456 298 457 IF (PRESENT(group_ref_)) THEN 299 458 group_ref__tmp = cxios_is_defined_scalargroup_group_ref & … … 302 461 ENDIF 303 462 463 IF (PRESENT(label_)) THEN 464 label__tmp = cxios_is_defined_scalargroup_label & 465 (scalargroup_hdl%daddr) 466 label_ = label__tmp 467 ENDIF 468 304 469 IF (PRESENT(long_name_)) THEN 305 470 long_name__tmp = cxios_is_defined_scalargroup_long_name & … … 314 479 ENDIF 315 480 481 IF (PRESENT(positive_)) THEN 482 positive__tmp = cxios_is_defined_scalargroup_positive & 483 (scalargroup_hdl%daddr) 484 positive_ = positive__tmp 485 ENDIF 486 316 487 IF (PRESENT(prec_)) THEN 317 488 prec__tmp = cxios_is_defined_scalargroup_prec & -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/reduce_domain_to_axis_interface_attr.F90
r981 r1492 31 31 32 32 33 SUBROUTINE cxios_set_reduce_domain_to_axis_local(reduce_domain_to_axis_hdl, local) BIND(C) 34 USE ISO_C_BINDING 35 INTEGER (kind = C_INTPTR_T), VALUE :: reduce_domain_to_axis_hdl 36 LOGICAL (KIND=C_BOOL) , VALUE :: local 37 END SUBROUTINE cxios_set_reduce_domain_to_axis_local 38 39 SUBROUTINE cxios_get_reduce_domain_to_axis_local(reduce_domain_to_axis_hdl, local) BIND(C) 40 USE ISO_C_BINDING 41 INTEGER (kind = C_INTPTR_T), VALUE :: reduce_domain_to_axis_hdl 42 LOGICAL (KIND=C_BOOL) :: local 43 END SUBROUTINE cxios_get_reduce_domain_to_axis_local 44 45 FUNCTION cxios_is_defined_reduce_domain_to_axis_local(reduce_domain_to_axis_hdl) BIND(C) 46 USE ISO_C_BINDING 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_reduce_domain_to_axis_local 48 INTEGER (kind = C_INTPTR_T), VALUE :: reduce_domain_to_axis_hdl 49 END FUNCTION cxios_is_defined_reduce_domain_to_axis_local 50 51 33 52 SUBROUTINE cxios_set_reduce_domain_to_axis_operation(reduce_domain_to_axis_hdl, operation, operation_size) BIND(C) 34 53 USE ISO_C_BINDING -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/reduce_domain_to_scalar_interface_attr.F90
r981 r1492 9 9 INTERFACE 10 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 SUBROUTINE cxios_set_reduce_domain_to_scalar_local(reduce_domain_to_scalar_hdl, local) BIND(C) 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: reduce_domain_to_scalar_hdl 15 LOGICAL (KIND=C_BOOL) , VALUE :: local 16 END SUBROUTINE cxios_set_reduce_domain_to_scalar_local 17 18 SUBROUTINE cxios_get_reduce_domain_to_scalar_local(reduce_domain_to_scalar_hdl, local) BIND(C) 19 USE ISO_C_BINDING 20 INTEGER (kind = C_INTPTR_T), VALUE :: reduce_domain_to_scalar_hdl 21 LOGICAL (KIND=C_BOOL) :: local 22 END SUBROUTINE cxios_get_reduce_domain_to_scalar_local 23 24 FUNCTION cxios_is_defined_reduce_domain_to_scalar_local(reduce_domain_to_scalar_hdl) BIND(C) 25 USE ISO_C_BINDING 26 LOGICAL(kind=C_BOOL) :: cxios_is_defined_reduce_domain_to_scalar_local 27 INTEGER (kind = C_INTPTR_T), VALUE :: reduce_domain_to_scalar_hdl 28 END FUNCTION cxios_is_defined_reduce_domain_to_scalar_local 29 11 30 12 31 SUBROUTINE cxios_set_reduce_domain_to_scalar_operation(reduce_domain_to_scalar_hdl, operation, operation_size) BIND(C) -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/scalar_interface_attr.F90
r1158 r1492 10 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 11 12 SUBROUTINE cxios_set_scalar_axis_type(scalar_hdl, axis_type, axis_type_size) BIND(C) 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 15 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_type 16 INTEGER (kind = C_INT) , VALUE :: axis_type_size 17 END SUBROUTINE cxios_set_scalar_axis_type 18 19 SUBROUTINE cxios_get_scalar_axis_type(scalar_hdl, axis_type, axis_type_size) BIND(C) 20 USE ISO_C_BINDING 21 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 22 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_type 23 INTEGER (kind = C_INT) , VALUE :: axis_type_size 24 END SUBROUTINE cxios_get_scalar_axis_type 25 26 FUNCTION cxios_is_defined_scalar_axis_type(scalar_hdl) BIND(C) 27 USE ISO_C_BINDING 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalar_axis_type 29 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 30 END FUNCTION cxios_is_defined_scalar_axis_type 31 32 33 SUBROUTINE cxios_set_scalar_bounds(scalar_hdl, bounds, extent) BIND(C) 34 USE ISO_C_BINDING 35 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 36 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds 37 INTEGER (kind = C_INT), DIMENSION(*) :: extent 38 END SUBROUTINE cxios_set_scalar_bounds 39 40 SUBROUTINE cxios_get_scalar_bounds(scalar_hdl, bounds, extent) BIND(C) 41 USE ISO_C_BINDING 42 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 43 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds 44 INTEGER (kind = C_INT), DIMENSION(*) :: extent 45 END SUBROUTINE cxios_get_scalar_bounds 46 47 FUNCTION cxios_is_defined_scalar_bounds(scalar_hdl) BIND(C) 48 USE ISO_C_BINDING 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalar_bounds 50 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 51 END FUNCTION cxios_is_defined_scalar_bounds 52 53 54 SUBROUTINE cxios_set_scalar_bounds_name(scalar_hdl, bounds_name, bounds_name_size) BIND(C) 55 USE ISO_C_BINDING 56 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 57 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_name 58 INTEGER (kind = C_INT) , VALUE :: bounds_name_size 59 END SUBROUTINE cxios_set_scalar_bounds_name 60 61 SUBROUTINE cxios_get_scalar_bounds_name(scalar_hdl, bounds_name, bounds_name_size) BIND(C) 62 USE ISO_C_BINDING 63 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 64 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_name 65 INTEGER (kind = C_INT) , VALUE :: bounds_name_size 66 END SUBROUTINE cxios_get_scalar_bounds_name 67 68 FUNCTION cxios_is_defined_scalar_bounds_name(scalar_hdl) BIND(C) 69 USE ISO_C_BINDING 70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalar_bounds_name 71 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 72 END FUNCTION cxios_is_defined_scalar_bounds_name 73 74 75 SUBROUTINE cxios_set_scalar_comment(scalar_hdl, comment, comment_size) BIND(C) 76 USE ISO_C_BINDING 77 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 78 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 79 INTEGER (kind = C_INT) , VALUE :: comment_size 80 END SUBROUTINE cxios_set_scalar_comment 81 82 SUBROUTINE cxios_get_scalar_comment(scalar_hdl, comment, comment_size) BIND(C) 83 USE ISO_C_BINDING 84 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 85 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 86 INTEGER (kind = C_INT) , VALUE :: comment_size 87 END SUBROUTINE cxios_get_scalar_comment 88 89 FUNCTION cxios_is_defined_scalar_comment(scalar_hdl) BIND(C) 90 USE ISO_C_BINDING 91 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalar_comment 92 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 93 END FUNCTION cxios_is_defined_scalar_comment 94 95 96 SUBROUTINE cxios_set_scalar_label(scalar_hdl, label, label_size) BIND(C) 97 USE ISO_C_BINDING 98 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 99 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: label 100 INTEGER (kind = C_INT) , VALUE :: label_size 101 END SUBROUTINE cxios_set_scalar_label 102 103 SUBROUTINE cxios_get_scalar_label(scalar_hdl, label, label_size) BIND(C) 104 USE ISO_C_BINDING 105 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 106 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: label 107 INTEGER (kind = C_INT) , VALUE :: label_size 108 END SUBROUTINE cxios_get_scalar_label 109 110 FUNCTION cxios_is_defined_scalar_label(scalar_hdl) BIND(C) 111 USE ISO_C_BINDING 112 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalar_label 113 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 114 END FUNCTION cxios_is_defined_scalar_label 115 116 12 117 SUBROUTINE cxios_set_scalar_long_name(scalar_hdl, long_name, long_name_size) BIND(C) 13 118 USE ISO_C_BINDING … … 52 157 53 158 159 SUBROUTINE cxios_set_scalar_positive(scalar_hdl, positive, positive_size) BIND(C) 160 USE ISO_C_BINDING 161 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 162 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: positive 163 INTEGER (kind = C_INT) , VALUE :: positive_size 164 END SUBROUTINE cxios_set_scalar_positive 165 166 SUBROUTINE cxios_get_scalar_positive(scalar_hdl, positive, positive_size) BIND(C) 167 USE ISO_C_BINDING 168 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 169 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: positive 170 INTEGER (kind = C_INT) , VALUE :: positive_size 171 END SUBROUTINE cxios_get_scalar_positive 172 173 FUNCTION cxios_is_defined_scalar_positive(scalar_hdl) BIND(C) 174 USE ISO_C_BINDING 175 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalar_positive 176 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 177 END FUNCTION cxios_is_defined_scalar_positive 178 179 54 180 SUBROUTINE cxios_set_scalar_prec(scalar_hdl, prec) BIND(C) 55 181 USE ISO_C_BINDING -
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/scalargroup_interface_attr.F90
r1158 r1492 10 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 11 12 SUBROUTINE cxios_set_scalargroup_axis_type(scalargroup_hdl, axis_type, axis_type_size) BIND(C) 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 15 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_type 16 INTEGER (kind = C_INT) , VALUE :: axis_type_size 17 END SUBROUTINE cxios_set_scalargroup_axis_type 18 19 SUBROUTINE cxios_get_scalargroup_axis_type(scalargroup_hdl, axis_type, axis_type_size) BIND(C) 20 USE ISO_C_BINDING 21 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 22 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_type 23 INTEGER (kind = C_INT) , VALUE :: axis_type_size 24 END SUBROUTINE cxios_get_scalargroup_axis_type 25 26 FUNCTION cxios_is_defined_scalargroup_axis_type(scalargroup_hdl) BIND(C) 27 USE ISO_C_BINDING 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_axis_type 29 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 30 END FUNCTION cxios_is_defined_scalargroup_axis_type 31 32 33 SUBROUTINE cxios_set_scalargroup_bounds(scalargroup_hdl, bounds, extent) BIND(C) 34 USE ISO_C_BINDING 35 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 36 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds 37 INTEGER (kind = C_INT), DIMENSION(*) :: extent 38 END SUBROUTINE cxios_set_scalargroup_bounds 39 40 SUBROUTINE cxios_get_scalargroup_bounds(scalargroup_hdl, bounds, extent) BIND(C) 41 USE ISO_C_BINDING 42 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 43 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds 44 INTEGER (kind = C_INT), DIMENSION(*) :: extent 45 END SUBROUTINE cxios_get_scalargroup_bounds 46 47 FUNCTION cxios_is_defined_scalargroup_bounds(scalargroup_hdl) BIND(C) 48 USE ISO_C_BINDING 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_bounds 50 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 51 END FUNCTION cxios_is_defined_scalargroup_bounds 52 53 54 SUBROUTINE cxios_set_scalargroup_bounds_name(scalargroup_hdl, bounds_name, bounds_name_size) BIND(C) 55 USE ISO_C_BINDING 56 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 57 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_name 58 INTEGER (kind = C_INT) , VALUE :: bounds_name_size 59 END SUBROUTINE cxios_set_scalargroup_bounds_name 60 61 SUBROUTINE cxios_get_scalargroup_bounds_name(scalargroup_hdl, bounds_name, bounds_name_size) BIND(C) 62 USE ISO_C_BINDING 63 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 64 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_name 65 INTEGER (kind = C_INT) , VALUE :: bounds_name_size 66 END SUBROUTINE cxios_get_scalargroup_bounds_name 67 68 FUNCTION cxios_is_defined_scalargroup_bounds_name(scalargroup_hdl) BIND(C) 69 USE ISO_C_BINDING 70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_bounds_name 71 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 72 END FUNCTION cxios_is_defined_scalargroup_bounds_name 73 74 75 SUBROUTINE cxios_set_scalargroup_comment(scalargroup_hdl, comment, comment_size) BIND(C) 76 USE ISO_C_BINDING 77 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 78 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 79 INTEGER (kind = C_INT) , VALUE :: comment_size 80 END SUBROUTINE cxios_set_scalargroup_comment 81 82 SUBROUTINE cxios_get_scalargroup_comment(scalargroup_hdl, comment, comment_size) BIND(C) 83 USE ISO_C_BINDING 84 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 85 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 86 INTEGER (kind = C_INT) , VALUE :: comment_size 87 END SUBROUTINE cxios_get_scalargroup_comment 88 89 FUNCTION cxios_is_defined_scalargroup_comment(scalargroup_hdl) BIND(C) 90 USE ISO_C_BINDING 91 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_comment 92 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 93 END FUNCTION cxios_is_defined_scalargroup_comment 94 95 12 96 SUBROUTINE cxios_set_scalargroup_group_ref(scalargroup_hdl, group_ref, group_ref_size) BIND(C) 13 97 USE ISO_C_BINDING … … 31 115 32 116 117 SUBROUTINE cxios_set_scalargroup_label(scalargroup_hdl, label, label_size) BIND(C) 118 USE ISO_C_BINDING 119 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 120 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: label 121 INTEGER (kind = C_INT) , VALUE :: label_size 122 END SUBROUTINE cxios_set_scalargroup_label 123 124 SUBROUTINE cxios_get_scalargroup_label(scalargroup_hdl, label, label_size) BIND(C) 125 USE ISO_C_BINDING 126 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 127 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: label 128 INTEGER (kind = C_INT) , VALUE :: label_size 129 END SUBROUTINE cxios_get_scalargroup_label 130 131 FUNCTION cxios_is_defined_scalargroup_label(scalargroup_hdl) BIND(C) 132 USE ISO_C_BINDING 133 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_label 134 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 135 END FUNCTION cxios_is_defined_scalargroup_label 136 137 33 138 SUBROUTINE cxios_set_scalargroup_long_name(scalargroup_hdl, long_name, long_name_size) BIND(C) 34 139 USE ISO_C_BINDING … … 73 178 74 179 180 SUBROUTINE cxios_set_scalargroup_positive(scalargroup_hdl, positive, positive_size) BIND(C) 181 USE ISO_C_BINDING 182 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 183 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: positive 184 INTEGER (kind = C_INT) , VALUE :: positive_size 185 END SUBROUTINE cxios_set_scalargroup_positive 186 187 SUBROUTINE cxios_get_scalargroup_positive(scalargroup_hdl, positive, positive_size) BIND(C) 188 USE ISO_C_BINDING 189 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 190 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: positive 191 INTEGER (kind = C_INT) , VALUE :: positive_size 192 END SUBROUTINE cxios_get_scalargroup_positive 193 194 FUNCTION cxios_is_defined_scalargroup_positive(scalargroup_hdl) BIND(C) 195 USE ISO_C_BINDING 196 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_positive 197 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 198 END FUNCTION cxios_is_defined_scalargroup_positive 199 200 75 201 SUBROUTINE cxios_set_scalargroup_prec(scalargroup_hdl, prec) BIND(C) 76 202 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.