Changeset 432 for XIOS/trunk/src/interface
- Timestamp:
- 06/03/13 11:21:19 (11 years ago)
- Location:
- XIOS/trunk/src/interface
- Files:
-
- 34 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/c_attr/icaxis_attr.cpp
r416 r432 35 35 } 36 36 37 bool cxios_is_defined_axis_long_name(axis_Ptr axis_hdl ) 38 { 39 CTimer::get("XIOS").resume(); 40 return !axis_hdl->long_name.isEmpty(); 41 CTimer::get("XIOS").suspend(); 42 } 43 44 37 45 38 46 void cxios_set_axis_name(axis_Ptr axis_hdl, const char * name, int name_size) … … 54 62 } 55 63 64 bool cxios_is_defined_axis_name(axis_Ptr axis_hdl ) 65 { 66 CTimer::get("XIOS").resume(); 67 return !axis_hdl->name.isEmpty(); 68 CTimer::get("XIOS").suspend(); 69 } 70 71 56 72 57 73 void cxios_set_axis_positive(axis_Ptr axis_hdl, const char * positive, int positive_size) … … 73 89 } 74 90 91 bool cxios_is_defined_axis_positive(axis_Ptr axis_hdl ) 92 { 93 CTimer::get("XIOS").resume(); 94 return !axis_hdl->positive.isEmpty(); 95 CTimer::get("XIOS").suspend(); 96 } 97 98 75 99 76 100 void cxios_set_axis_size(axis_Ptr axis_hdl, int size) … … 87 111 } 88 112 113 bool cxios_is_defined_axis_size(axis_Ptr axis_hdl ) 114 { 115 CTimer::get("XIOS").resume(); 116 return !axis_hdl->size.isEmpty(); 117 CTimer::get("XIOS").suspend(); 118 } 119 120 89 121 90 122 void cxios_set_axis_standard_name(axis_Ptr axis_hdl, const char * standard_name, int standard_name_size) … … 106 138 } 107 139 140 bool cxios_is_defined_axis_standard_name(axis_Ptr axis_hdl ) 141 { 142 CTimer::get("XIOS").resume(); 143 return !axis_hdl->standard_name.isEmpty(); 144 CTimer::get("XIOS").suspend(); 145 } 146 147 108 148 109 149 void cxios_set_axis_unit(axis_Ptr axis_hdl, const char * unit, int unit_size) … … 124 164 CTimer::get("XIOS").suspend(); 125 165 } 166 167 bool cxios_is_defined_axis_unit(axis_Ptr axis_hdl ) 168 { 169 CTimer::get("XIOS").resume(); 170 return !axis_hdl->unit.isEmpty(); 171 CTimer::get("XIOS").suspend(); 172 } 173 126 174 127 175 … … 143 191 } 144 192 193 bool cxios_is_defined_axis_value(axis_Ptr axis_hdl ) 194 { 195 CTimer::get("XIOS").resume(); 196 return !axis_hdl->value.isEmpty(); 197 CTimer::get("XIOS").suspend(); 198 } 199 200 145 201 146 202 void cxios_set_axis_zoom_begin(axis_Ptr axis_hdl, int zoom_begin) … … 157 213 } 158 214 215 bool cxios_is_defined_axis_zoom_begin(axis_Ptr axis_hdl ) 216 { 217 CTimer::get("XIOS").resume(); 218 return !axis_hdl->zoom_begin.isEmpty(); 219 CTimer::get("XIOS").suspend(); 220 } 221 222 159 223 160 224 void cxios_set_axis_zoom_end(axis_Ptr axis_hdl, int zoom_end) … … 171 235 } 172 236 237 bool cxios_is_defined_axis_zoom_end(axis_Ptr axis_hdl ) 238 { 239 CTimer::get("XIOS").resume(); 240 return !axis_hdl->zoom_end.isEmpty(); 241 CTimer::get("XIOS").suspend(); 242 } 243 244 173 245 174 246 void cxios_set_axis_zoom_size(axis_Ptr axis_hdl, int zoom_size) … … 185 257 } 186 258 259 bool cxios_is_defined_axis_zoom_size(axis_Ptr axis_hdl ) 260 { 261 CTimer::get("XIOS").resume(); 262 return !axis_hdl->zoom_size.isEmpty(); 263 CTimer::get("XIOS").suspend(); 264 } 265 266 187 267 188 268 -
XIOS/trunk/src/interface/c_attr/icaxisgroup_attr.cpp
r416 r432 35 35 } 36 36 37 bool cxios_is_defined_axisgroup_group_ref(axisgroup_Ptr axisgroup_hdl ) 38 { 39 CTimer::get("XIOS").resume(); 40 return !axisgroup_hdl->group_ref.isEmpty(); 41 CTimer::get("XIOS").suspend(); 42 } 43 44 37 45 38 46 void cxios_set_axisgroup_long_name(axisgroup_Ptr axisgroup_hdl, const char * long_name, int long_name_size) … … 54 62 } 55 63 64 bool cxios_is_defined_axisgroup_long_name(axisgroup_Ptr axisgroup_hdl ) 65 { 66 CTimer::get("XIOS").resume(); 67 return !axisgroup_hdl->long_name.isEmpty(); 68 CTimer::get("XIOS").suspend(); 69 } 70 71 56 72 57 73 void cxios_set_axisgroup_name(axisgroup_Ptr axisgroup_hdl, const char * name, int name_size) … … 73 89 } 74 90 91 bool cxios_is_defined_axisgroup_name(axisgroup_Ptr axisgroup_hdl ) 92 { 93 CTimer::get("XIOS").resume(); 94 return !axisgroup_hdl->name.isEmpty(); 95 CTimer::get("XIOS").suspend(); 96 } 97 98 75 99 76 100 void cxios_set_axisgroup_positive(axisgroup_Ptr axisgroup_hdl, const char * positive, int positive_size) … … 92 116 } 93 117 118 bool cxios_is_defined_axisgroup_positive(axisgroup_Ptr axisgroup_hdl ) 119 { 120 CTimer::get("XIOS").resume(); 121 return !axisgroup_hdl->positive.isEmpty(); 122 CTimer::get("XIOS").suspend(); 123 } 124 125 94 126 95 127 void cxios_set_axisgroup_size(axisgroup_Ptr axisgroup_hdl, int size) … … 106 138 } 107 139 140 bool cxios_is_defined_axisgroup_size(axisgroup_Ptr axisgroup_hdl ) 141 { 142 CTimer::get("XIOS").resume(); 143 return !axisgroup_hdl->size.isEmpty(); 144 CTimer::get("XIOS").suspend(); 145 } 146 147 108 148 109 149 void cxios_set_axisgroup_standard_name(axisgroup_Ptr axisgroup_hdl, const char * standard_name, int standard_name_size) … … 125 165 } 126 166 167 bool cxios_is_defined_axisgroup_standard_name(axisgroup_Ptr axisgroup_hdl ) 168 { 169 CTimer::get("XIOS").resume(); 170 return !axisgroup_hdl->standard_name.isEmpty(); 171 CTimer::get("XIOS").suspend(); 172 } 173 174 127 175 128 176 void cxios_set_axisgroup_unit(axisgroup_Ptr axisgroup_hdl, const char * unit, int unit_size) … … 143 191 CTimer::get("XIOS").suspend(); 144 192 } 193 194 bool cxios_is_defined_axisgroup_unit(axisgroup_Ptr axisgroup_hdl ) 195 { 196 CTimer::get("XIOS").resume(); 197 return !axisgroup_hdl->unit.isEmpty(); 198 CTimer::get("XIOS").suspend(); 199 } 200 145 201 146 202 … … 162 218 } 163 219 220 bool cxios_is_defined_axisgroup_value(axisgroup_Ptr axisgroup_hdl ) 221 { 222 CTimer::get("XIOS").resume(); 223 return !axisgroup_hdl->value.isEmpty(); 224 CTimer::get("XIOS").suspend(); 225 } 226 227 164 228 165 229 void cxios_set_axisgroup_zoom_begin(axisgroup_Ptr axisgroup_hdl, int zoom_begin) … … 176 240 } 177 241 242 bool cxios_is_defined_axisgroup_zoom_begin(axisgroup_Ptr axisgroup_hdl ) 243 { 244 CTimer::get("XIOS").resume(); 245 return !axisgroup_hdl->zoom_begin.isEmpty(); 246 CTimer::get("XIOS").suspend(); 247 } 248 249 178 250 179 251 void cxios_set_axisgroup_zoom_end(axisgroup_Ptr axisgroup_hdl, int zoom_end) … … 190 262 } 191 263 264 bool cxios_is_defined_axisgroup_zoom_end(axisgroup_Ptr axisgroup_hdl ) 265 { 266 CTimer::get("XIOS").resume(); 267 return !axisgroup_hdl->zoom_end.isEmpty(); 268 CTimer::get("XIOS").suspend(); 269 } 270 271 192 272 193 273 void cxios_set_axisgroup_zoom_size(axisgroup_Ptr axisgroup_hdl, int zoom_size) … … 204 284 } 205 285 286 bool cxios_is_defined_axisgroup_zoom_size(axisgroup_Ptr axisgroup_hdl ) 287 { 288 CTimer::get("XIOS").resume(); 289 return !axisgroup_hdl->zoom_size.isEmpty(); 290 CTimer::get("XIOS").suspend(); 291 } 292 293 206 294 207 295 -
XIOS/trunk/src/interface/c_attr/iccontext_attr.cpp
r369 r432 35 35 } 36 36 37 bool cxios_is_defined_context_calendar_type(context_Ptr context_hdl ) 38 { 39 CTimer::get("XIOS").resume(); 40 return !context_hdl->calendar_type.isEmpty(); 41 CTimer::get("XIOS").suspend(); 42 } 43 44 37 45 38 46 void cxios_set_context_output_dir(context_Ptr context_hdl, const char * output_dir, int output_dir_size) … … 53 61 CTimer::get("XIOS").suspend(); 54 62 } 63 64 bool cxios_is_defined_context_output_dir(context_Ptr context_hdl ) 65 { 66 CTimer::get("XIOS").resume(); 67 return !context_hdl->output_dir.isEmpty(); 68 CTimer::get("XIOS").suspend(); 69 } 70 55 71 56 72 … … 73 89 } 74 90 91 bool cxios_is_defined_context_start_date(context_Ptr context_hdl ) 92 { 93 CTimer::get("XIOS").resume(); 94 return !context_hdl->start_date.isEmpty(); 95 CTimer::get("XIOS").suspend(); 96 } 97 98 75 99 76 100 void cxios_set_context_time_origin(context_Ptr context_hdl, const char * time_origin, int time_origin_size) … … 91 115 CTimer::get("XIOS").suspend(); 92 116 } 117 118 bool cxios_is_defined_context_time_origin(context_Ptr context_hdl ) 119 { 120 CTimer::get("XIOS").resume(); 121 return !context_hdl->time_origin.isEmpty(); 122 CTimer::get("XIOS").suspend(); 123 } 124 93 125 94 126 … … 111 143 } 112 144 145 bool cxios_is_defined_context_timestep(context_Ptr context_hdl ) 146 { 147 CTimer::get("XIOS").resume(); 148 return !context_hdl->timestep.isEmpty(); 149 CTimer::get("XIOS").suspend(); 150 } 151 152 113 153 114 154 -
XIOS/trunk/src/interface/c_attr/icdomain_attr.cpp
r416 r432 30 30 } 31 31 32 bool cxios_is_defined_domain_data_dim(domain_Ptr domain_hdl ) 33 { 34 CTimer::get("XIOS").resume(); 35 return !domain_hdl->data_dim.isEmpty(); 36 CTimer::get("XIOS").suspend(); 37 } 38 39 32 40 33 41 void cxios_set_domain_data_i_index(domain_Ptr domain_hdl, int* data_i_index, int extent1) … … 48 56 } 49 57 58 bool cxios_is_defined_domain_data_i_index(domain_Ptr domain_hdl ) 59 { 60 CTimer::get("XIOS").resume(); 61 return !domain_hdl->data_i_index.isEmpty(); 62 CTimer::get("XIOS").suspend(); 63 } 64 65 50 66 51 67 void cxios_set_domain_data_ibegin(domain_Ptr domain_hdl, int data_ibegin) … … 61 77 *data_ibegin = domain_hdl->data_ibegin.getValue(); 62 78 } 79 80 bool cxios_is_defined_domain_data_ibegin(domain_Ptr domain_hdl ) 81 { 82 CTimer::get("XIOS").resume(); 83 return !domain_hdl->data_ibegin.isEmpty(); 84 CTimer::get("XIOS").suspend(); 85 } 86 63 87 64 88 … … 80 104 } 81 105 106 bool cxios_is_defined_domain_data_j_index(domain_Ptr domain_hdl ) 107 { 108 CTimer::get("XIOS").resume(); 109 return !domain_hdl->data_j_index.isEmpty(); 110 CTimer::get("XIOS").suspend(); 111 } 112 113 82 114 83 115 void cxios_set_domain_data_jbegin(domain_Ptr domain_hdl, int data_jbegin) … … 94 126 } 95 127 128 bool cxios_is_defined_domain_data_jbegin(domain_Ptr domain_hdl ) 129 { 130 CTimer::get("XIOS").resume(); 131 return !domain_hdl->data_jbegin.isEmpty(); 132 CTimer::get("XIOS").suspend(); 133 } 134 135 96 136 97 137 void cxios_set_domain_data_n_index(domain_Ptr domain_hdl, int data_n_index) … … 108 148 } 109 149 150 bool cxios_is_defined_domain_data_n_index(domain_Ptr domain_hdl ) 151 { 152 CTimer::get("XIOS").resume(); 153 return !domain_hdl->data_n_index.isEmpty(); 154 CTimer::get("XIOS").suspend(); 155 } 156 157 110 158 111 159 void cxios_set_domain_data_ni(domain_Ptr domain_hdl, int data_ni) … … 122 170 } 123 171 172 bool cxios_is_defined_domain_data_ni(domain_Ptr domain_hdl ) 173 { 174 CTimer::get("XIOS").resume(); 175 return !domain_hdl->data_ni.isEmpty(); 176 CTimer::get("XIOS").suspend(); 177 } 178 179 124 180 125 181 void cxios_set_domain_data_nj(domain_Ptr domain_hdl, int data_nj) … … 136 192 } 137 193 194 bool cxios_is_defined_domain_data_nj(domain_Ptr domain_hdl ) 195 { 196 CTimer::get("XIOS").resume(); 197 return !domain_hdl->data_nj.isEmpty(); 198 CTimer::get("XIOS").suspend(); 199 } 200 201 138 202 139 203 void cxios_set_domain_domain_group_ref(domain_Ptr domain_hdl, const char * domain_group_ref, int domain_group_ref_size) … … 155 219 } 156 220 221 bool cxios_is_defined_domain_domain_group_ref(domain_Ptr domain_hdl ) 222 { 223 CTimer::get("XIOS").resume(); 224 return !domain_hdl->domain_group_ref.isEmpty(); 225 CTimer::get("XIOS").suspend(); 226 } 227 228 157 229 158 230 void cxios_set_domain_ibegin(domain_Ptr domain_hdl, int ibegin) … … 169 241 } 170 242 243 bool cxios_is_defined_domain_ibegin(domain_Ptr domain_hdl ) 244 { 245 CTimer::get("XIOS").resume(); 246 return !domain_hdl->ibegin.isEmpty(); 247 CTimer::get("XIOS").suspend(); 248 } 249 250 171 251 172 252 void cxios_set_domain_iend(domain_Ptr domain_hdl, int iend) … … 183 263 } 184 264 265 bool cxios_is_defined_domain_iend(domain_Ptr domain_hdl ) 266 { 267 CTimer::get("XIOS").resume(); 268 return !domain_hdl->iend.isEmpty(); 269 CTimer::get("XIOS").suspend(); 270 } 271 272 185 273 186 274 void cxios_set_domain_jbegin(domain_Ptr domain_hdl, int jbegin) … … 197 285 } 198 286 287 bool cxios_is_defined_domain_jbegin(domain_Ptr domain_hdl ) 288 { 289 CTimer::get("XIOS").resume(); 290 return !domain_hdl->jbegin.isEmpty(); 291 CTimer::get("XIOS").suspend(); 292 } 293 294 199 295 200 296 void cxios_set_domain_jend(domain_Ptr domain_hdl, int jend) … … 210 306 *jend = domain_hdl->jend.getValue(); 211 307 } 308 309 bool cxios_is_defined_domain_jend(domain_Ptr domain_hdl ) 310 { 311 CTimer::get("XIOS").resume(); 312 return !domain_hdl->jend.isEmpty(); 313 CTimer::get("XIOS").suspend(); 314 } 315 212 316 213 317 … … 229 333 } 230 334 335 bool cxios_is_defined_domain_latvalue(domain_Ptr domain_hdl ) 336 { 337 CTimer::get("XIOS").resume(); 338 return !domain_hdl->latvalue.isEmpty(); 339 CTimer::get("XIOS").suspend(); 340 } 341 342 231 343 232 344 void cxios_set_domain_long_name(domain_Ptr domain_hdl, const char * long_name, int long_name_size) … … 247 359 CTimer::get("XIOS").suspend(); 248 360 } 361 362 bool cxios_is_defined_domain_long_name(domain_Ptr domain_hdl ) 363 { 364 CTimer::get("XIOS").resume(); 365 return !domain_hdl->long_name.isEmpty(); 366 CTimer::get("XIOS").suspend(); 367 } 368 249 369 250 370 … … 266 386 } 267 387 388 bool cxios_is_defined_domain_lonvalue(domain_Ptr domain_hdl ) 389 { 390 CTimer::get("XIOS").resume(); 391 return !domain_hdl->lonvalue.isEmpty(); 392 CTimer::get("XIOS").suspend(); 393 } 394 395 268 396 269 397 void cxios_set_domain_mask(domain_Ptr domain_hdl, bool* mask, int extent1, int extent2) … … 284 412 } 285 413 414 bool cxios_is_defined_domain_mask(domain_Ptr domain_hdl ) 415 { 416 CTimer::get("XIOS").resume(); 417 return !domain_hdl->mask.isEmpty(); 418 CTimer::get("XIOS").suspend(); 419 } 420 421 286 422 287 423 void cxios_set_domain_name(domain_Ptr domain_hdl, const char * name, int name_size) … … 303 439 } 304 440 441 bool cxios_is_defined_domain_name(domain_Ptr domain_hdl ) 442 { 443 CTimer::get("XIOS").resume(); 444 return !domain_hdl->name.isEmpty(); 445 CTimer::get("XIOS").suspend(); 446 } 447 448 305 449 306 450 void cxios_set_domain_ni(domain_Ptr domain_hdl, int ni) … … 317 461 } 318 462 463 bool cxios_is_defined_domain_ni(domain_Ptr domain_hdl ) 464 { 465 CTimer::get("XIOS").resume(); 466 return !domain_hdl->ni.isEmpty(); 467 CTimer::get("XIOS").suspend(); 468 } 469 470 319 471 320 472 void cxios_set_domain_ni_glo(domain_Ptr domain_hdl, int ni_glo) … … 331 483 } 332 484 485 bool cxios_is_defined_domain_ni_glo(domain_Ptr domain_hdl ) 486 { 487 CTimer::get("XIOS").resume(); 488 return !domain_hdl->ni_glo.isEmpty(); 489 CTimer::get("XIOS").suspend(); 490 } 491 492 333 493 334 494 void cxios_set_domain_nj(domain_Ptr domain_hdl, int nj) … … 345 505 } 346 506 507 bool cxios_is_defined_domain_nj(domain_Ptr domain_hdl ) 508 { 509 CTimer::get("XIOS").resume(); 510 return !domain_hdl->nj.isEmpty(); 511 CTimer::get("XIOS").suspend(); 512 } 513 514 347 515 348 516 void cxios_set_domain_nj_glo(domain_Ptr domain_hdl, int nj_glo) … … 359 527 } 360 528 529 bool cxios_is_defined_domain_nj_glo(domain_Ptr domain_hdl ) 530 { 531 CTimer::get("XIOS").resume(); 532 return !domain_hdl->nj_glo.isEmpty(); 533 CTimer::get("XIOS").suspend(); 534 } 535 536 361 537 362 538 void cxios_set_domain_standard_name(domain_Ptr domain_hdl, const char * standard_name, int standard_name_size) … … 378 554 } 379 555 556 bool cxios_is_defined_domain_standard_name(domain_Ptr domain_hdl ) 557 { 558 CTimer::get("XIOS").resume(); 559 return !domain_hdl->standard_name.isEmpty(); 560 CTimer::get("XIOS").suspend(); 561 } 562 563 380 564 381 565 void cxios_set_domain_zoom_ibegin(domain_Ptr domain_hdl, int zoom_ibegin) … … 392 576 } 393 577 578 bool cxios_is_defined_domain_zoom_ibegin(domain_Ptr domain_hdl ) 579 { 580 CTimer::get("XIOS").resume(); 581 return !domain_hdl->zoom_ibegin.isEmpty(); 582 CTimer::get("XIOS").suspend(); 583 } 584 585 394 586 395 587 void cxios_set_domain_zoom_ibegin_loc(domain_Ptr domain_hdl, int zoom_ibegin_loc) … … 406 598 } 407 599 600 bool cxios_is_defined_domain_zoom_ibegin_loc(domain_Ptr domain_hdl ) 601 { 602 CTimer::get("XIOS").resume(); 603 return !domain_hdl->zoom_ibegin_loc.isEmpty(); 604 CTimer::get("XIOS").suspend(); 605 } 606 607 408 608 409 609 void cxios_set_domain_zoom_jbegin(domain_Ptr domain_hdl, int zoom_jbegin) … … 420 620 } 421 621 622 bool cxios_is_defined_domain_zoom_jbegin(domain_Ptr domain_hdl ) 623 { 624 CTimer::get("XIOS").resume(); 625 return !domain_hdl->zoom_jbegin.isEmpty(); 626 CTimer::get("XIOS").suspend(); 627 } 628 629 422 630 423 631 void cxios_set_domain_zoom_jbegin_loc(domain_Ptr domain_hdl, int zoom_jbegin_loc) … … 434 642 } 435 643 644 bool cxios_is_defined_domain_zoom_jbegin_loc(domain_Ptr domain_hdl ) 645 { 646 CTimer::get("XIOS").resume(); 647 return !domain_hdl->zoom_jbegin_loc.isEmpty(); 648 CTimer::get("XIOS").suspend(); 649 } 650 651 436 652 437 653 void cxios_set_domain_zoom_ni(domain_Ptr domain_hdl, int zoom_ni) … … 448 664 } 449 665 666 bool cxios_is_defined_domain_zoom_ni(domain_Ptr domain_hdl ) 667 { 668 CTimer::get("XIOS").resume(); 669 return !domain_hdl->zoom_ni.isEmpty(); 670 CTimer::get("XIOS").suspend(); 671 } 672 673 450 674 451 675 void cxios_set_domain_zoom_ni_loc(domain_Ptr domain_hdl, int zoom_ni_loc) … … 462 686 } 463 687 688 bool cxios_is_defined_domain_zoom_ni_loc(domain_Ptr domain_hdl ) 689 { 690 CTimer::get("XIOS").resume(); 691 return !domain_hdl->zoom_ni_loc.isEmpty(); 692 CTimer::get("XIOS").suspend(); 693 } 694 695 464 696 465 697 void cxios_set_domain_zoom_nj(domain_Ptr domain_hdl, int zoom_nj) … … 476 708 } 477 709 710 bool cxios_is_defined_domain_zoom_nj(domain_Ptr domain_hdl ) 711 { 712 CTimer::get("XIOS").resume(); 713 return !domain_hdl->zoom_nj.isEmpty(); 714 CTimer::get("XIOS").suspend(); 715 } 716 717 478 718 479 719 void cxios_set_domain_zoom_nj_loc(domain_Ptr domain_hdl, int zoom_nj_loc) … … 490 730 } 491 731 732 bool cxios_is_defined_domain_zoom_nj_loc(domain_Ptr domain_hdl ) 733 { 734 CTimer::get("XIOS").resume(); 735 return !domain_hdl->zoom_nj_loc.isEmpty(); 736 CTimer::get("XIOS").suspend(); 737 } 738 739 492 740 493 741 -
XIOS/trunk/src/interface/c_attr/icdomaingroup_attr.cpp
r416 r432 30 30 } 31 31 32 bool cxios_is_defined_domaingroup_data_dim(domaingroup_Ptr domaingroup_hdl ) 33 { 34 CTimer::get("XIOS").resume(); 35 return !domaingroup_hdl->data_dim.isEmpty(); 36 CTimer::get("XIOS").suspend(); 37 } 38 39 32 40 33 41 void cxios_set_domaingroup_data_i_index(domaingroup_Ptr domaingroup_hdl, int* data_i_index, int extent1) … … 48 56 } 49 57 58 bool cxios_is_defined_domaingroup_data_i_index(domaingroup_Ptr domaingroup_hdl ) 59 { 60 CTimer::get("XIOS").resume(); 61 return !domaingroup_hdl->data_i_index.isEmpty(); 62 CTimer::get("XIOS").suspend(); 63 } 64 65 50 66 51 67 void cxios_set_domaingroup_data_ibegin(domaingroup_Ptr domaingroup_hdl, int data_ibegin) … … 61 77 *data_ibegin = domaingroup_hdl->data_ibegin.getValue(); 62 78 } 79 80 bool cxios_is_defined_domaingroup_data_ibegin(domaingroup_Ptr domaingroup_hdl ) 81 { 82 CTimer::get("XIOS").resume(); 83 return !domaingroup_hdl->data_ibegin.isEmpty(); 84 CTimer::get("XIOS").suspend(); 85 } 86 63 87 64 88 … … 80 104 } 81 105 106 bool cxios_is_defined_domaingroup_data_j_index(domaingroup_Ptr domaingroup_hdl ) 107 { 108 CTimer::get("XIOS").resume(); 109 return !domaingroup_hdl->data_j_index.isEmpty(); 110 CTimer::get("XIOS").suspend(); 111 } 112 113 82 114 83 115 void cxios_set_domaingroup_data_jbegin(domaingroup_Ptr domaingroup_hdl, int data_jbegin) … … 94 126 } 95 127 128 bool cxios_is_defined_domaingroup_data_jbegin(domaingroup_Ptr domaingroup_hdl ) 129 { 130 CTimer::get("XIOS").resume(); 131 return !domaingroup_hdl->data_jbegin.isEmpty(); 132 CTimer::get("XIOS").suspend(); 133 } 134 135 96 136 97 137 void cxios_set_domaingroup_data_n_index(domaingroup_Ptr domaingroup_hdl, int data_n_index) … … 108 148 } 109 149 150 bool cxios_is_defined_domaingroup_data_n_index(domaingroup_Ptr domaingroup_hdl ) 151 { 152 CTimer::get("XIOS").resume(); 153 return !domaingroup_hdl->data_n_index.isEmpty(); 154 CTimer::get("XIOS").suspend(); 155 } 156 157 110 158 111 159 void cxios_set_domaingroup_data_ni(domaingroup_Ptr domaingroup_hdl, int data_ni) … … 122 170 } 123 171 172 bool cxios_is_defined_domaingroup_data_ni(domaingroup_Ptr domaingroup_hdl ) 173 { 174 CTimer::get("XIOS").resume(); 175 return !domaingroup_hdl->data_ni.isEmpty(); 176 CTimer::get("XIOS").suspend(); 177 } 178 179 124 180 125 181 void cxios_set_domaingroup_data_nj(domaingroup_Ptr domaingroup_hdl, int data_nj) … … 136 192 } 137 193 194 bool cxios_is_defined_domaingroup_data_nj(domaingroup_Ptr domaingroup_hdl ) 195 { 196 CTimer::get("XIOS").resume(); 197 return !domaingroup_hdl->data_nj.isEmpty(); 198 CTimer::get("XIOS").suspend(); 199 } 200 201 138 202 139 203 void cxios_set_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl, const char * domain_group_ref, int domain_group_ref_size) … … 155 219 } 156 220 221 bool cxios_is_defined_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl ) 222 { 223 CTimer::get("XIOS").resume(); 224 return !domaingroup_hdl->domain_group_ref.isEmpty(); 225 CTimer::get("XIOS").suspend(); 226 } 227 228 157 229 158 230 void cxios_set_domaingroup_group_ref(domaingroup_Ptr domaingroup_hdl, const char * group_ref, int group_ref_size) … … 174 246 } 175 247 248 bool cxios_is_defined_domaingroup_group_ref(domaingroup_Ptr domaingroup_hdl ) 249 { 250 CTimer::get("XIOS").resume(); 251 return !domaingroup_hdl->group_ref.isEmpty(); 252 CTimer::get("XIOS").suspend(); 253 } 254 255 176 256 177 257 void cxios_set_domaingroup_ibegin(domaingroup_Ptr domaingroup_hdl, int ibegin) … … 188 268 } 189 269 270 bool cxios_is_defined_domaingroup_ibegin(domaingroup_Ptr domaingroup_hdl ) 271 { 272 CTimer::get("XIOS").resume(); 273 return !domaingroup_hdl->ibegin.isEmpty(); 274 CTimer::get("XIOS").suspend(); 275 } 276 277 190 278 191 279 void cxios_set_domaingroup_iend(domaingroup_Ptr domaingroup_hdl, int iend) … … 202 290 } 203 291 292 bool cxios_is_defined_domaingroup_iend(domaingroup_Ptr domaingroup_hdl ) 293 { 294 CTimer::get("XIOS").resume(); 295 return !domaingroup_hdl->iend.isEmpty(); 296 CTimer::get("XIOS").suspend(); 297 } 298 299 204 300 205 301 void cxios_set_domaingroup_jbegin(domaingroup_Ptr domaingroup_hdl, int jbegin) … … 216 312 } 217 313 314 bool cxios_is_defined_domaingroup_jbegin(domaingroup_Ptr domaingroup_hdl ) 315 { 316 CTimer::get("XIOS").resume(); 317 return !domaingroup_hdl->jbegin.isEmpty(); 318 CTimer::get("XIOS").suspend(); 319 } 320 321 218 322 219 323 void cxios_set_domaingroup_jend(domaingroup_Ptr domaingroup_hdl, int jend) … … 229 333 *jend = domaingroup_hdl->jend.getValue(); 230 334 } 335 336 bool cxios_is_defined_domaingroup_jend(domaingroup_Ptr domaingroup_hdl ) 337 { 338 CTimer::get("XIOS").resume(); 339 return !domaingroup_hdl->jend.isEmpty(); 340 CTimer::get("XIOS").suspend(); 341 } 342 231 343 232 344 … … 248 360 } 249 361 362 bool cxios_is_defined_domaingroup_latvalue(domaingroup_Ptr domaingroup_hdl ) 363 { 364 CTimer::get("XIOS").resume(); 365 return !domaingroup_hdl->latvalue.isEmpty(); 366 CTimer::get("XIOS").suspend(); 367 } 368 369 250 370 251 371 void cxios_set_domaingroup_long_name(domaingroup_Ptr domaingroup_hdl, const char * long_name, int long_name_size) … … 266 386 CTimer::get("XIOS").suspend(); 267 387 } 388 389 bool cxios_is_defined_domaingroup_long_name(domaingroup_Ptr domaingroup_hdl ) 390 { 391 CTimer::get("XIOS").resume(); 392 return !domaingroup_hdl->long_name.isEmpty(); 393 CTimer::get("XIOS").suspend(); 394 } 395 268 396 269 397 … … 285 413 } 286 414 415 bool cxios_is_defined_domaingroup_lonvalue(domaingroup_Ptr domaingroup_hdl ) 416 { 417 CTimer::get("XIOS").resume(); 418 return !domaingroup_hdl->lonvalue.isEmpty(); 419 CTimer::get("XIOS").suspend(); 420 } 421 422 287 423 288 424 void cxios_set_domaingroup_mask(domaingroup_Ptr domaingroup_hdl, bool* mask, int extent1, int extent2) … … 303 439 } 304 440 441 bool cxios_is_defined_domaingroup_mask(domaingroup_Ptr domaingroup_hdl ) 442 { 443 CTimer::get("XIOS").resume(); 444 return !domaingroup_hdl->mask.isEmpty(); 445 CTimer::get("XIOS").suspend(); 446 } 447 448 305 449 306 450 void cxios_set_domaingroup_name(domaingroup_Ptr domaingroup_hdl, const char * name, int name_size) … … 322 466 } 323 467 468 bool cxios_is_defined_domaingroup_name(domaingroup_Ptr domaingroup_hdl ) 469 { 470 CTimer::get("XIOS").resume(); 471 return !domaingroup_hdl->name.isEmpty(); 472 CTimer::get("XIOS").suspend(); 473 } 474 475 324 476 325 477 void cxios_set_domaingroup_ni(domaingroup_Ptr domaingroup_hdl, int ni) … … 336 488 } 337 489 490 bool cxios_is_defined_domaingroup_ni(domaingroup_Ptr domaingroup_hdl ) 491 { 492 CTimer::get("XIOS").resume(); 493 return !domaingroup_hdl->ni.isEmpty(); 494 CTimer::get("XIOS").suspend(); 495 } 496 497 338 498 339 499 void cxios_set_domaingroup_ni_glo(domaingroup_Ptr domaingroup_hdl, int ni_glo) … … 350 510 } 351 511 512 bool cxios_is_defined_domaingroup_ni_glo(domaingroup_Ptr domaingroup_hdl ) 513 { 514 CTimer::get("XIOS").resume(); 515 return !domaingroup_hdl->ni_glo.isEmpty(); 516 CTimer::get("XIOS").suspend(); 517 } 518 519 352 520 353 521 void cxios_set_domaingroup_nj(domaingroup_Ptr domaingroup_hdl, int nj) … … 364 532 } 365 533 534 bool cxios_is_defined_domaingroup_nj(domaingroup_Ptr domaingroup_hdl ) 535 { 536 CTimer::get("XIOS").resume(); 537 return !domaingroup_hdl->nj.isEmpty(); 538 CTimer::get("XIOS").suspend(); 539 } 540 541 366 542 367 543 void cxios_set_domaingroup_nj_glo(domaingroup_Ptr domaingroup_hdl, int nj_glo) … … 378 554 } 379 555 556 bool cxios_is_defined_domaingroup_nj_glo(domaingroup_Ptr domaingroup_hdl ) 557 { 558 CTimer::get("XIOS").resume(); 559 return !domaingroup_hdl->nj_glo.isEmpty(); 560 CTimer::get("XIOS").suspend(); 561 } 562 563 380 564 381 565 void cxios_set_domaingroup_standard_name(domaingroup_Ptr domaingroup_hdl, const char * standard_name, int standard_name_size) … … 397 581 } 398 582 583 bool cxios_is_defined_domaingroup_standard_name(domaingroup_Ptr domaingroup_hdl ) 584 { 585 CTimer::get("XIOS").resume(); 586 return !domaingroup_hdl->standard_name.isEmpty(); 587 CTimer::get("XIOS").suspend(); 588 } 589 590 399 591 400 592 void cxios_set_domaingroup_zoom_ibegin(domaingroup_Ptr domaingroup_hdl, int zoom_ibegin) … … 411 603 } 412 604 605 bool cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_Ptr domaingroup_hdl ) 606 { 607 CTimer::get("XIOS").resume(); 608 return !domaingroup_hdl->zoom_ibegin.isEmpty(); 609 CTimer::get("XIOS").suspend(); 610 } 611 612 413 613 414 614 void cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_Ptr domaingroup_hdl, int zoom_ibegin_loc) … … 425 625 } 426 626 627 bool cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_Ptr domaingroup_hdl ) 628 { 629 CTimer::get("XIOS").resume(); 630 return !domaingroup_hdl->zoom_ibegin_loc.isEmpty(); 631 CTimer::get("XIOS").suspend(); 632 } 633 634 427 635 428 636 void cxios_set_domaingroup_zoom_jbegin(domaingroup_Ptr domaingroup_hdl, int zoom_jbegin) … … 439 647 } 440 648 649 bool cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_Ptr domaingroup_hdl ) 650 { 651 CTimer::get("XIOS").resume(); 652 return !domaingroup_hdl->zoom_jbegin.isEmpty(); 653 CTimer::get("XIOS").suspend(); 654 } 655 656 441 657 442 658 void cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_Ptr domaingroup_hdl, int zoom_jbegin_loc) … … 453 669 } 454 670 671 bool cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_Ptr domaingroup_hdl ) 672 { 673 CTimer::get("XIOS").resume(); 674 return !domaingroup_hdl->zoom_jbegin_loc.isEmpty(); 675 CTimer::get("XIOS").suspend(); 676 } 677 678 455 679 456 680 void cxios_set_domaingroup_zoom_ni(domaingroup_Ptr domaingroup_hdl, int zoom_ni) … … 467 691 } 468 692 693 bool cxios_is_defined_domaingroup_zoom_ni(domaingroup_Ptr domaingroup_hdl ) 694 { 695 CTimer::get("XIOS").resume(); 696 return !domaingroup_hdl->zoom_ni.isEmpty(); 697 CTimer::get("XIOS").suspend(); 698 } 699 700 469 701 470 702 void cxios_set_domaingroup_zoom_ni_loc(domaingroup_Ptr domaingroup_hdl, int zoom_ni_loc) … … 481 713 } 482 714 715 bool cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_Ptr domaingroup_hdl ) 716 { 717 CTimer::get("XIOS").resume(); 718 return !domaingroup_hdl->zoom_ni_loc.isEmpty(); 719 CTimer::get("XIOS").suspend(); 720 } 721 722 483 723 484 724 void cxios_set_domaingroup_zoom_nj(domaingroup_Ptr domaingroup_hdl, int zoom_nj) … … 495 735 } 496 736 737 bool cxios_is_defined_domaingroup_zoom_nj(domaingroup_Ptr domaingroup_hdl ) 738 { 739 CTimer::get("XIOS").resume(); 740 return !domaingroup_hdl->zoom_nj.isEmpty(); 741 CTimer::get("XIOS").suspend(); 742 } 743 744 497 745 498 746 void cxios_set_domaingroup_zoom_nj_loc(domaingroup_Ptr domaingroup_hdl, int zoom_nj_loc) … … 509 757 } 510 758 759 bool cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_Ptr domaingroup_hdl ) 760 { 761 CTimer::get("XIOS").resume(); 762 return !domaingroup_hdl->zoom_nj_loc.isEmpty(); 763 CTimer::get("XIOS").suspend(); 764 } 765 766 511 767 512 768 -
XIOS/trunk/src/interface/c_attr/icfield_attr.cpp
r369 r432 35 35 } 36 36 37 bool cxios_is_defined_field_axis_ref(field_Ptr field_hdl ) 38 { 39 CTimer::get("XIOS").resume(); 40 return !field_hdl->axis_ref.isEmpty(); 41 CTimer::get("XIOS").suspend(); 42 } 43 44 37 45 38 46 void cxios_set_field_default_value(field_Ptr field_hdl, double default_value) … … 49 57 } 50 58 59 bool cxios_is_defined_field_default_value(field_Ptr field_hdl ) 60 { 61 CTimer::get("XIOS").resume(); 62 return !field_hdl->default_value.isEmpty(); 63 CTimer::get("XIOS").suspend(); 64 } 65 66 51 67 52 68 void cxios_set_field_domain_ref(field_Ptr field_hdl, const char * domain_ref, int domain_ref_size) … … 68 84 } 69 85 86 bool cxios_is_defined_field_domain_ref(field_Ptr field_hdl ) 87 { 88 CTimer::get("XIOS").resume(); 89 return !field_hdl->domain_ref.isEmpty(); 90 CTimer::get("XIOS").suspend(); 91 } 92 93 70 94 71 95 void cxios_set_field_enabled(field_Ptr field_hdl, bool enabled) … … 82 106 } 83 107 108 bool cxios_is_defined_field_enabled(field_Ptr field_hdl ) 109 { 110 CTimer::get("XIOS").resume(); 111 return !field_hdl->enabled.isEmpty(); 112 CTimer::get("XIOS").suspend(); 113 } 114 115 84 116 85 117 void cxios_set_field_field_ref(field_Ptr field_hdl, const char * field_ref, int field_ref_size) … … 101 133 } 102 134 135 bool cxios_is_defined_field_field_ref(field_Ptr field_hdl ) 136 { 137 CTimer::get("XIOS").resume(); 138 return !field_hdl->field_ref.isEmpty(); 139 CTimer::get("XIOS").suspend(); 140 } 141 142 103 143 104 144 void cxios_set_field_freq_offset(field_Ptr field_hdl, const char * freq_offset, int freq_offset_size) … … 120 160 } 121 161 162 bool cxios_is_defined_field_freq_offset(field_Ptr field_hdl ) 163 { 164 CTimer::get("XIOS").resume(); 165 return !field_hdl->freq_offset.isEmpty(); 166 CTimer::get("XIOS").suspend(); 167 } 168 169 122 170 123 171 void cxios_set_field_freq_op(field_Ptr field_hdl, const char * freq_op, int freq_op_size) … … 139 187 } 140 188 189 bool cxios_is_defined_field_freq_op(field_Ptr field_hdl ) 190 { 191 CTimer::get("XIOS").resume(); 192 return !field_hdl->freq_op.isEmpty(); 193 CTimer::get("XIOS").suspend(); 194 } 195 196 141 197 142 198 void cxios_set_field_grid_ref(field_Ptr field_hdl, const char * grid_ref, int grid_ref_size) … … 158 214 } 159 215 216 bool cxios_is_defined_field_grid_ref(field_Ptr field_hdl ) 217 { 218 CTimer::get("XIOS").resume(); 219 return !field_hdl->grid_ref.isEmpty(); 220 CTimer::get("XIOS").suspend(); 221 } 222 223 160 224 161 225 void cxios_set_field_level(field_Ptr field_hdl, int level) … … 172 236 } 173 237 238 bool cxios_is_defined_field_level(field_Ptr field_hdl ) 239 { 240 CTimer::get("XIOS").resume(); 241 return !field_hdl->level.isEmpty(); 242 CTimer::get("XIOS").suspend(); 243 } 244 245 174 246 175 247 void cxios_set_field_long_name(field_Ptr field_hdl, const char * long_name, int long_name_size) … … 191 263 } 192 264 265 bool cxios_is_defined_field_long_name(field_Ptr field_hdl ) 266 { 267 CTimer::get("XIOS").resume(); 268 return !field_hdl->long_name.isEmpty(); 269 CTimer::get("XIOS").suspend(); 270 } 271 272 193 273 194 274 void cxios_set_field_name(field_Ptr field_hdl, const char * name, int name_size) … … 210 290 } 211 291 292 bool cxios_is_defined_field_name(field_Ptr field_hdl ) 293 { 294 CTimer::get("XIOS").resume(); 295 return !field_hdl->name.isEmpty(); 296 CTimer::get("XIOS").suspend(); 297 } 298 299 212 300 213 301 void cxios_set_field_operation(field_Ptr field_hdl, const char * operation, int operation_size) … … 229 317 } 230 318 319 bool cxios_is_defined_field_operation(field_Ptr field_hdl ) 320 { 321 CTimer::get("XIOS").resume(); 322 return !field_hdl->operation.isEmpty(); 323 CTimer::get("XIOS").suspend(); 324 } 325 326 231 327 232 328 void cxios_set_field_prec(field_Ptr field_hdl, int prec) … … 243 339 } 244 340 341 bool cxios_is_defined_field_prec(field_Ptr field_hdl ) 342 { 343 CTimer::get("XIOS").resume(); 344 return !field_hdl->prec.isEmpty(); 345 CTimer::get("XIOS").suspend(); 346 } 347 348 245 349 246 350 void cxios_set_field_standard_name(field_Ptr field_hdl, const char * standard_name, int standard_name_size) … … 262 366 } 263 367 368 bool cxios_is_defined_field_standard_name(field_Ptr field_hdl ) 369 { 370 CTimer::get("XIOS").resume(); 371 return !field_hdl->standard_name.isEmpty(); 372 CTimer::get("XIOS").suspend(); 373 } 374 375 264 376 265 377 void cxios_set_field_unit(field_Ptr field_hdl, const char * unit, int unit_size) … … 281 393 } 282 394 395 bool cxios_is_defined_field_unit(field_Ptr field_hdl ) 396 { 397 CTimer::get("XIOS").resume(); 398 return !field_hdl->unit.isEmpty(); 399 CTimer::get("XIOS").suspend(); 400 } 401 402 283 403 284 404 -
XIOS/trunk/src/interface/c_attr/icfieldgroup_attr.cpp
r369 r432 35 35 } 36 36 37 bool cxios_is_defined_fieldgroup_axis_ref(fieldgroup_Ptr fieldgroup_hdl ) 38 { 39 CTimer::get("XIOS").resume(); 40 return !fieldgroup_hdl->axis_ref.isEmpty(); 41 CTimer::get("XIOS").suspend(); 42 } 43 44 37 45 38 46 void cxios_set_fieldgroup_default_value(fieldgroup_Ptr fieldgroup_hdl, double default_value) … … 49 57 } 50 58 59 bool cxios_is_defined_fieldgroup_default_value(fieldgroup_Ptr fieldgroup_hdl ) 60 { 61 CTimer::get("XIOS").resume(); 62 return !fieldgroup_hdl->default_value.isEmpty(); 63 CTimer::get("XIOS").suspend(); 64 } 65 66 51 67 52 68 void cxios_set_fieldgroup_domain_ref(fieldgroup_Ptr fieldgroup_hdl, const char * domain_ref, int domain_ref_size) … … 68 84 } 69 85 86 bool cxios_is_defined_fieldgroup_domain_ref(fieldgroup_Ptr fieldgroup_hdl ) 87 { 88 CTimer::get("XIOS").resume(); 89 return !fieldgroup_hdl->domain_ref.isEmpty(); 90 CTimer::get("XIOS").suspend(); 91 } 92 93 70 94 71 95 void cxios_set_fieldgroup_enabled(fieldgroup_Ptr fieldgroup_hdl, bool enabled) … … 82 106 } 83 107 108 bool cxios_is_defined_fieldgroup_enabled(fieldgroup_Ptr fieldgroup_hdl ) 109 { 110 CTimer::get("XIOS").resume(); 111 return !fieldgroup_hdl->enabled.isEmpty(); 112 CTimer::get("XIOS").suspend(); 113 } 114 115 84 116 85 117 void cxios_set_fieldgroup_field_ref(fieldgroup_Ptr fieldgroup_hdl, const char * field_ref, int field_ref_size) … … 101 133 } 102 134 135 bool cxios_is_defined_fieldgroup_field_ref(fieldgroup_Ptr fieldgroup_hdl ) 136 { 137 CTimer::get("XIOS").resume(); 138 return !fieldgroup_hdl->field_ref.isEmpty(); 139 CTimer::get("XIOS").suspend(); 140 } 141 142 103 143 104 144 void cxios_set_fieldgroup_freq_offset(fieldgroup_Ptr fieldgroup_hdl, const char * freq_offset, int freq_offset_size) … … 120 160 } 121 161 162 bool cxios_is_defined_fieldgroup_freq_offset(fieldgroup_Ptr fieldgroup_hdl ) 163 { 164 CTimer::get("XIOS").resume(); 165 return !fieldgroup_hdl->freq_offset.isEmpty(); 166 CTimer::get("XIOS").suspend(); 167 } 168 169 122 170 123 171 void cxios_set_fieldgroup_freq_op(fieldgroup_Ptr fieldgroup_hdl, const char * freq_op, int freq_op_size) … … 139 187 } 140 188 189 bool cxios_is_defined_fieldgroup_freq_op(fieldgroup_Ptr fieldgroup_hdl ) 190 { 191 CTimer::get("XIOS").resume(); 192 return !fieldgroup_hdl->freq_op.isEmpty(); 193 CTimer::get("XIOS").suspend(); 194 } 195 196 141 197 142 198 void cxios_set_fieldgroup_grid_ref(fieldgroup_Ptr fieldgroup_hdl, const char * grid_ref, int grid_ref_size) … … 158 214 } 159 215 216 bool cxios_is_defined_fieldgroup_grid_ref(fieldgroup_Ptr fieldgroup_hdl ) 217 { 218 CTimer::get("XIOS").resume(); 219 return !fieldgroup_hdl->grid_ref.isEmpty(); 220 CTimer::get("XIOS").suspend(); 221 } 222 223 160 224 161 225 void cxios_set_fieldgroup_group_ref(fieldgroup_Ptr fieldgroup_hdl, const char * group_ref, int group_ref_size) … … 177 241 } 178 242 243 bool cxios_is_defined_fieldgroup_group_ref(fieldgroup_Ptr fieldgroup_hdl ) 244 { 245 CTimer::get("XIOS").resume(); 246 return !fieldgroup_hdl->group_ref.isEmpty(); 247 CTimer::get("XIOS").suspend(); 248 } 249 250 179 251 180 252 void cxios_set_fieldgroup_level(fieldgroup_Ptr fieldgroup_hdl, int level) … … 191 263 } 192 264 265 bool cxios_is_defined_fieldgroup_level(fieldgroup_Ptr fieldgroup_hdl ) 266 { 267 CTimer::get("XIOS").resume(); 268 return !fieldgroup_hdl->level.isEmpty(); 269 CTimer::get("XIOS").suspend(); 270 } 271 272 193 273 194 274 void cxios_set_fieldgroup_long_name(fieldgroup_Ptr fieldgroup_hdl, const char * long_name, int long_name_size) … … 210 290 } 211 291 292 bool cxios_is_defined_fieldgroup_long_name(fieldgroup_Ptr fieldgroup_hdl ) 293 { 294 CTimer::get("XIOS").resume(); 295 return !fieldgroup_hdl->long_name.isEmpty(); 296 CTimer::get("XIOS").suspend(); 297 } 298 299 212 300 213 301 void cxios_set_fieldgroup_name(fieldgroup_Ptr fieldgroup_hdl, const char * name, int name_size) … … 229 317 } 230 318 319 bool cxios_is_defined_fieldgroup_name(fieldgroup_Ptr fieldgroup_hdl ) 320 { 321 CTimer::get("XIOS").resume(); 322 return !fieldgroup_hdl->name.isEmpty(); 323 CTimer::get("XIOS").suspend(); 324 } 325 326 231 327 232 328 void cxios_set_fieldgroup_operation(fieldgroup_Ptr fieldgroup_hdl, const char * operation, int operation_size) … … 248 344 } 249 345 346 bool cxios_is_defined_fieldgroup_operation(fieldgroup_Ptr fieldgroup_hdl ) 347 { 348 CTimer::get("XIOS").resume(); 349 return !fieldgroup_hdl->operation.isEmpty(); 350 CTimer::get("XIOS").suspend(); 351 } 352 353 250 354 251 355 void cxios_set_fieldgroup_prec(fieldgroup_Ptr fieldgroup_hdl, int prec) … … 262 366 } 263 367 368 bool cxios_is_defined_fieldgroup_prec(fieldgroup_Ptr fieldgroup_hdl ) 369 { 370 CTimer::get("XIOS").resume(); 371 return !fieldgroup_hdl->prec.isEmpty(); 372 CTimer::get("XIOS").suspend(); 373 } 374 375 264 376 265 377 void cxios_set_fieldgroup_standard_name(fieldgroup_Ptr fieldgroup_hdl, const char * standard_name, int standard_name_size) … … 281 393 } 282 394 395 bool cxios_is_defined_fieldgroup_standard_name(fieldgroup_Ptr fieldgroup_hdl ) 396 { 397 CTimer::get("XIOS").resume(); 398 return !fieldgroup_hdl->standard_name.isEmpty(); 399 CTimer::get("XIOS").suspend(); 400 } 401 402 283 403 284 404 void cxios_set_fieldgroup_unit(fieldgroup_Ptr fieldgroup_hdl, const char * unit, int unit_size) … … 300 420 } 301 421 422 bool cxios_is_defined_fieldgroup_unit(fieldgroup_Ptr fieldgroup_hdl ) 423 { 424 CTimer::get("XIOS").resume(); 425 return !fieldgroup_hdl->unit.isEmpty(); 426 CTimer::get("XIOS").suspend(); 427 } 428 429 302 430 303 431 -
XIOS/trunk/src/interface/c_attr/icfile_attr.cpp
r415 r432 35 35 } 36 36 37 bool cxios_is_defined_file_description(file_Ptr file_hdl ) 38 { 39 CTimer::get("XIOS").resume(); 40 return !file_hdl->description.isEmpty(); 41 CTimer::get("XIOS").suspend(); 42 } 43 44 37 45 38 46 void cxios_set_file_enabled(file_Ptr file_hdl, bool enabled) … … 49 57 } 50 58 59 bool cxios_is_defined_file_enabled(file_Ptr file_hdl ) 60 { 61 CTimer::get("XIOS").resume(); 62 return !file_hdl->enabled.isEmpty(); 63 CTimer::get("XIOS").suspend(); 64 } 65 66 51 67 52 68 void cxios_set_file_min_digits(file_Ptr file_hdl, int min_digits) … … 63 79 } 64 80 81 bool cxios_is_defined_file_min_digits(file_Ptr file_hdl ) 82 { 83 CTimer::get("XIOS").resume(); 84 return !file_hdl->min_digits.isEmpty(); 85 CTimer::get("XIOS").suspend(); 86 } 87 88 65 89 66 90 void cxios_set_file_name(file_Ptr file_hdl, const char * name, int name_size) … … 82 106 } 83 107 108 bool cxios_is_defined_file_name(file_Ptr file_hdl ) 109 { 110 CTimer::get("XIOS").resume(); 111 return !file_hdl->name.isEmpty(); 112 CTimer::get("XIOS").suspend(); 113 } 114 115 84 116 85 117 void cxios_set_file_name_suffix(file_Ptr file_hdl, const char * name_suffix, int name_suffix_size) … … 101 133 } 102 134 135 bool cxios_is_defined_file_name_suffix(file_Ptr file_hdl ) 136 { 137 CTimer::get("XIOS").resume(); 138 return !file_hdl->name_suffix.isEmpty(); 139 CTimer::get("XIOS").suspend(); 140 } 141 142 103 143 104 144 void cxios_set_file_output_freq(file_Ptr file_hdl, const char * output_freq, int output_freq_size) … … 120 160 } 121 161 162 bool cxios_is_defined_file_output_freq(file_Ptr file_hdl ) 163 { 164 CTimer::get("XIOS").resume(); 165 return !file_hdl->output_freq.isEmpty(); 166 CTimer::get("XIOS").suspend(); 167 } 168 169 122 170 123 171 void cxios_set_file_output_level(file_Ptr file_hdl, int output_level) … … 134 182 } 135 183 184 bool cxios_is_defined_file_output_level(file_Ptr file_hdl ) 185 { 186 CTimer::get("XIOS").resume(); 187 return !file_hdl->output_level.isEmpty(); 188 CTimer::get("XIOS").suspend(); 189 } 190 191 136 192 137 193 void cxios_set_file_par_access(file_Ptr file_hdl, const char * par_access, int par_access_size) … … 153 209 } 154 210 211 bool cxios_is_defined_file_par_access(file_Ptr file_hdl ) 212 { 213 CTimer::get("XIOS").resume(); 214 return !file_hdl->par_access.isEmpty(); 215 CTimer::get("XIOS").suspend(); 216 } 217 218 155 219 156 220 void cxios_set_file_split_freq(file_Ptr file_hdl, const char * split_freq, int split_freq_size) … … 172 236 } 173 237 238 bool cxios_is_defined_file_split_freq(file_Ptr file_hdl ) 239 { 240 CTimer::get("XIOS").resume(); 241 return !file_hdl->split_freq.isEmpty(); 242 CTimer::get("XIOS").suspend(); 243 } 244 245 246 247 void cxios_set_file_split_freq_format(file_Ptr file_hdl, const char * split_freq_format, int split_freq_format_size) 248 { 249 std::string split_freq_format_str; 250 if(!cstr2string(split_freq_format, split_freq_format_size, split_freq_format_str)) return; 251 CTimer::get("XIOS").resume(); 252 file_hdl->split_freq_format.setValue(split_freq_format_str); 253 file_hdl->sendAttributToServer(file_hdl->split_freq_format); 254 CTimer::get("XIOS").suspend(); 255 } 256 257 void cxios_get_file_split_freq_format(file_Ptr file_hdl, char * split_freq_format, int split_freq_format_size) 258 { 259 CTimer::get("XIOS").resume(); 260 if(!string_copy(file_hdl->split_freq_format.getValue(),split_freq_format , split_freq_format_size)) 261 ERROR("void cxios_get_file_split_freq_format(file_Ptr file_hdl, char * split_freq_format, int split_freq_format_size)", <<"Input string is to short"); 262 CTimer::get("XIOS").suspend(); 263 } 264 265 bool cxios_is_defined_file_split_freq_format(file_Ptr file_hdl ) 266 { 267 CTimer::get("XIOS").resume(); 268 return !file_hdl->split_freq_format.isEmpty(); 269 CTimer::get("XIOS").suspend(); 270 } 271 272 174 273 175 274 void cxios_set_file_sync_freq(file_Ptr file_hdl, const char * sync_freq, int sync_freq_size) … … 191 290 } 192 291 292 bool cxios_is_defined_file_sync_freq(file_Ptr file_hdl ) 293 { 294 CTimer::get("XIOS").resume(); 295 return !file_hdl->sync_freq.isEmpty(); 296 CTimer::get("XIOS").suspend(); 297 } 298 299 193 300 194 301 void cxios_set_file_type(file_Ptr file_hdl, const char * type, int type_size) … … 210 317 } 211 318 319 bool cxios_is_defined_file_type(file_Ptr file_hdl ) 320 { 321 CTimer::get("XIOS").resume(); 322 return !file_hdl->type.isEmpty(); 323 CTimer::get("XIOS").suspend(); 324 } 325 326 212 327 213 328 -
XIOS/trunk/src/interface/c_attr/icfilegroup_attr.cpp
r415 r432 35 35 } 36 36 37 bool cxios_is_defined_filegroup_description(filegroup_Ptr filegroup_hdl ) 38 { 39 CTimer::get("XIOS").resume(); 40 return !filegroup_hdl->description.isEmpty(); 41 CTimer::get("XIOS").suspend(); 42 } 43 44 37 45 38 46 void cxios_set_filegroup_enabled(filegroup_Ptr filegroup_hdl, bool enabled) … … 49 57 } 50 58 59 bool cxios_is_defined_filegroup_enabled(filegroup_Ptr filegroup_hdl ) 60 { 61 CTimer::get("XIOS").resume(); 62 return !filegroup_hdl->enabled.isEmpty(); 63 CTimer::get("XIOS").suspend(); 64 } 65 66 51 67 52 68 void cxios_set_filegroup_group_ref(filegroup_Ptr filegroup_hdl, const char * group_ref, int group_ref_size) … … 68 84 } 69 85 86 bool cxios_is_defined_filegroup_group_ref(filegroup_Ptr filegroup_hdl ) 87 { 88 CTimer::get("XIOS").resume(); 89 return !filegroup_hdl->group_ref.isEmpty(); 90 CTimer::get("XIOS").suspend(); 91 } 92 93 70 94 71 95 void cxios_set_filegroup_min_digits(filegroup_Ptr filegroup_hdl, int min_digits) … … 82 106 } 83 107 108 bool cxios_is_defined_filegroup_min_digits(filegroup_Ptr filegroup_hdl ) 109 { 110 CTimer::get("XIOS").resume(); 111 return !filegroup_hdl->min_digits.isEmpty(); 112 CTimer::get("XIOS").suspend(); 113 } 114 115 84 116 85 117 void cxios_set_filegroup_name(filegroup_Ptr filegroup_hdl, const char * name, int name_size) … … 101 133 } 102 134 135 bool cxios_is_defined_filegroup_name(filegroup_Ptr filegroup_hdl ) 136 { 137 CTimer::get("XIOS").resume(); 138 return !filegroup_hdl->name.isEmpty(); 139 CTimer::get("XIOS").suspend(); 140 } 141 142 103 143 104 144 void cxios_set_filegroup_name_suffix(filegroup_Ptr filegroup_hdl, const char * name_suffix, int name_suffix_size) … … 120 160 } 121 161 162 bool cxios_is_defined_filegroup_name_suffix(filegroup_Ptr filegroup_hdl ) 163 { 164 CTimer::get("XIOS").resume(); 165 return !filegroup_hdl->name_suffix.isEmpty(); 166 CTimer::get("XIOS").suspend(); 167 } 168 169 122 170 123 171 void cxios_set_filegroup_output_freq(filegroup_Ptr filegroup_hdl, const char * output_freq, int output_freq_size) … … 139 187 } 140 188 189 bool cxios_is_defined_filegroup_output_freq(filegroup_Ptr filegroup_hdl ) 190 { 191 CTimer::get("XIOS").resume(); 192 return !filegroup_hdl->output_freq.isEmpty(); 193 CTimer::get("XIOS").suspend(); 194 } 195 196 141 197 142 198 void cxios_set_filegroup_output_level(filegroup_Ptr filegroup_hdl, int output_level) … … 153 209 } 154 210 211 bool cxios_is_defined_filegroup_output_level(filegroup_Ptr filegroup_hdl ) 212 { 213 CTimer::get("XIOS").resume(); 214 return !filegroup_hdl->output_level.isEmpty(); 215 CTimer::get("XIOS").suspend(); 216 } 217 218 155 219 156 220 void cxios_set_filegroup_par_access(filegroup_Ptr filegroup_hdl, const char * par_access, int par_access_size) … … 172 236 } 173 237 238 bool cxios_is_defined_filegroup_par_access(filegroup_Ptr filegroup_hdl ) 239 { 240 CTimer::get("XIOS").resume(); 241 return !filegroup_hdl->par_access.isEmpty(); 242 CTimer::get("XIOS").suspend(); 243 } 244 245 174 246 175 247 void cxios_set_filegroup_split_freq(filegroup_Ptr filegroup_hdl, const char * split_freq, int split_freq_size) … … 191 263 } 192 264 265 bool cxios_is_defined_filegroup_split_freq(filegroup_Ptr filegroup_hdl ) 266 { 267 CTimer::get("XIOS").resume(); 268 return !filegroup_hdl->split_freq.isEmpty(); 269 CTimer::get("XIOS").suspend(); 270 } 271 272 273 274 void cxios_set_filegroup_split_freq_format(filegroup_Ptr filegroup_hdl, const char * split_freq_format, int split_freq_format_size) 275 { 276 std::string split_freq_format_str; 277 if(!cstr2string(split_freq_format, split_freq_format_size, split_freq_format_str)) return; 278 CTimer::get("XIOS").resume(); 279 filegroup_hdl->split_freq_format.setValue(split_freq_format_str); 280 filegroup_hdl->sendAttributToServer(filegroup_hdl->split_freq_format); 281 CTimer::get("XIOS").suspend(); 282 } 283 284 void cxios_get_filegroup_split_freq_format(filegroup_Ptr filegroup_hdl, char * split_freq_format, int split_freq_format_size) 285 { 286 CTimer::get("XIOS").resume(); 287 if(!string_copy(filegroup_hdl->split_freq_format.getValue(),split_freq_format , split_freq_format_size)) 288 ERROR("void cxios_get_filegroup_split_freq_format(filegroup_Ptr filegroup_hdl, char * split_freq_format, int split_freq_format_size)", <<"Input string is to short"); 289 CTimer::get("XIOS").suspend(); 290 } 291 292 bool cxios_is_defined_filegroup_split_freq_format(filegroup_Ptr filegroup_hdl ) 293 { 294 CTimer::get("XIOS").resume(); 295 return !filegroup_hdl->split_freq_format.isEmpty(); 296 CTimer::get("XIOS").suspend(); 297 } 298 299 193 300 194 301 void cxios_set_filegroup_sync_freq(filegroup_Ptr filegroup_hdl, const char * sync_freq, int sync_freq_size) … … 210 317 } 211 318 319 bool cxios_is_defined_filegroup_sync_freq(filegroup_Ptr filegroup_hdl ) 320 { 321 CTimer::get("XIOS").resume(); 322 return !filegroup_hdl->sync_freq.isEmpty(); 323 CTimer::get("XIOS").suspend(); 324 } 325 326 212 327 213 328 void cxios_set_filegroup_type(filegroup_Ptr filegroup_hdl, const char * type, int type_size) … … 229 344 } 230 345 346 bool cxios_is_defined_filegroup_type(filegroup_Ptr filegroup_hdl ) 347 { 348 CTimer::get("XIOS").resume(); 349 return !filegroup_hdl->type.isEmpty(); 350 CTimer::get("XIOS").suspend(); 351 } 352 353 231 354 232 355 -
XIOS/trunk/src/interface/c_attr/icgrid_attr.cpp
r416 r432 35 35 } 36 36 37 bool cxios_is_defined_grid_axis_ref(grid_Ptr grid_hdl ) 38 { 39 CTimer::get("XIOS").resume(); 40 return !grid_hdl->axis_ref.isEmpty(); 41 CTimer::get("XIOS").suspend(); 42 } 43 44 37 45 38 46 void cxios_set_grid_description(grid_Ptr grid_hdl, const char * description, int description_size) … … 53 61 CTimer::get("XIOS").suspend(); 54 62 } 63 64 bool cxios_is_defined_grid_description(grid_Ptr grid_hdl ) 65 { 66 CTimer::get("XIOS").resume(); 67 return !grid_hdl->description.isEmpty(); 68 CTimer::get("XIOS").suspend(); 69 } 70 55 71 56 72 … … 73 89 } 74 90 91 bool cxios_is_defined_grid_domain_ref(grid_Ptr grid_hdl ) 92 { 93 CTimer::get("XIOS").resume(); 94 return !grid_hdl->domain_ref.isEmpty(); 95 CTimer::get("XIOS").suspend(); 96 } 97 98 75 99 76 100 void cxios_set_grid_mask(grid_Ptr grid_hdl, bool* mask, int extent1, int extent2, int extent3) … … 90 114 CTimer::get("XIOS").suspend(); 91 115 } 116 117 bool cxios_is_defined_grid_mask(grid_Ptr grid_hdl ) 118 { 119 CTimer::get("XIOS").resume(); 120 return !grid_hdl->mask.isEmpty(); 121 CTimer::get("XIOS").suspend(); 122 } 123 92 124 93 125 … … 110 142 } 111 143 144 bool cxios_is_defined_grid_name(grid_Ptr grid_hdl ) 145 { 146 CTimer::get("XIOS").resume(); 147 return !grid_hdl->name.isEmpty(); 148 CTimer::get("XIOS").suspend(); 149 } 150 151 112 152 113 153 -
XIOS/trunk/src/interface/c_attr/icgridgroup_attr.cpp
r416 r432 35 35 } 36 36 37 bool cxios_is_defined_gridgroup_axis_ref(gridgroup_Ptr gridgroup_hdl ) 38 { 39 CTimer::get("XIOS").resume(); 40 return !gridgroup_hdl->axis_ref.isEmpty(); 41 CTimer::get("XIOS").suspend(); 42 } 43 44 37 45 38 46 void cxios_set_gridgroup_description(gridgroup_Ptr gridgroup_hdl, const char * description, int description_size) … … 53 61 CTimer::get("XIOS").suspend(); 54 62 } 63 64 bool cxios_is_defined_gridgroup_description(gridgroup_Ptr gridgroup_hdl ) 65 { 66 CTimer::get("XIOS").resume(); 67 return !gridgroup_hdl->description.isEmpty(); 68 CTimer::get("XIOS").suspend(); 69 } 70 55 71 56 72 … … 73 89 } 74 90 91 bool cxios_is_defined_gridgroup_domain_ref(gridgroup_Ptr gridgroup_hdl ) 92 { 93 CTimer::get("XIOS").resume(); 94 return !gridgroup_hdl->domain_ref.isEmpty(); 95 CTimer::get("XIOS").suspend(); 96 } 97 98 75 99 76 100 void cxios_set_gridgroup_group_ref(gridgroup_Ptr gridgroup_hdl, const char * group_ref, int group_ref_size) … … 92 116 } 93 117 118 bool cxios_is_defined_gridgroup_group_ref(gridgroup_Ptr gridgroup_hdl ) 119 { 120 CTimer::get("XIOS").resume(); 121 return !gridgroup_hdl->group_ref.isEmpty(); 122 CTimer::get("XIOS").suspend(); 123 } 124 125 94 126 95 127 void cxios_set_gridgroup_mask(gridgroup_Ptr gridgroup_hdl, bool* mask, int extent1, int extent2, int extent3) … … 109 141 CTimer::get("XIOS").suspend(); 110 142 } 143 144 bool cxios_is_defined_gridgroup_mask(gridgroup_Ptr gridgroup_hdl ) 145 { 146 CTimer::get("XIOS").resume(); 147 return !gridgroup_hdl->mask.isEmpty(); 148 CTimer::get("XIOS").suspend(); 149 } 150 111 151 112 152 … … 129 169 } 130 170 171 bool cxios_is_defined_gridgroup_name(gridgroup_Ptr gridgroup_hdl ) 172 { 173 CTimer::get("XIOS").resume(); 174 return !gridgroup_hdl->name.isEmpty(); 175 CTimer::get("XIOS").suspend(); 176 } 177 178 131 179 132 180 -
XIOS/trunk/src/interface/fortran/ixios.F90
r325 r432 8 8 9 9 USE icontext_attr, ONLY : xios(set_context_attr), xios(set_context_attr_hdl), & 10 xios(get_context_attr), xios(get_context_attr_hdl) 10 xios(get_context_attr), xios(get_context_attr_hdl), & 11 xios(is_defined_context_attr), xios(is_defined_context_attr_hdl) 11 12 12 13 USE idata, ONLY : xios(initialize),xios(init_server), xios(finalize), xios(context_initialize), & … … 23 24 24 25 USE idomain_attr, ONLY : xios(set_domain_attr), xios(set_domain_attr_hdl), & 25 xios(get_domain_attr), xios(get_domain_attr_hdl) 26 xios(get_domain_attr), xios(get_domain_attr_hdl), & 27 xios(is_defined_domain_attr), xios(is_defined_domain_attr_hdl) 26 28 27 29 USE idomaingroup_attr, ONLY : xios(set_domaingroup_attr), xios(set_domaingroup_attr_hdl), & 28 xios(get_domaingroup_attr), xios(get_domaingroup_attr_hdl) 30 xios(get_domaingroup_attr), xios(get_domaingroup_attr_hdl), & 31 xios(is_defined_domaingroup_attr), xios(is_defined_domaingroup_attr_hdl) 29 32 30 33 USE ifield, ONLY : txios(field), txios(fieldgroup), xios(get_field_handle), & … … 33 36 34 37 USE ifield_attr, ONLY : xios(set_field_attr),xios(set_field_attr_hdl), & 35 xios(get_field_attr),xios(get_field_attr_hdl) 38 xios(get_field_attr),xios(get_field_attr_hdl), & 39 xios(is_defined_field_attr),xios(is_defined_field_attr_hdl) 36 40 37 41 USE ifieldgroup_attr, ONLY : xios(set_fieldgroup_attr), xios(set_fieldgroup_attr_hdl), & 38 xios(get_fieldgroup_attr), xios(get_fieldgroup_attr_hdl) 42 xios(get_fieldgroup_attr), xios(get_fieldgroup_attr_hdl), & 43 xios(is_defined_fieldgroup_attr), xios(is_defined_fieldgroup_attr_hdl) 39 44 40 45 USE ifile, ONLY : txios(file), txios(filegroup), xios(get_file_handle), & … … 42 47 43 48 USE ifile_attr, ONLY : xios(set_file_attr),xios(set_file_attr_hdl), & 44 xios(get_file_attr),xios(get_file_attr_hdl) 49 xios(get_file_attr),xios(get_file_attr_hdl), & 50 xios(is_defined_file_attr),xios(is_defined_file_attr_hdl) 45 51 46 52 USE ifilegroup_attr, ONLY : xios(set_filegroup_attr), xios(set_filegroup_attr_hdl), & 47 xios(get_filegroup_attr), xios(get_filegroup_attr_hdl) 53 xios(get_filegroup_attr), xios(get_filegroup_attr_hdl), & 54 xios(is_defined_filegroup_attr), xios(is_defined_filegroup_attr_hdl) 48 55 49 56 USE igrid, ONLY : txios(grid), txios(gridgroup), xios(get_grid_handle), & … … 51 58 52 59 USE igrid_attr, ONLY : xios(set_grid_attr_hdl), xios(set_grid_attr), & 53 xios(get_grid_attr_hdl), xios(get_grid_attr) 60 xios(get_grid_attr_hdl), xios(get_grid_attr), & 61 xios(is_defined_grid_attr_hdl), xios(is_defined_grid_attr) 54 62 55 63 USE igridgroup_attr, ONLY : xios(set_gridgroup_attr), xios(set_gridgroup_attr_hdl), & 56 xios(get_gridgroup_attr), xios(get_gridgroup_attr_hdl) 64 xios(get_gridgroup_attr), xios(get_gridgroup_attr_hdl), & 65 xios(is_defined_gridgroup_attr), xios(is_defined_gridgroup_attr_hdl) 57 66 58 67 USE iaxis, ONLY : txios(axis), txios(axisgroup), xios(get_axis_handle), & … … 60 69 61 70 USE iaxis_attr, ONLY : xios(set_axis_attr), xios(set_axis_attr_hdl), & 62 xios(get_axis_attr), xios(get_axis_attr_hdl) 71 xios(get_axis_attr), xios(get_axis_attr_hdl), & 72 xios(is_defined_axis_attr), xios(is_defined_axis_attr_hdl) 63 73 64 74 USE iaxisgroup_attr, ONLY : xios(set_axisgroup_attr), xios(set_axisgroup_attr_hdl), & 65 xios(get_axisgroup_attr), xios(get_axisgroup_attr_hdl) 75 xios(get_axisgroup_attr), xios(get_axisgroup_attr_hdl), & 76 xios(is_defined_axisgroup_attr), xios(is_defined_axisgroup_attr_hdl) 66 77 67 78 USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain), & … … 86 97 xios(get_axisgroup_attr_hdl), xios(get_context_attr_hdl) 87 98 END INTERFACE xios(get_attr) 99 100 INTERFACE xios(is_defined_attr) 101 MODULE PROCEDURE xios(is_defined_domaingroup_attr_hdl), xios(is_defined_domain_attr_hdl), xios(is_defined_fieldgroup_attr_hdl), & 102 xios(is_defined_field_attr_hdl), xios(is_defined_file_attr_hdl), xios(is_defined_filegroup_attr_hdl), & 103 xios(is_defined_grid_attr_hdl), xios(is_defined_gridgroup_attr_hdl), xios(is_defined_axis_attr_hdl) , & 104 xios(is_defined_axisgroup_attr_hdl), xios(is_defined_context_attr_hdl) 105 END INTERFACE xios(is_defined_attr) 88 106 89 107 INTERFACE xios(get_handle) … … 123 141 xios(get_axisgroup_attr), xios(get_context_attr) 124 142 143 PUBLIC :: xios(is_defined_attr), xios(is_defined_domain_attr), xios(is_defined_domaingroup_attr), xios(is_defined_fieldgroup_attr), & 144 xios(is_defined_field_attr), xios(is_defined_file_attr), xios(is_defined_filegroup_attr), & 145 xios(is_defined_grid_attr), xios(is_defined_gridgroup_attr), xios(is_defined_axis_attr) , & 146 xios(is_defined_axisgroup_attr), xios(is_defined_context_attr) 147 125 148 PUBLIC :: xios(get_handle) 126 149 PUBLIC :: xios(add_child) -
XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_axis_long_name 24 24 25 FUNCTION cxios_is_defined_axis_long_name(axis_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_long_name 28 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 29 END FUNCTION cxios_is_defined_axis_long_name 30 25 31 26 32 SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C) … … 38 44 END SUBROUTINE cxios_get_axis_name 39 45 46 FUNCTION cxios_is_defined_axis_name(axis_hdl ) BIND(C) 47 USE ISO_C_BINDING 48 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_name 49 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 50 END FUNCTION cxios_is_defined_axis_name 51 40 52 41 53 SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C) … … 53 65 END SUBROUTINE cxios_get_axis_positive 54 66 67 FUNCTION cxios_is_defined_axis_positive(axis_hdl ) BIND(C) 68 USE ISO_C_BINDING 69 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_positive 70 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 71 END FUNCTION cxios_is_defined_axis_positive 72 55 73 56 74 SUBROUTINE cxios_set_axis_size(axis_hdl, size) BIND(C) … … 65 83 INTEGER (KIND=C_INT) :: size 66 84 END SUBROUTINE cxios_get_axis_size 85 86 FUNCTION cxios_is_defined_axis_size(axis_hdl ) BIND(C) 87 USE ISO_C_BINDING 88 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_size 89 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 90 END FUNCTION cxios_is_defined_axis_size 67 91 68 92 … … 81 105 END SUBROUTINE cxios_get_axis_standard_name 82 106 107 FUNCTION cxios_is_defined_axis_standard_name(axis_hdl ) BIND(C) 108 USE ISO_C_BINDING 109 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_standard_name 110 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 111 END FUNCTION cxios_is_defined_axis_standard_name 112 83 113 84 114 SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C) … … 95 125 INTEGER (kind = C_INT) , VALUE :: unit_size 96 126 END SUBROUTINE cxios_get_axis_unit 127 128 FUNCTION cxios_is_defined_axis_unit(axis_hdl ) BIND(C) 129 USE ISO_C_BINDING 130 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_unit 131 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 132 END FUNCTION cxios_is_defined_axis_unit 97 133 98 134 … … 111 147 END SUBROUTINE cxios_get_axis_value 112 148 149 FUNCTION cxios_is_defined_axis_value(axis_hdl ) BIND(C) 150 USE ISO_C_BINDING 151 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_value 152 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 153 END FUNCTION cxios_is_defined_axis_value 154 113 155 114 156 SUBROUTINE cxios_set_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C) … … 124 166 END SUBROUTINE cxios_get_axis_zoom_begin 125 167 168 FUNCTION cxios_is_defined_axis_zoom_begin(axis_hdl ) BIND(C) 169 USE ISO_C_BINDING 170 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_begin 171 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 172 END FUNCTION cxios_is_defined_axis_zoom_begin 173 126 174 127 175 SUBROUTINE cxios_set_axis_zoom_end(axis_hdl, zoom_end) BIND(C) … … 137 185 END SUBROUTINE cxios_get_axis_zoom_end 138 186 187 FUNCTION cxios_is_defined_axis_zoom_end(axis_hdl ) BIND(C) 188 USE ISO_C_BINDING 189 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_end 190 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 191 END FUNCTION cxios_is_defined_axis_zoom_end 192 139 193 140 194 SUBROUTINE cxios_set_axis_zoom_size(axis_hdl, zoom_size) BIND(C) … … 149 203 INTEGER (KIND=C_INT) :: zoom_size 150 204 END SUBROUTINE cxios_get_axis_zoom_size 205 206 FUNCTION cxios_is_defined_axis_zoom_size(axis_hdl ) BIND(C) 207 USE ISO_C_BINDING 208 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_size 209 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 210 END FUNCTION cxios_is_defined_axis_zoom_size 151 211 152 212 -
XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_axisgroup_group_ref 24 24 25 FUNCTION cxios_is_defined_axisgroup_group_ref(axisgroup_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_group_ref 28 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 29 END FUNCTION cxios_is_defined_axisgroup_group_ref 30 25 31 26 32 SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C) … … 38 44 END SUBROUTINE cxios_get_axisgroup_long_name 39 45 46 FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl ) BIND(C) 47 USE ISO_C_BINDING 48 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_long_name 49 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 50 END FUNCTION cxios_is_defined_axisgroup_long_name 51 40 52 41 53 SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C) … … 53 65 END SUBROUTINE cxios_get_axisgroup_name 54 66 67 FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl ) BIND(C) 68 USE ISO_C_BINDING 69 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_name 70 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 71 END FUNCTION cxios_is_defined_axisgroup_name 72 55 73 56 74 SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C) … … 68 86 END SUBROUTINE cxios_get_axisgroup_positive 69 87 88 FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl ) BIND(C) 89 USE ISO_C_BINDING 90 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_positive 91 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 92 END FUNCTION cxios_is_defined_axisgroup_positive 93 70 94 71 95 SUBROUTINE cxios_set_axisgroup_size(axisgroup_hdl, size) BIND(C) … … 80 104 INTEGER (KIND=C_INT) :: size 81 105 END SUBROUTINE cxios_get_axisgroup_size 106 107 FUNCTION cxios_is_defined_axisgroup_size(axisgroup_hdl ) BIND(C) 108 USE ISO_C_BINDING 109 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_size 110 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 111 END FUNCTION cxios_is_defined_axisgroup_size 82 112 83 113 … … 96 126 END SUBROUTINE cxios_get_axisgroup_standard_name 97 127 128 FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl ) BIND(C) 129 USE ISO_C_BINDING 130 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_standard_name 131 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 132 END FUNCTION cxios_is_defined_axisgroup_standard_name 133 98 134 99 135 SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C) … … 110 146 INTEGER (kind = C_INT) , VALUE :: unit_size 111 147 END SUBROUTINE cxios_get_axisgroup_unit 148 149 FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl ) BIND(C) 150 USE ISO_C_BINDING 151 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_unit 152 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 153 END FUNCTION cxios_is_defined_axisgroup_unit 112 154 113 155 … … 126 168 END SUBROUTINE cxios_get_axisgroup_value 127 169 170 FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl ) BIND(C) 171 USE ISO_C_BINDING 172 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_value 173 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 174 END FUNCTION cxios_is_defined_axisgroup_value 175 128 176 129 177 SUBROUTINE cxios_set_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C) … … 139 187 END SUBROUTINE cxios_get_axisgroup_zoom_begin 140 188 189 FUNCTION cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl ) BIND(C) 190 USE ISO_C_BINDING 191 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_begin 192 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 193 END FUNCTION cxios_is_defined_axisgroup_zoom_begin 194 141 195 142 196 SUBROUTINE cxios_set_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C) … … 152 206 END SUBROUTINE cxios_get_axisgroup_zoom_end 153 207 208 FUNCTION cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl ) BIND(C) 209 USE ISO_C_BINDING 210 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_end 211 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 212 END FUNCTION cxios_is_defined_axisgroup_zoom_end 213 154 214 155 215 SUBROUTINE cxios_set_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C) … … 164 224 INTEGER (KIND=C_INT) :: zoom_size 165 225 END SUBROUTINE cxios_get_axisgroup_zoom_size 226 227 FUNCTION cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl ) BIND(C) 228 USE ISO_C_BINDING 229 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_size 230 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 231 END FUNCTION cxios_is_defined_axisgroup_zoom_size 166 232 167 233 -
XIOS/trunk/src/interface/fortran_attr/context_interface_attr.f90
r336 r432 23 23 END SUBROUTINE cxios_get_context_calendar_type 24 24 25 FUNCTION cxios_is_defined_context_calendar_type(context_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_calendar_type 28 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 29 END FUNCTION cxios_is_defined_context_calendar_type 30 25 31 26 32 SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C) … … 37 43 INTEGER (kind = C_INT) , VALUE :: output_dir_size 38 44 END SUBROUTINE cxios_get_context_output_dir 45 46 FUNCTION cxios_is_defined_context_output_dir(context_hdl ) BIND(C) 47 USE ISO_C_BINDING 48 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_output_dir 49 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 50 END FUNCTION cxios_is_defined_context_output_dir 39 51 40 52 … … 53 65 END SUBROUTINE cxios_get_context_start_date 54 66 67 FUNCTION cxios_is_defined_context_start_date(context_hdl ) BIND(C) 68 USE ISO_C_BINDING 69 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_start_date 70 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 71 END FUNCTION cxios_is_defined_context_start_date 72 55 73 56 74 SUBROUTINE cxios_set_context_time_origin(context_hdl, time_origin, time_origin_size) BIND(C) … … 67 85 INTEGER (kind = C_INT) , VALUE :: time_origin_size 68 86 END SUBROUTINE cxios_get_context_time_origin 87 88 FUNCTION cxios_is_defined_context_time_origin(context_hdl ) BIND(C) 89 USE ISO_C_BINDING 90 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_time_origin 91 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 92 END FUNCTION cxios_is_defined_context_time_origin 69 93 70 94 … … 83 107 END SUBROUTINE cxios_get_context_timestep 84 108 109 FUNCTION cxios_is_defined_context_timestep(context_hdl ) BIND(C) 110 USE ISO_C_BINDING 111 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_timestep 112 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 113 END FUNCTION cxios_is_defined_context_timestep 114 85 115 86 116 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.f90
r326 r432 21 21 END SUBROUTINE cxios_get_domain_data_dim 22 22 23 FUNCTION cxios_is_defined_domain_data_dim(domain_hdl ) BIND(C) 24 USE ISO_C_BINDING 25 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim 26 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 27 END FUNCTION cxios_is_defined_domain_data_dim 28 23 29 24 30 SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C) … … 35 41 INTEGER (kind = C_INT), VALUE :: extent1 36 42 END SUBROUTINE cxios_get_domain_data_i_index 43 44 FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index 47 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 48 END FUNCTION cxios_is_defined_domain_data_i_index 37 49 38 50 … … 49 61 END SUBROUTINE cxios_get_domain_data_ibegin 50 62 63 FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl ) BIND(C) 64 USE ISO_C_BINDING 65 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin 66 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 67 END FUNCTION cxios_is_defined_domain_data_ibegin 68 51 69 52 70 SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C) … … 63 81 INTEGER (kind = C_INT), VALUE :: extent1 64 82 END SUBROUTINE cxios_get_domain_data_j_index 83 84 FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index 87 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 88 END FUNCTION cxios_is_defined_domain_data_j_index 65 89 66 90 … … 77 101 END SUBROUTINE cxios_get_domain_data_jbegin 78 102 103 FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl ) BIND(C) 104 USE ISO_C_BINDING 105 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin 106 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 107 END FUNCTION cxios_is_defined_domain_data_jbegin 108 79 109 80 110 SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C) … … 90 120 END SUBROUTINE cxios_get_domain_data_n_index 91 121 122 FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl ) BIND(C) 123 USE ISO_C_BINDING 124 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_n_index 125 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 126 END FUNCTION cxios_is_defined_domain_data_n_index 127 92 128 93 129 SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C) … … 103 139 END SUBROUTINE cxios_get_domain_data_ni 104 140 141 FUNCTION cxios_is_defined_domain_data_ni(domain_hdl ) BIND(C) 142 USE ISO_C_BINDING 143 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni 144 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 145 END FUNCTION cxios_is_defined_domain_data_ni 146 105 147 106 148 SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C) … … 115 157 INTEGER (KIND=C_INT) :: data_nj 116 158 END SUBROUTINE cxios_get_domain_data_nj 159 160 FUNCTION cxios_is_defined_domain_data_nj(domain_hdl ) BIND(C) 161 USE ISO_C_BINDING 162 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj 163 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 164 END FUNCTION cxios_is_defined_domain_data_nj 117 165 118 166 … … 131 179 END SUBROUTINE cxios_get_domain_domain_group_ref 132 180 181 FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl ) BIND(C) 182 USE ISO_C_BINDING 183 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref 184 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 185 END FUNCTION cxios_is_defined_domain_domain_group_ref 186 133 187 134 188 SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C) … … 144 198 END SUBROUTINE cxios_get_domain_ibegin 145 199 200 FUNCTION cxios_is_defined_domain_ibegin(domain_hdl ) BIND(C) 201 USE ISO_C_BINDING 202 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin 203 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 204 END FUNCTION cxios_is_defined_domain_ibegin 205 146 206 147 207 SUBROUTINE cxios_set_domain_iend(domain_hdl, iend) BIND(C) … … 157 217 END SUBROUTINE cxios_get_domain_iend 158 218 219 FUNCTION cxios_is_defined_domain_iend(domain_hdl ) BIND(C) 220 USE ISO_C_BINDING 221 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_iend 222 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 223 END FUNCTION cxios_is_defined_domain_iend 224 159 225 160 226 SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C) … … 170 236 END SUBROUTINE cxios_get_domain_jbegin 171 237 238 FUNCTION cxios_is_defined_domain_jbegin(domain_hdl ) BIND(C) 239 USE ISO_C_BINDING 240 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin 241 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 242 END FUNCTION cxios_is_defined_domain_jbegin 243 172 244 173 245 SUBROUTINE cxios_set_domain_jend(domain_hdl, jend) BIND(C) … … 183 255 END SUBROUTINE cxios_get_domain_jend 184 256 257 FUNCTION cxios_is_defined_domain_jend(domain_hdl ) BIND(C) 258 USE ISO_C_BINDING 259 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jend 260 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 261 END FUNCTION cxios_is_defined_domain_jend 262 185 263 186 264 SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C) … … 197 275 INTEGER (kind = C_INT), VALUE :: extent1 198 276 END SUBROUTINE cxios_get_domain_latvalue 277 278 FUNCTION cxios_is_defined_domain_latvalue(domain_hdl ) BIND(C) 279 USE ISO_C_BINDING 280 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue 281 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 282 END FUNCTION cxios_is_defined_domain_latvalue 199 283 200 284 … … 213 297 END SUBROUTINE cxios_get_domain_long_name 214 298 299 FUNCTION cxios_is_defined_domain_long_name(domain_hdl ) BIND(C) 300 USE ISO_C_BINDING 301 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name 302 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 303 END FUNCTION cxios_is_defined_domain_long_name 304 215 305 216 306 SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C) … … 227 317 INTEGER (kind = C_INT), VALUE :: extent1 228 318 END SUBROUTINE cxios_get_domain_lonvalue 319 320 FUNCTION cxios_is_defined_domain_lonvalue(domain_hdl ) BIND(C) 321 USE ISO_C_BINDING 322 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue 323 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 324 END FUNCTION cxios_is_defined_domain_lonvalue 229 325 230 326 … … 244 340 INTEGER (kind = C_INT), VALUE :: extent2 245 341 END SUBROUTINE cxios_get_domain_mask 342 343 FUNCTION cxios_is_defined_domain_mask(domain_hdl ) BIND(C) 344 USE ISO_C_BINDING 345 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask 346 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 347 END FUNCTION cxios_is_defined_domain_mask 246 348 247 349 … … 260 362 END SUBROUTINE cxios_get_domain_name 261 363 364 FUNCTION cxios_is_defined_domain_name(domain_hdl ) BIND(C) 365 USE ISO_C_BINDING 366 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name 367 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 368 END FUNCTION cxios_is_defined_domain_name 369 262 370 263 371 SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C) … … 273 381 END SUBROUTINE cxios_get_domain_ni 274 382 383 FUNCTION cxios_is_defined_domain_ni(domain_hdl ) BIND(C) 384 USE ISO_C_BINDING 385 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni 386 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 387 END FUNCTION cxios_is_defined_domain_ni 388 275 389 276 390 SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C) … … 286 400 END SUBROUTINE cxios_get_domain_ni_glo 287 401 402 FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl ) BIND(C) 403 USE ISO_C_BINDING 404 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo 405 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 406 END FUNCTION cxios_is_defined_domain_ni_glo 407 288 408 289 409 SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C) … … 299 419 END SUBROUTINE cxios_get_domain_nj 300 420 421 FUNCTION cxios_is_defined_domain_nj(domain_hdl ) BIND(C) 422 USE ISO_C_BINDING 423 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj 424 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 425 END FUNCTION cxios_is_defined_domain_nj 426 301 427 302 428 SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C) … … 311 437 INTEGER (KIND=C_INT) :: nj_glo 312 438 END SUBROUTINE cxios_get_domain_nj_glo 439 440 FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl ) BIND(C) 441 USE ISO_C_BINDING 442 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo 443 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 444 END FUNCTION cxios_is_defined_domain_nj_glo 313 445 314 446 … … 327 459 END SUBROUTINE cxios_get_domain_standard_name 328 460 461 FUNCTION cxios_is_defined_domain_standard_name(domain_hdl ) BIND(C) 462 USE ISO_C_BINDING 463 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name 464 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 465 END FUNCTION cxios_is_defined_domain_standard_name 466 329 467 330 468 SUBROUTINE cxios_set_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C) … … 340 478 END SUBROUTINE cxios_get_domain_zoom_ibegin 341 479 480 FUNCTION cxios_is_defined_domain_zoom_ibegin(domain_hdl ) BIND(C) 481 USE ISO_C_BINDING 482 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin 483 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 484 END FUNCTION cxios_is_defined_domain_zoom_ibegin 485 342 486 343 487 SUBROUTINE cxios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C) … … 353 497 END SUBROUTINE cxios_get_domain_zoom_ibegin_loc 354 498 499 FUNCTION cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl ) BIND(C) 500 USE ISO_C_BINDING 501 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin_loc 502 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 503 END FUNCTION cxios_is_defined_domain_zoom_ibegin_loc 504 355 505 356 506 SUBROUTINE cxios_set_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C) … … 366 516 END SUBROUTINE cxios_get_domain_zoom_jbegin 367 517 518 FUNCTION cxios_is_defined_domain_zoom_jbegin(domain_hdl ) BIND(C) 519 USE ISO_C_BINDING 520 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin 521 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 522 END FUNCTION cxios_is_defined_domain_zoom_jbegin 523 368 524 369 525 SUBROUTINE cxios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C) … … 379 535 END SUBROUTINE cxios_get_domain_zoom_jbegin_loc 380 536 537 FUNCTION cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl ) BIND(C) 538 USE ISO_C_BINDING 539 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin_loc 540 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 541 END FUNCTION cxios_is_defined_domain_zoom_jbegin_loc 542 381 543 382 544 SUBROUTINE cxios_set_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C) … … 392 554 END SUBROUTINE cxios_get_domain_zoom_ni 393 555 556 FUNCTION cxios_is_defined_domain_zoom_ni(domain_hdl ) BIND(C) 557 USE ISO_C_BINDING 558 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni 559 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 560 END FUNCTION cxios_is_defined_domain_zoom_ni 561 394 562 395 563 SUBROUTINE cxios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C) … … 405 573 END SUBROUTINE cxios_get_domain_zoom_ni_loc 406 574 575 FUNCTION cxios_is_defined_domain_zoom_ni_loc(domain_hdl ) BIND(C) 576 USE ISO_C_BINDING 577 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni_loc 578 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 579 END FUNCTION cxios_is_defined_domain_zoom_ni_loc 580 407 581 408 582 SUBROUTINE cxios_set_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C) … … 418 592 END SUBROUTINE cxios_get_domain_zoom_nj 419 593 594 FUNCTION cxios_is_defined_domain_zoom_nj(domain_hdl ) BIND(C) 595 USE ISO_C_BINDING 596 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj 597 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 598 END FUNCTION cxios_is_defined_domain_zoom_nj 599 420 600 421 601 SUBROUTINE cxios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C) … … 430 610 INTEGER (KIND=C_INT) :: zoom_nj_loc 431 611 END SUBROUTINE cxios_get_domain_zoom_nj_loc 612 613 FUNCTION cxios_is_defined_domain_zoom_nj_loc(domain_hdl ) BIND(C) 614 USE ISO_C_BINDING 615 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj_loc 616 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 617 END FUNCTION cxios_is_defined_domain_zoom_nj_loc 432 618 433 619 -
XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.f90
r326 r432 21 21 END SUBROUTINE cxios_get_domaingroup_data_dim 22 22 23 FUNCTION cxios_is_defined_domaingroup_data_dim(domaingroup_hdl ) BIND(C) 24 USE ISO_C_BINDING 25 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_dim 26 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 27 END FUNCTION cxios_is_defined_domaingroup_data_dim 28 23 29 24 30 SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C) … … 35 41 INTEGER (kind = C_INT), VALUE :: extent1 36 42 END SUBROUTINE cxios_get_domaingroup_data_i_index 43 44 FUNCTION cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_i_index 47 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 48 END FUNCTION cxios_is_defined_domaingroup_data_i_index 37 49 38 50 … … 49 61 END SUBROUTINE cxios_get_domaingroup_data_ibegin 50 62 63 FUNCTION cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl ) BIND(C) 64 USE ISO_C_BINDING 65 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ibegin 66 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 67 END FUNCTION cxios_is_defined_domaingroup_data_ibegin 68 51 69 52 70 SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C) … … 63 81 INTEGER (kind = C_INT), VALUE :: extent1 64 82 END SUBROUTINE cxios_get_domaingroup_data_j_index 83 84 FUNCTION cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_j_index 87 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 88 END FUNCTION cxios_is_defined_domaingroup_data_j_index 65 89 66 90 … … 77 101 END SUBROUTINE cxios_get_domaingroup_data_jbegin 78 102 103 FUNCTION cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl ) BIND(C) 104 USE ISO_C_BINDING 105 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_jbegin 106 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 107 END FUNCTION cxios_is_defined_domaingroup_data_jbegin 108 79 109 80 110 SUBROUTINE cxios_set_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C) … … 90 120 END SUBROUTINE cxios_get_domaingroup_data_n_index 91 121 122 FUNCTION cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl ) BIND(C) 123 USE ISO_C_BINDING 124 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_n_index 125 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 126 END FUNCTION cxios_is_defined_domaingroup_data_n_index 127 92 128 93 129 SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C) … … 103 139 END SUBROUTINE cxios_get_domaingroup_data_ni 104 140 141 FUNCTION cxios_is_defined_domaingroup_data_ni(domaingroup_hdl ) BIND(C) 142 USE ISO_C_BINDING 143 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ni 144 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 145 END FUNCTION cxios_is_defined_domaingroup_data_ni 146 105 147 106 148 SUBROUTINE cxios_set_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C) … … 115 157 INTEGER (KIND=C_INT) :: data_nj 116 158 END SUBROUTINE cxios_get_domaingroup_data_nj 159 160 FUNCTION cxios_is_defined_domaingroup_data_nj(domaingroup_hdl ) BIND(C) 161 USE ISO_C_BINDING 162 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_nj 163 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 164 END FUNCTION cxios_is_defined_domaingroup_data_nj 117 165 118 166 … … 131 179 END SUBROUTINE cxios_get_domaingroup_domain_group_ref 132 180 181 FUNCTION cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl ) BIND(C) 182 USE ISO_C_BINDING 183 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_group_ref 184 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 185 END FUNCTION cxios_is_defined_domaingroup_domain_group_ref 186 133 187 134 188 SUBROUTINE cxios_set_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C) … … 146 200 END SUBROUTINE cxios_get_domaingroup_group_ref 147 201 202 FUNCTION cxios_is_defined_domaingroup_group_ref(domaingroup_hdl ) BIND(C) 203 USE ISO_C_BINDING 204 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_group_ref 205 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 206 END FUNCTION cxios_is_defined_domaingroup_group_ref 207 148 208 149 209 SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C) … … 159 219 END SUBROUTINE cxios_get_domaingroup_ibegin 160 220 221 FUNCTION cxios_is_defined_domaingroup_ibegin(domaingroup_hdl ) BIND(C) 222 USE ISO_C_BINDING 223 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ibegin 224 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 225 END FUNCTION cxios_is_defined_domaingroup_ibegin 226 161 227 162 228 SUBROUTINE cxios_set_domaingroup_iend(domaingroup_hdl, iend) BIND(C) … … 172 238 END SUBROUTINE cxios_get_domaingroup_iend 173 239 240 FUNCTION cxios_is_defined_domaingroup_iend(domaingroup_hdl ) BIND(C) 241 USE ISO_C_BINDING 242 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_iend 243 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 244 END FUNCTION cxios_is_defined_domaingroup_iend 245 174 246 175 247 SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C) … … 185 257 END SUBROUTINE cxios_get_domaingroup_jbegin 186 258 259 FUNCTION cxios_is_defined_domaingroup_jbegin(domaingroup_hdl ) BIND(C) 260 USE ISO_C_BINDING 261 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jbegin 262 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 263 END FUNCTION cxios_is_defined_domaingroup_jbegin 264 187 265 188 266 SUBROUTINE cxios_set_domaingroup_jend(domaingroup_hdl, jend) BIND(C) … … 198 276 END SUBROUTINE cxios_get_domaingroup_jend 199 277 278 FUNCTION cxios_is_defined_domaingroup_jend(domaingroup_hdl ) BIND(C) 279 USE ISO_C_BINDING 280 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jend 281 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 282 END FUNCTION cxios_is_defined_domaingroup_jend 283 200 284 201 285 SUBROUTINE cxios_set_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C) … … 212 296 INTEGER (kind = C_INT), VALUE :: extent1 213 297 END SUBROUTINE cxios_get_domaingroup_latvalue 298 299 FUNCTION cxios_is_defined_domaingroup_latvalue(domaingroup_hdl ) BIND(C) 300 USE ISO_C_BINDING 301 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue 302 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 303 END FUNCTION cxios_is_defined_domaingroup_latvalue 214 304 215 305 … … 228 318 END SUBROUTINE cxios_get_domaingroup_long_name 229 319 320 FUNCTION cxios_is_defined_domaingroup_long_name(domaingroup_hdl ) BIND(C) 321 USE ISO_C_BINDING 322 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_long_name 323 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 324 END FUNCTION cxios_is_defined_domaingroup_long_name 325 230 326 231 327 SUBROUTINE cxios_set_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C) … … 242 338 INTEGER (kind = C_INT), VALUE :: extent1 243 339 END SUBROUTINE cxios_get_domaingroup_lonvalue 340 341 FUNCTION cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl ) BIND(C) 342 USE ISO_C_BINDING 343 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue 344 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 345 END FUNCTION cxios_is_defined_domaingroup_lonvalue 244 346 245 347 … … 259 361 INTEGER (kind = C_INT), VALUE :: extent2 260 362 END SUBROUTINE cxios_get_domaingroup_mask 363 364 FUNCTION cxios_is_defined_domaingroup_mask(domaingroup_hdl ) BIND(C) 365 USE ISO_C_BINDING 366 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask 367 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 368 END FUNCTION cxios_is_defined_domaingroup_mask 261 369 262 370 … … 275 383 END SUBROUTINE cxios_get_domaingroup_name 276 384 385 FUNCTION cxios_is_defined_domaingroup_name(domaingroup_hdl ) BIND(C) 386 USE ISO_C_BINDING 387 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_name 388 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 389 END FUNCTION cxios_is_defined_domaingroup_name 390 277 391 278 392 SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C) … … 288 402 END SUBROUTINE cxios_get_domaingroup_ni 289 403 404 FUNCTION cxios_is_defined_domaingroup_ni(domaingroup_hdl ) BIND(C) 405 USE ISO_C_BINDING 406 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni 407 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 408 END FUNCTION cxios_is_defined_domaingroup_ni 409 290 410 291 411 SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C) … … 301 421 END SUBROUTINE cxios_get_domaingroup_ni_glo 302 422 423 FUNCTION cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl ) BIND(C) 424 USE ISO_C_BINDING 425 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni_glo 426 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 427 END FUNCTION cxios_is_defined_domaingroup_ni_glo 428 303 429 304 430 SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C) … … 314 440 END SUBROUTINE cxios_get_domaingroup_nj 315 441 442 FUNCTION cxios_is_defined_domaingroup_nj(domaingroup_hdl ) BIND(C) 443 USE ISO_C_BINDING 444 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj 445 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 446 END FUNCTION cxios_is_defined_domaingroup_nj 447 316 448 317 449 SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C) … … 326 458 INTEGER (KIND=C_INT) :: nj_glo 327 459 END SUBROUTINE cxios_get_domaingroup_nj_glo 460 461 FUNCTION cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl ) BIND(C) 462 USE ISO_C_BINDING 463 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj_glo 464 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 465 END FUNCTION cxios_is_defined_domaingroup_nj_glo 328 466 329 467 … … 342 480 END SUBROUTINE cxios_get_domaingroup_standard_name 343 481 482 FUNCTION cxios_is_defined_domaingroup_standard_name(domaingroup_hdl ) BIND(C) 483 USE ISO_C_BINDING 484 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_standard_name 485 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 486 END FUNCTION cxios_is_defined_domaingroup_standard_name 487 344 488 345 489 SUBROUTINE cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C) … … 355 499 END SUBROUTINE cxios_get_domaingroup_zoom_ibegin 356 500 501 FUNCTION cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl ) BIND(C) 502 USE ISO_C_BINDING 503 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin 504 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 505 END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin 506 357 507 358 508 SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C) … … 368 518 END SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc 369 519 520 FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl ) BIND(C) 521 USE ISO_C_BINDING 522 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin_loc 523 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 524 END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc 525 370 526 371 527 SUBROUTINE cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C) … … 381 537 END SUBROUTINE cxios_get_domaingroup_zoom_jbegin 382 538 539 FUNCTION cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl ) BIND(C) 540 USE ISO_C_BINDING 541 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin 542 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 543 END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin 544 383 545 384 546 SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C) … … 394 556 END SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc 395 557 558 FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl ) BIND(C) 559 USE ISO_C_BINDING 560 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin_loc 561 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 562 END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc 563 396 564 397 565 SUBROUTINE cxios_set_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C) … … 407 575 END SUBROUTINE cxios_get_domaingroup_zoom_ni 408 576 577 FUNCTION cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl ) BIND(C) 578 USE ISO_C_BINDING 579 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni 580 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 581 END FUNCTION cxios_is_defined_domaingroup_zoom_ni 582 409 583 410 584 SUBROUTINE cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C) … … 420 594 END SUBROUTINE cxios_get_domaingroup_zoom_ni_loc 421 595 596 FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl ) BIND(C) 597 USE ISO_C_BINDING 598 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni_loc 599 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 600 END FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc 601 422 602 423 603 SUBROUTINE cxios_set_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C) … … 433 613 END SUBROUTINE cxios_get_domaingroup_zoom_nj 434 614 615 FUNCTION cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl ) BIND(C) 616 USE ISO_C_BINDING 617 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj 618 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 619 END FUNCTION cxios_is_defined_domaingroup_zoom_nj 620 435 621 436 622 SUBROUTINE cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C) … … 445 631 INTEGER (KIND=C_INT) :: zoom_nj_loc 446 632 END SUBROUTINE cxios_get_domaingroup_zoom_nj_loc 633 634 FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl ) BIND(C) 635 USE ISO_C_BINDING 636 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj_loc 637 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 638 END FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc 447 639 448 640 -
XIOS/trunk/src/interface/fortran_attr/field_interface_attr.f90
r326 r432 23 23 END SUBROUTINE cxios_get_field_axis_ref 24 24 25 FUNCTION cxios_is_defined_field_axis_ref(field_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_axis_ref 28 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 29 END FUNCTION cxios_is_defined_field_axis_ref 30 25 31 26 32 SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C) … … 35 41 REAL (KIND=C_DOUBLE) :: default_value 36 42 END SUBROUTINE cxios_get_field_default_value 43 44 FUNCTION cxios_is_defined_field_default_value(field_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_default_value 47 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 48 END FUNCTION cxios_is_defined_field_default_value 37 49 38 50 … … 51 63 END SUBROUTINE cxios_get_field_domain_ref 52 64 65 FUNCTION cxios_is_defined_field_domain_ref(field_hdl ) BIND(C) 66 USE ISO_C_BINDING 67 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_domain_ref 68 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 69 END FUNCTION cxios_is_defined_field_domain_ref 70 53 71 54 72 SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C) … … 63 81 LOGICAL (KIND=C_BOOL) :: enabled 64 82 END SUBROUTINE cxios_get_field_enabled 83 84 FUNCTION cxios_is_defined_field_enabled(field_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_enabled 87 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 88 END FUNCTION cxios_is_defined_field_enabled 65 89 66 90 … … 79 103 END SUBROUTINE cxios_get_field_field_ref 80 104 105 FUNCTION cxios_is_defined_field_field_ref(field_hdl ) BIND(C) 106 USE ISO_C_BINDING 107 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_field_ref 108 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 109 END FUNCTION cxios_is_defined_field_field_ref 110 81 111 82 112 SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset, freq_offset_size) BIND(C) … … 94 124 END SUBROUTINE cxios_get_field_freq_offset 95 125 126 FUNCTION cxios_is_defined_field_freq_offset(field_hdl ) BIND(C) 127 USE ISO_C_BINDING 128 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_offset 129 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 130 END FUNCTION cxios_is_defined_field_freq_offset 131 96 132 97 133 SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op, freq_op_size) BIND(C) … … 109 145 END SUBROUTINE cxios_get_field_freq_op 110 146 147 FUNCTION cxios_is_defined_field_freq_op(field_hdl ) BIND(C) 148 USE ISO_C_BINDING 149 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_op 150 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 151 END FUNCTION cxios_is_defined_field_freq_op 152 111 153 112 154 SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C) … … 124 166 END SUBROUTINE cxios_get_field_grid_ref 125 167 168 FUNCTION cxios_is_defined_field_grid_ref(field_hdl ) BIND(C) 169 USE ISO_C_BINDING 170 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_ref 171 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 172 END FUNCTION cxios_is_defined_field_grid_ref 173 126 174 127 175 SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C) … … 136 184 INTEGER (KIND=C_INT) :: level 137 185 END SUBROUTINE cxios_get_field_level 186 187 FUNCTION cxios_is_defined_field_level(field_hdl ) BIND(C) 188 USE ISO_C_BINDING 189 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_level 190 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 191 END FUNCTION cxios_is_defined_field_level 138 192 139 193 … … 152 206 END SUBROUTINE cxios_get_field_long_name 153 207 208 FUNCTION cxios_is_defined_field_long_name(field_hdl ) BIND(C) 209 USE ISO_C_BINDING 210 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_long_name 211 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 212 END FUNCTION cxios_is_defined_field_long_name 213 154 214 155 215 SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C) … … 167 227 END SUBROUTINE cxios_get_field_name 168 228 229 FUNCTION cxios_is_defined_field_name(field_hdl ) BIND(C) 230 USE ISO_C_BINDING 231 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_name 232 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 233 END FUNCTION cxios_is_defined_field_name 234 169 235 170 236 SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C) … … 182 248 END SUBROUTINE cxios_get_field_operation 183 249 250 FUNCTION cxios_is_defined_field_operation(field_hdl ) BIND(C) 251 USE ISO_C_BINDING 252 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_operation 253 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 254 END FUNCTION cxios_is_defined_field_operation 255 184 256 185 257 SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C) … … 194 266 INTEGER (KIND=C_INT) :: prec 195 267 END SUBROUTINE cxios_get_field_prec 268 269 FUNCTION cxios_is_defined_field_prec(field_hdl ) BIND(C) 270 USE ISO_C_BINDING 271 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_prec 272 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 273 END FUNCTION cxios_is_defined_field_prec 196 274 197 275 … … 210 288 END SUBROUTINE cxios_get_field_standard_name 211 289 290 FUNCTION cxios_is_defined_field_standard_name(field_hdl ) BIND(C) 291 USE ISO_C_BINDING 292 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_standard_name 293 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 294 END FUNCTION cxios_is_defined_field_standard_name 295 212 296 213 297 SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C) … … 225 309 END SUBROUTINE cxios_get_field_unit 226 310 311 FUNCTION cxios_is_defined_field_unit(field_hdl ) BIND(C) 312 USE ISO_C_BINDING 313 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_unit 314 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 315 END FUNCTION cxios_is_defined_field_unit 316 227 317 228 318 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.f90
r326 r432 23 23 END SUBROUTINE cxios_get_fieldgroup_axis_ref 24 24 25 FUNCTION cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_axis_ref 28 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 29 END FUNCTION cxios_is_defined_fieldgroup_axis_ref 30 25 31 26 32 SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) … … 35 41 REAL (KIND=C_DOUBLE) :: default_value 36 42 END SUBROUTINE cxios_get_fieldgroup_default_value 43 44 FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_default_value 47 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 48 END FUNCTION cxios_is_defined_fieldgroup_default_value 37 49 38 50 … … 51 63 END SUBROUTINE cxios_get_fieldgroup_domain_ref 52 64 65 FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl ) BIND(C) 66 USE ISO_C_BINDING 67 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_domain_ref 68 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 69 END FUNCTION cxios_is_defined_fieldgroup_domain_ref 70 53 71 54 72 SUBROUTINE cxios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C) … … 63 81 LOGICAL (KIND=C_BOOL) :: enabled 64 82 END SUBROUTINE cxios_get_fieldgroup_enabled 83 84 FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_enabled 87 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 88 END FUNCTION cxios_is_defined_fieldgroup_enabled 65 89 66 90 … … 79 103 END SUBROUTINE cxios_get_fieldgroup_field_ref 80 104 105 FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl ) BIND(C) 106 USE ISO_C_BINDING 107 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_field_ref 108 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 109 END FUNCTION cxios_is_defined_fieldgroup_field_ref 110 81 111 82 112 SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset, freq_offset_size) BIND(C) … … 94 124 END SUBROUTINE cxios_get_fieldgroup_freq_offset 95 125 126 FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl ) BIND(C) 127 USE ISO_C_BINDING 128 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_offset 129 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 130 END FUNCTION cxios_is_defined_fieldgroup_freq_offset 131 96 132 97 133 SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op, freq_op_size) BIND(C) … … 109 145 END SUBROUTINE cxios_get_fieldgroup_freq_op 110 146 147 FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl ) BIND(C) 148 USE ISO_C_BINDING 149 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_op 150 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 151 END FUNCTION cxios_is_defined_fieldgroup_freq_op 152 111 153 112 154 SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C) … … 124 166 END SUBROUTINE cxios_get_fieldgroup_grid_ref 125 167 168 FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl ) BIND(C) 169 USE ISO_C_BINDING 170 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_ref 171 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 172 END FUNCTION cxios_is_defined_fieldgroup_grid_ref 173 126 174 127 175 SUBROUTINE cxios_set_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C) … … 139 187 END SUBROUTINE cxios_get_fieldgroup_group_ref 140 188 189 FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl ) BIND(C) 190 USE ISO_C_BINDING 191 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_group_ref 192 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 193 END FUNCTION cxios_is_defined_fieldgroup_group_ref 194 141 195 142 196 SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C) … … 151 205 INTEGER (KIND=C_INT) :: level 152 206 END SUBROUTINE cxios_get_fieldgroup_level 207 208 FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl ) BIND(C) 209 USE ISO_C_BINDING 210 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_level 211 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 212 END FUNCTION cxios_is_defined_fieldgroup_level 153 213 154 214 … … 167 227 END SUBROUTINE cxios_get_fieldgroup_long_name 168 228 229 FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl ) BIND(C) 230 USE ISO_C_BINDING 231 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_long_name 232 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 233 END FUNCTION cxios_is_defined_fieldgroup_long_name 234 169 235 170 236 SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C) … … 182 248 END SUBROUTINE cxios_get_fieldgroup_name 183 249 250 FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl ) BIND(C) 251 USE ISO_C_BINDING 252 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_name 253 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 254 END FUNCTION cxios_is_defined_fieldgroup_name 255 184 256 185 257 SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C) … … 197 269 END SUBROUTINE cxios_get_fieldgroup_operation 198 270 271 FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl ) BIND(C) 272 USE ISO_C_BINDING 273 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_operation 274 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 275 END FUNCTION cxios_is_defined_fieldgroup_operation 276 199 277 200 278 SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C) … … 209 287 INTEGER (KIND=C_INT) :: prec 210 288 END SUBROUTINE cxios_get_fieldgroup_prec 289 290 FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl ) BIND(C) 291 USE ISO_C_BINDING 292 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_prec 293 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 294 END FUNCTION cxios_is_defined_fieldgroup_prec 211 295 212 296 … … 225 309 END SUBROUTINE cxios_get_fieldgroup_standard_name 226 310 311 FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl ) BIND(C) 312 USE ISO_C_BINDING 313 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_standard_name 314 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 315 END FUNCTION cxios_is_defined_fieldgroup_standard_name 316 227 317 228 318 SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C) … … 240 330 END SUBROUTINE cxios_get_fieldgroup_unit 241 331 332 FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl ) BIND(C) 333 USE ISO_C_BINDING 334 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_unit 335 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 336 END FUNCTION cxios_is_defined_fieldgroup_unit 337 242 338 243 339 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/file_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_file_description 24 24 25 FUNCTION cxios_is_defined_file_description(file_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_description 28 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 29 END FUNCTION cxios_is_defined_file_description 30 25 31 26 32 SUBROUTINE cxios_set_file_enabled(file_hdl, enabled) BIND(C) … … 36 42 END SUBROUTINE cxios_get_file_enabled 37 43 44 FUNCTION cxios_is_defined_file_enabled(file_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_enabled 47 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 48 END FUNCTION cxios_is_defined_file_enabled 49 38 50 39 51 SUBROUTINE cxios_set_file_min_digits(file_hdl, min_digits) BIND(C) … … 48 60 INTEGER (KIND=C_INT) :: min_digits 49 61 END SUBROUTINE cxios_get_file_min_digits 62 63 FUNCTION cxios_is_defined_file_min_digits(file_hdl ) BIND(C) 64 USE ISO_C_BINDING 65 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_min_digits 66 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 67 END FUNCTION cxios_is_defined_file_min_digits 50 68 51 69 … … 64 82 END SUBROUTINE cxios_get_file_name 65 83 84 FUNCTION cxios_is_defined_file_name(file_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name 87 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 88 END FUNCTION cxios_is_defined_file_name 89 66 90 67 91 SUBROUTINE cxios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C) … … 79 103 END SUBROUTINE cxios_get_file_name_suffix 80 104 105 FUNCTION cxios_is_defined_file_name_suffix(file_hdl ) BIND(C) 106 USE ISO_C_BINDING 107 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name_suffix 108 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 109 END FUNCTION cxios_is_defined_file_name_suffix 110 81 111 82 112 SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C) … … 94 124 END SUBROUTINE cxios_get_file_output_freq 95 125 126 FUNCTION cxios_is_defined_file_output_freq(file_hdl ) BIND(C) 127 USE ISO_C_BINDING 128 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_freq 129 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 130 END FUNCTION cxios_is_defined_file_output_freq 131 96 132 97 133 SUBROUTINE cxios_set_file_output_level(file_hdl, output_level) BIND(C) … … 106 142 INTEGER (KIND=C_INT) :: output_level 107 143 END SUBROUTINE cxios_get_file_output_level 144 145 FUNCTION cxios_is_defined_file_output_level(file_hdl ) BIND(C) 146 USE ISO_C_BINDING 147 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_level 148 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 149 END FUNCTION cxios_is_defined_file_output_level 108 150 109 151 … … 122 164 END SUBROUTINE cxios_get_file_par_access 123 165 166 FUNCTION cxios_is_defined_file_par_access(file_hdl ) BIND(C) 167 USE ISO_C_BINDING 168 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_par_access 169 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 170 END FUNCTION cxios_is_defined_file_par_access 171 124 172 125 173 SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq, split_freq_size) BIND(C) … … 137 185 END SUBROUTINE cxios_get_file_split_freq 138 186 187 FUNCTION cxios_is_defined_file_split_freq(file_hdl ) BIND(C) 188 USE ISO_C_BINDING 189 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq 190 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 191 END FUNCTION cxios_is_defined_file_split_freq 192 193 194 SUBROUTINE cxios_set_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C) 195 USE ISO_C_BINDING 196 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 197 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_freq_format 198 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 199 END SUBROUTINE cxios_set_file_split_freq_format 200 201 SUBROUTINE cxios_get_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C) 202 USE ISO_C_BINDING 203 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 204 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_freq_format 205 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 206 END SUBROUTINE cxios_get_file_split_freq_format 207 208 FUNCTION cxios_is_defined_file_split_freq_format(file_hdl ) BIND(C) 209 USE ISO_C_BINDING 210 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq_format 211 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 212 END FUNCTION cxios_is_defined_file_split_freq_format 213 139 214 140 215 SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_freq, sync_freq_size) BIND(C) … … 152 227 END SUBROUTINE cxios_get_file_sync_freq 153 228 229 FUNCTION cxios_is_defined_file_sync_freq(file_hdl ) BIND(C) 230 USE ISO_C_BINDING 231 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_sync_freq 232 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 233 END FUNCTION cxios_is_defined_file_sync_freq 234 154 235 155 236 SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C) … … 167 248 END SUBROUTINE cxios_get_file_type 168 249 250 FUNCTION cxios_is_defined_file_type(file_hdl ) BIND(C) 251 USE ISO_C_BINDING 252 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_type 253 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 254 END FUNCTION cxios_is_defined_file_type 255 169 256 170 257 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_filegroup_description 24 24 25 FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_description 28 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 29 END FUNCTION cxios_is_defined_filegroup_description 30 25 31 26 32 SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C) … … 35 41 LOGICAL (KIND=C_BOOL) :: enabled 36 42 END SUBROUTINE cxios_get_filegroup_enabled 43 44 FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_enabled 47 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 48 END FUNCTION cxios_is_defined_filegroup_enabled 37 49 38 50 … … 51 63 END SUBROUTINE cxios_get_filegroup_group_ref 52 64 65 FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl ) BIND(C) 66 USE ISO_C_BINDING 67 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_group_ref 68 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 69 END FUNCTION cxios_is_defined_filegroup_group_ref 70 53 71 54 72 SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C) … … 63 81 INTEGER (KIND=C_INT) :: min_digits 64 82 END SUBROUTINE cxios_get_filegroup_min_digits 83 84 FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_min_digits 87 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 88 END FUNCTION cxios_is_defined_filegroup_min_digits 65 89 66 90 … … 79 103 END SUBROUTINE cxios_get_filegroup_name 80 104 105 FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl ) BIND(C) 106 USE ISO_C_BINDING 107 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name 108 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 109 END FUNCTION cxios_is_defined_filegroup_name 110 81 111 82 112 SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C) … … 94 124 END SUBROUTINE cxios_get_filegroup_name_suffix 95 125 126 FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl ) BIND(C) 127 USE ISO_C_BINDING 128 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name_suffix 129 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 130 END FUNCTION cxios_is_defined_filegroup_name_suffix 131 96 132 97 133 SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq, output_freq_size) BIND(C) … … 109 145 END SUBROUTINE cxios_get_filegroup_output_freq 110 146 147 FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl ) BIND(C) 148 USE ISO_C_BINDING 149 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_freq 150 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 151 END FUNCTION cxios_is_defined_filegroup_output_freq 152 111 153 112 154 SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C) … … 121 163 INTEGER (KIND=C_INT) :: output_level 122 164 END SUBROUTINE cxios_get_filegroup_output_level 165 166 FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl ) BIND(C) 167 USE ISO_C_BINDING 168 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_level 169 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 170 END FUNCTION cxios_is_defined_filegroup_output_level 123 171 124 172 … … 137 185 END SUBROUTINE cxios_get_filegroup_par_access 138 186 187 FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl ) BIND(C) 188 USE ISO_C_BINDING 189 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_par_access 190 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 191 END FUNCTION cxios_is_defined_filegroup_par_access 192 139 193 140 194 SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq, split_freq_size) BIND(C) … … 152 206 END SUBROUTINE cxios_get_filegroup_split_freq 153 207 208 FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl ) BIND(C) 209 USE ISO_C_BINDING 210 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq 211 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 212 END FUNCTION cxios_is_defined_filegroup_split_freq 213 214 215 SUBROUTINE cxios_set_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C) 216 USE ISO_C_BINDING 217 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 218 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_freq_format 219 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 220 END SUBROUTINE cxios_set_filegroup_split_freq_format 221 222 SUBROUTINE cxios_get_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C) 223 USE ISO_C_BINDING 224 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 225 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_freq_format 226 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 227 END SUBROUTINE cxios_get_filegroup_split_freq_format 228 229 FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl ) BIND(C) 230 USE ISO_C_BINDING 231 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq_format 232 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 233 END FUNCTION cxios_is_defined_filegroup_split_freq_format 234 154 235 155 236 SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq, sync_freq_size) BIND(C) … … 167 248 END SUBROUTINE cxios_get_filegroup_sync_freq 168 249 250 FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl ) BIND(C) 251 USE ISO_C_BINDING 252 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_sync_freq 253 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 254 END FUNCTION cxios_is_defined_filegroup_sync_freq 255 169 256 170 257 SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C) … … 182 269 END SUBROUTINE cxios_get_filegroup_type 183 270 271 FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl ) BIND(C) 272 USE ISO_C_BINDING 273 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_type 274 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 275 END FUNCTION cxios_is_defined_filegroup_type 276 184 277 185 278 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/grid_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_grid_axis_ref 24 24 25 FUNCTION cxios_is_defined_grid_axis_ref(grid_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_axis_ref 28 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 29 END FUNCTION cxios_is_defined_grid_axis_ref 30 25 31 26 32 SUBROUTINE cxios_set_grid_description(grid_hdl, description, description_size) BIND(C) … … 38 44 END SUBROUTINE cxios_get_grid_description 39 45 46 FUNCTION cxios_is_defined_grid_description(grid_hdl ) BIND(C) 47 USE ISO_C_BINDING 48 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_description 49 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 50 END FUNCTION cxios_is_defined_grid_description 51 40 52 41 53 SUBROUTINE cxios_set_grid_domain_ref(grid_hdl, domain_ref, domain_ref_size) BIND(C) … … 52 64 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 53 65 END SUBROUTINE cxios_get_grid_domain_ref 66 67 FUNCTION cxios_is_defined_grid_domain_ref(grid_hdl ) BIND(C) 68 USE ISO_C_BINDING 69 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_domain_ref 70 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 71 END FUNCTION cxios_is_defined_grid_domain_ref 54 72 55 73 … … 72 90 END SUBROUTINE cxios_get_grid_mask 73 91 92 FUNCTION cxios_is_defined_grid_mask(grid_hdl ) BIND(C) 93 USE ISO_C_BINDING 94 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask 95 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 96 END FUNCTION cxios_is_defined_grid_mask 97 74 98 75 99 SUBROUTINE cxios_set_grid_name(grid_hdl, name, name_size) BIND(C) … … 87 111 END SUBROUTINE cxios_get_grid_name 88 112 113 FUNCTION cxios_is_defined_grid_name(grid_hdl ) BIND(C) 114 USE ISO_C_BINDING 115 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_name 116 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 117 END FUNCTION cxios_is_defined_grid_name 118 89 119 90 120 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/gridgroup_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_gridgroup_axis_ref 24 24 25 FUNCTION cxios_is_defined_gridgroup_axis_ref(gridgroup_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_axis_ref 28 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 29 END FUNCTION cxios_is_defined_gridgroup_axis_ref 30 25 31 26 32 SUBROUTINE cxios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C) … … 37 43 INTEGER (kind = C_INT) , VALUE :: description_size 38 44 END SUBROUTINE cxios_get_gridgroup_description 45 46 FUNCTION cxios_is_defined_gridgroup_description(gridgroup_hdl ) BIND(C) 47 USE ISO_C_BINDING 48 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_description 49 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 50 END FUNCTION cxios_is_defined_gridgroup_description 39 51 40 52 … … 53 65 END SUBROUTINE cxios_get_gridgroup_domain_ref 54 66 67 FUNCTION cxios_is_defined_gridgroup_domain_ref(gridgroup_hdl ) BIND(C) 68 USE ISO_C_BINDING 69 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_domain_ref 70 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 71 END FUNCTION cxios_is_defined_gridgroup_domain_ref 72 55 73 56 74 SUBROUTINE cxios_set_gridgroup_group_ref(gridgroup_hdl, group_ref, group_ref_size) BIND(C) … … 67 85 INTEGER (kind = C_INT) , VALUE :: group_ref_size 68 86 END SUBROUTINE cxios_get_gridgroup_group_ref 87 88 FUNCTION cxios_is_defined_gridgroup_group_ref(gridgroup_hdl ) BIND(C) 89 USE ISO_C_BINDING 90 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_group_ref 91 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 92 END FUNCTION cxios_is_defined_gridgroup_group_ref 69 93 70 94 … … 87 111 END SUBROUTINE cxios_get_gridgroup_mask 88 112 113 FUNCTION cxios_is_defined_gridgroup_mask(gridgroup_hdl ) BIND(C) 114 USE ISO_C_BINDING 115 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask 116 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 117 END FUNCTION cxios_is_defined_gridgroup_mask 118 89 119 90 120 SUBROUTINE cxios_set_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C) … … 102 132 END SUBROUTINE cxios_get_gridgroup_name 103 133 134 FUNCTION cxios_is_defined_gridgroup_name(gridgroup_hdl ) BIND(C) 135 USE ISO_C_BINDING 136 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_name 137 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 138 END FUNCTION cxios_is_defined_gridgroup_name 139 104 140 105 141 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/iaxis_attr.F90
r415 r432 229 229 END SUBROUTINE xios(get_axis_attr_hdl_) 230 230 231 SUBROUTINE xios(is_defined_axis_attr) & 232 ( axis_id, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end & 233 , zoom_size ) 234 235 IMPLICIT NONE 236 TYPE(txios(axis)) :: axis_hdl 237 CHARACTER(LEN=*), INTENT(IN) ::axis_id 238 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 239 LOGICAL(KIND=C_BOOL) :: long_name_tmp 240 LOGICAL, OPTIONAL, INTENT(OUT) :: name 241 LOGICAL(KIND=C_BOOL) :: name_tmp 242 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 243 LOGICAL(KIND=C_BOOL) :: positive_tmp 244 LOGICAL, OPTIONAL, INTENT(OUT) :: size 245 LOGICAL(KIND=C_BOOL) :: size_tmp 246 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 247 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 248 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 249 LOGICAL(KIND=C_BOOL) :: unit_tmp 250 LOGICAL, OPTIONAL, INTENT(OUT) :: value 251 LOGICAL(KIND=C_BOOL) :: value_tmp 252 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 253 LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 254 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 255 LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 256 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 257 LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 258 259 CALL xios(get_axis_handle)(axis_id,axis_hdl) 260 CALL xios(is_defined_axis_attr_hdl_) & 261 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end & 262 , zoom_size ) 263 264 END SUBROUTINE xios(is_defined_axis_attr) 265 266 SUBROUTINE xios(is_defined_axis_attr_hdl) & 267 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end & 268 , zoom_size ) 269 270 IMPLICIT NONE 271 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 272 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 273 LOGICAL(KIND=C_BOOL) :: long_name_tmp 274 LOGICAL, OPTIONAL, INTENT(OUT) :: name 275 LOGICAL(KIND=C_BOOL) :: name_tmp 276 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 277 LOGICAL(KIND=C_BOOL) :: positive_tmp 278 LOGICAL, OPTIONAL, INTENT(OUT) :: size 279 LOGICAL(KIND=C_BOOL) :: size_tmp 280 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 281 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 282 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 283 LOGICAL(KIND=C_BOOL) :: unit_tmp 284 LOGICAL, OPTIONAL, INTENT(OUT) :: value 285 LOGICAL(KIND=C_BOOL) :: value_tmp 286 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 287 LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 288 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 289 LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 290 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 291 LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 292 293 CALL xios(is_defined_axis_attr_hdl_) & 294 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end & 295 , zoom_size ) 296 297 END SUBROUTINE xios(is_defined_axis_attr_hdl) 298 299 SUBROUTINE xios(is_defined_axis_attr_hdl_) & 300 ( axis_hdl, long_name_, name_, positive_, size_, standard_name_, unit_, value_, zoom_begin_ & 301 , zoom_end_, zoom_size_ ) 302 303 IMPLICIT NONE 304 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 305 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 306 LOGICAL(KIND=C_BOOL) :: long_name__tmp 307 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 308 LOGICAL(KIND=C_BOOL) :: name__tmp 309 LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 310 LOGICAL(KIND=C_BOOL) :: positive__tmp 311 LOGICAL, OPTIONAL, INTENT(OUT) :: size_ 312 LOGICAL(KIND=C_BOOL) :: size__tmp 313 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 314 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 315 LOGICAL, OPTIONAL, INTENT(OUT) :: unit_ 316 LOGICAL(KIND=C_BOOL) :: unit__tmp 317 LOGICAL, OPTIONAL, INTENT(OUT) :: value_ 318 LOGICAL(KIND=C_BOOL) :: value__tmp 319 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_ 320 LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp 321 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_ 322 LOGICAL(KIND=C_BOOL) :: zoom_end__tmp 323 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_ 324 LOGICAL(KIND=C_BOOL) :: zoom_size__tmp 325 326 IF (PRESENT(long_name_)) THEN 327 long_name__tmp=cxios_is_defined_axis_long_name(axis_hdl%daddr) 328 long_name_=long_name__tmp 329 ENDIF 330 331 IF (PRESENT(name_)) THEN 332 name__tmp=cxios_is_defined_axis_name(axis_hdl%daddr) 333 name_=name__tmp 334 ENDIF 335 336 IF (PRESENT(positive_)) THEN 337 positive__tmp=cxios_is_defined_axis_positive(axis_hdl%daddr) 338 positive_=positive__tmp 339 ENDIF 340 341 IF (PRESENT(size_)) THEN 342 size__tmp=cxios_is_defined_axis_size(axis_hdl%daddr) 343 size_=size__tmp 344 ENDIF 345 346 IF (PRESENT(standard_name_)) THEN 347 standard_name__tmp=cxios_is_defined_axis_standard_name(axis_hdl%daddr) 348 standard_name_=standard_name__tmp 349 ENDIF 350 351 IF (PRESENT(unit_)) THEN 352 unit__tmp=cxios_is_defined_axis_unit(axis_hdl%daddr) 353 unit_=unit__tmp 354 ENDIF 355 356 IF (PRESENT(value_)) THEN 357 value__tmp=cxios_is_defined_axis_value(axis_hdl%daddr) 358 value_=value__tmp 359 ENDIF 360 361 IF (PRESENT(zoom_begin_)) THEN 362 zoom_begin__tmp=cxios_is_defined_axis_zoom_begin(axis_hdl%daddr) 363 zoom_begin_=zoom_begin__tmp 364 ENDIF 365 366 IF (PRESENT(zoom_end_)) THEN 367 zoom_end__tmp=cxios_is_defined_axis_zoom_end(axis_hdl%daddr) 368 zoom_end_=zoom_end__tmp 369 ENDIF 370 371 IF (PRESENT(zoom_size_)) THEN 372 zoom_size__tmp=cxios_is_defined_axis_zoom_size(axis_hdl%daddr) 373 zoom_size_=zoom_size__tmp 374 ENDIF 375 376 377 378 END SUBROUTINE xios(is_defined_axis_attr_hdl_) 379 231 380 END MODULE iaxis_attr -
XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90
r415 r432 243 243 END SUBROUTINE xios(get_axisgroup_attr_hdl_) 244 244 245 SUBROUTINE xios(is_defined_axisgroup_attr) & 246 ( axisgroup_id, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 247 , zoom_end, zoom_size ) 248 249 IMPLICIT NONE 250 TYPE(txios(axisgroup)) :: axisgroup_hdl 251 CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id 252 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 253 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 254 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 255 LOGICAL(KIND=C_BOOL) :: long_name_tmp 256 LOGICAL, OPTIONAL, INTENT(OUT) :: name 257 LOGICAL(KIND=C_BOOL) :: name_tmp 258 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 259 LOGICAL(KIND=C_BOOL) :: positive_tmp 260 LOGICAL, OPTIONAL, INTENT(OUT) :: size 261 LOGICAL(KIND=C_BOOL) :: size_tmp 262 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 263 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 264 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 265 LOGICAL(KIND=C_BOOL) :: unit_tmp 266 LOGICAL, OPTIONAL, INTENT(OUT) :: value 267 LOGICAL(KIND=C_BOOL) :: value_tmp 268 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 269 LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 270 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 271 LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 272 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 273 LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 274 275 CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 276 CALL xios(is_defined_axisgroup_attr_hdl_) & 277 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 278 , zoom_end, zoom_size ) 279 280 END SUBROUTINE xios(is_defined_axisgroup_attr) 281 282 SUBROUTINE xios(is_defined_axisgroup_attr_hdl) & 283 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 284 , zoom_end, zoom_size ) 285 286 IMPLICIT NONE 287 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 288 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 289 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 290 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 291 LOGICAL(KIND=C_BOOL) :: long_name_tmp 292 LOGICAL, OPTIONAL, INTENT(OUT) :: name 293 LOGICAL(KIND=C_BOOL) :: name_tmp 294 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 295 LOGICAL(KIND=C_BOOL) :: positive_tmp 296 LOGICAL, OPTIONAL, INTENT(OUT) :: size 297 LOGICAL(KIND=C_BOOL) :: size_tmp 298 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 299 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 300 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 301 LOGICAL(KIND=C_BOOL) :: unit_tmp 302 LOGICAL, OPTIONAL, INTENT(OUT) :: value 303 LOGICAL(KIND=C_BOOL) :: value_tmp 304 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 305 LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 306 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 307 LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 308 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 309 LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 310 311 CALL xios(is_defined_axisgroup_attr_hdl_) & 312 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 313 , zoom_end, zoom_size ) 314 315 END SUBROUTINE xios(is_defined_axisgroup_attr_hdl) 316 317 SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) & 318 ( axisgroup_hdl, group_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_ & 319 , zoom_begin_, zoom_end_, zoom_size_ ) 320 321 IMPLICIT NONE 322 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 323 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 324 LOGICAL(KIND=C_BOOL) :: group_ref__tmp 325 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 326 LOGICAL(KIND=C_BOOL) :: long_name__tmp 327 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 328 LOGICAL(KIND=C_BOOL) :: name__tmp 329 LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 330 LOGICAL(KIND=C_BOOL) :: positive__tmp 331 LOGICAL, OPTIONAL, INTENT(OUT) :: size_ 332 LOGICAL(KIND=C_BOOL) :: size__tmp 333 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 334 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 335 LOGICAL, OPTIONAL, INTENT(OUT) :: unit_ 336 LOGICAL(KIND=C_BOOL) :: unit__tmp 337 LOGICAL, OPTIONAL, INTENT(OUT) :: value_ 338 LOGICAL(KIND=C_BOOL) :: value__tmp 339 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_ 340 LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp 341 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_ 342 LOGICAL(KIND=C_BOOL) :: zoom_end__tmp 343 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_ 344 LOGICAL(KIND=C_BOOL) :: zoom_size__tmp 345 346 IF (PRESENT(group_ref_)) THEN 347 group_ref__tmp=cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr) 348 group_ref_=group_ref__tmp 349 ENDIF 350 351 IF (PRESENT(long_name_)) THEN 352 long_name__tmp=cxios_is_defined_axisgroup_long_name(axisgroup_hdl%daddr) 353 long_name_=long_name__tmp 354 ENDIF 355 356 IF (PRESENT(name_)) THEN 357 name__tmp=cxios_is_defined_axisgroup_name(axisgroup_hdl%daddr) 358 name_=name__tmp 359 ENDIF 360 361 IF (PRESENT(positive_)) THEN 362 positive__tmp=cxios_is_defined_axisgroup_positive(axisgroup_hdl%daddr) 363 positive_=positive__tmp 364 ENDIF 365 366 IF (PRESENT(size_)) THEN 367 size__tmp=cxios_is_defined_axisgroup_size(axisgroup_hdl%daddr) 368 size_=size__tmp 369 ENDIF 370 371 IF (PRESENT(standard_name_)) THEN 372 standard_name__tmp=cxios_is_defined_axisgroup_standard_name(axisgroup_hdl%daddr) 373 standard_name_=standard_name__tmp 374 ENDIF 375 376 IF (PRESENT(unit_)) THEN 377 unit__tmp=cxios_is_defined_axisgroup_unit(axisgroup_hdl%daddr) 378 unit_=unit__tmp 379 ENDIF 380 381 IF (PRESENT(value_)) THEN 382 value__tmp=cxios_is_defined_axisgroup_value(axisgroup_hdl%daddr) 383 value_=value__tmp 384 ENDIF 385 386 IF (PRESENT(zoom_begin_)) THEN 387 zoom_begin__tmp=cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl%daddr) 388 zoom_begin_=zoom_begin__tmp 389 ENDIF 390 391 IF (PRESENT(zoom_end_)) THEN 392 zoom_end__tmp=cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl%daddr) 393 zoom_end_=zoom_end__tmp 394 ENDIF 395 396 IF (PRESENT(zoom_size_)) THEN 397 zoom_size__tmp=cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl%daddr) 398 zoom_size_=zoom_size__tmp 399 ENDIF 400 401 402 403 END SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) 404 245 405 END MODULE iaxisgroup_attr -
XIOS/trunk/src/interface/fortran_attr/icontext_attr.F90
r369 r432 149 149 END SUBROUTINE xios(get_context_attr_hdl_) 150 150 151 SUBROUTINE xios(is_defined_context_attr) & 152 ( context_id, calendar_type, output_dir, start_date, time_origin, timestep ) 153 154 IMPLICIT NONE 155 TYPE(txios(context)) :: context_hdl 156 CHARACTER(LEN=*), INTENT(IN) ::context_id 157 LOGICAL, OPTIONAL, INTENT(OUT) :: calendar_type 158 LOGICAL(KIND=C_BOOL) :: calendar_type_tmp 159 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 160 LOGICAL(KIND=C_BOOL) :: output_dir_tmp 161 LOGICAL, OPTIONAL, INTENT(OUT) :: start_date 162 LOGICAL(KIND=C_BOOL) :: start_date_tmp 163 LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin 164 LOGICAL(KIND=C_BOOL) :: time_origin_tmp 165 LOGICAL, OPTIONAL, INTENT(OUT) :: timestep 166 LOGICAL(KIND=C_BOOL) :: timestep_tmp 167 168 CALL xios(get_context_handle)(context_id,context_hdl) 169 CALL xios(is_defined_context_attr_hdl_) & 170 ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep ) 171 172 END SUBROUTINE xios(is_defined_context_attr) 173 174 SUBROUTINE xios(is_defined_context_attr_hdl) & 175 ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep ) 176 177 IMPLICIT NONE 178 TYPE(txios(context)) , INTENT(IN) :: context_hdl 179 LOGICAL, OPTIONAL, INTENT(OUT) :: calendar_type 180 LOGICAL(KIND=C_BOOL) :: calendar_type_tmp 181 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 182 LOGICAL(KIND=C_BOOL) :: output_dir_tmp 183 LOGICAL, OPTIONAL, INTENT(OUT) :: start_date 184 LOGICAL(KIND=C_BOOL) :: start_date_tmp 185 LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin 186 LOGICAL(KIND=C_BOOL) :: time_origin_tmp 187 LOGICAL, OPTIONAL, INTENT(OUT) :: timestep 188 LOGICAL(KIND=C_BOOL) :: timestep_tmp 189 190 CALL xios(is_defined_context_attr_hdl_) & 191 ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep ) 192 193 END SUBROUTINE xios(is_defined_context_attr_hdl) 194 195 SUBROUTINE xios(is_defined_context_attr_hdl_) & 196 ( context_hdl, calendar_type_, output_dir_, start_date_, time_origin_, timestep_ ) 197 198 IMPLICIT NONE 199 TYPE(txios(context)) , INTENT(IN) :: context_hdl 200 LOGICAL, OPTIONAL, INTENT(OUT) :: calendar_type_ 201 LOGICAL(KIND=C_BOOL) :: calendar_type__tmp 202 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_ 203 LOGICAL(KIND=C_BOOL) :: output_dir__tmp 204 LOGICAL, OPTIONAL, INTENT(OUT) :: start_date_ 205 LOGICAL(KIND=C_BOOL) :: start_date__tmp 206 LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin_ 207 LOGICAL(KIND=C_BOOL) :: time_origin__tmp 208 LOGICAL, OPTIONAL, INTENT(OUT) :: timestep_ 209 LOGICAL(KIND=C_BOOL) :: timestep__tmp 210 211 IF (PRESENT(calendar_type_)) THEN 212 calendar_type__tmp=cxios_is_defined_context_calendar_type(context_hdl%daddr) 213 calendar_type_=calendar_type__tmp 214 ENDIF 215 216 IF (PRESENT(output_dir_)) THEN 217 output_dir__tmp=cxios_is_defined_context_output_dir(context_hdl%daddr) 218 output_dir_=output_dir__tmp 219 ENDIF 220 221 IF (PRESENT(start_date_)) THEN 222 start_date__tmp=cxios_is_defined_context_start_date(context_hdl%daddr) 223 start_date_=start_date__tmp 224 ENDIF 225 226 IF (PRESENT(time_origin_)) THEN 227 time_origin__tmp=cxios_is_defined_context_time_origin(context_hdl%daddr) 228 time_origin_=time_origin__tmp 229 ENDIF 230 231 IF (PRESENT(timestep_)) THEN 232 timestep__tmp=cxios_is_defined_context_timestep(context_hdl%daddr) 233 timestep_=timestep__tmp 234 ENDIF 235 236 237 238 END SUBROUTINE xios(is_defined_context_attr_hdl_) 239 151 240 END MODULE icontext_attr -
XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
r326 r432 553 553 END SUBROUTINE xios(get_domain_attr_hdl_) 554 554 555 SUBROUTINE xios(is_defined_domain_attr) & 556 ( domain_id, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni & 557 , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask & 558 , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 559 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 560 561 IMPLICIT NONE 562 TYPE(txios(domain)) :: domain_hdl 563 CHARACTER(LEN=*), INTENT(IN) ::domain_id 564 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 565 LOGICAL(KIND=C_BOOL) :: data_dim_tmp 566 LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index 567 LOGICAL(KIND=C_BOOL) :: data_i_index_tmp 568 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin 569 LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp 570 LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index 571 LOGICAL(KIND=C_BOOL) :: data_j_index_tmp 572 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 573 LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 574 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index 575 LOGICAL(KIND=C_BOOL) :: data_n_index_tmp 576 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 577 LOGICAL(KIND=C_BOOL) :: data_ni_tmp 578 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 579 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 580 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 581 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 582 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 583 LOGICAL(KIND=C_BOOL) :: ibegin_tmp 584 LOGICAL, OPTIONAL, INTENT(OUT) :: iend 585 LOGICAL(KIND=C_BOOL) :: iend_tmp 586 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 587 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 588 LOGICAL, OPTIONAL, INTENT(OUT) :: jend 589 LOGICAL(KIND=C_BOOL) :: jend_tmp 590 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 591 LOGICAL(KIND=C_BOOL) :: latvalue_tmp 592 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 593 LOGICAL(KIND=C_BOOL) :: long_name_tmp 594 LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue 595 LOGICAL(KIND=C_BOOL) :: lonvalue_tmp 596 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 597 LOGICAL(KIND=C_BOOL) :: mask_tmp 598 LOGICAL, OPTIONAL, INTENT(OUT) :: name 599 LOGICAL(KIND=C_BOOL) :: name_tmp 600 LOGICAL, OPTIONAL, INTENT(OUT) :: ni 601 LOGICAL(KIND=C_BOOL) :: ni_tmp 602 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo 603 LOGICAL(KIND=C_BOOL) :: ni_glo_tmp 604 LOGICAL, OPTIONAL, INTENT(OUT) :: nj 605 LOGICAL(KIND=C_BOOL) :: nj_tmp 606 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 607 LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 608 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 609 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 610 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 611 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 612 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 613 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp 614 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 615 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 616 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 617 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp 618 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 619 LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 620 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc 621 LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp 622 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 623 LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 624 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 625 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 626 627 CALL xios(get_domain_handle)(domain_id,domain_hdl) 628 CALL xios(is_defined_domain_attr_hdl_) & 629 ( domain_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni & 630 , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask & 631 , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 632 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 633 634 END SUBROUTINE xios(is_defined_domain_attr) 635 636 SUBROUTINE xios(is_defined_domain_attr_hdl) & 637 ( domain_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni & 638 , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask & 639 , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 640 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 641 642 IMPLICIT NONE 643 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl 644 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 645 LOGICAL(KIND=C_BOOL) :: data_dim_tmp 646 LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index 647 LOGICAL(KIND=C_BOOL) :: data_i_index_tmp 648 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin 649 LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp 650 LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index 651 LOGICAL(KIND=C_BOOL) :: data_j_index_tmp 652 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 653 LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 654 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index 655 LOGICAL(KIND=C_BOOL) :: data_n_index_tmp 656 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 657 LOGICAL(KIND=C_BOOL) :: data_ni_tmp 658 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 659 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 660 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 661 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 662 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 663 LOGICAL(KIND=C_BOOL) :: ibegin_tmp 664 LOGICAL, OPTIONAL, INTENT(OUT) :: iend 665 LOGICAL(KIND=C_BOOL) :: iend_tmp 666 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 667 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 668 LOGICAL, OPTIONAL, INTENT(OUT) :: jend 669 LOGICAL(KIND=C_BOOL) :: jend_tmp 670 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 671 LOGICAL(KIND=C_BOOL) :: latvalue_tmp 672 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 673 LOGICAL(KIND=C_BOOL) :: long_name_tmp 674 LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue 675 LOGICAL(KIND=C_BOOL) :: lonvalue_tmp 676 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 677 LOGICAL(KIND=C_BOOL) :: mask_tmp 678 LOGICAL, OPTIONAL, INTENT(OUT) :: name 679 LOGICAL(KIND=C_BOOL) :: name_tmp 680 LOGICAL, OPTIONAL, INTENT(OUT) :: ni 681 LOGICAL(KIND=C_BOOL) :: ni_tmp 682 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo 683 LOGICAL(KIND=C_BOOL) :: ni_glo_tmp 684 LOGICAL, OPTIONAL, INTENT(OUT) :: nj 685 LOGICAL(KIND=C_BOOL) :: nj_tmp 686 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 687 LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 688 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 689 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 690 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 691 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 692 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 693 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp 694 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 695 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 696 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 697 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp 698 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 699 LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 700 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc 701 LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp 702 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 703 LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 704 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 705 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 706 707 CALL xios(is_defined_domain_attr_hdl_) & 708 ( domain_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni & 709 , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask & 710 , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 711 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 712 713 END SUBROUTINE xios(is_defined_domain_attr_hdl) 714 715 SUBROUTINE xios(is_defined_domain_attr_hdl_) & 716 ( domain_hdl, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_ & 717 , data_ni_, data_nj_, domain_group_ref_, ibegin_, iend_, jbegin_, jend_, latvalue_, long_name_ & 718 , lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, standard_name_, zoom_ibegin_, zoom_ibegin_loc_ & 719 , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 720 721 IMPLICIT NONE 722 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl 723 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_ 724 LOGICAL(KIND=C_BOOL) :: data_dim__tmp 725 LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_ 726 LOGICAL(KIND=C_BOOL) :: data_i_index__tmp 727 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_ 728 LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp 729 LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_ 730 LOGICAL(KIND=C_BOOL) :: data_j_index__tmp 731 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_ 732 LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp 733 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_ 734 LOGICAL(KIND=C_BOOL) :: data_n_index__tmp 735 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_ 736 LOGICAL(KIND=C_BOOL) :: data_ni__tmp 737 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 738 LOGICAL(KIND=C_BOOL) :: data_nj__tmp 739 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_ 740 LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp 741 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_ 742 LOGICAL(KIND=C_BOOL) :: ibegin__tmp 743 LOGICAL, OPTIONAL, INTENT(OUT) :: iend_ 744 LOGICAL(KIND=C_BOOL) :: iend__tmp 745 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 746 LOGICAL(KIND=C_BOOL) :: jbegin__tmp 747 LOGICAL, OPTIONAL, INTENT(OUT) :: jend_ 748 LOGICAL(KIND=C_BOOL) :: jend__tmp 749 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_ 750 LOGICAL(KIND=C_BOOL) :: latvalue__tmp 751 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 752 LOGICAL(KIND=C_BOOL) :: long_name__tmp 753 LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_ 754 LOGICAL(KIND=C_BOOL) :: lonvalue__tmp 755 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 756 LOGICAL(KIND=C_BOOL) :: mask__tmp 757 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 758 LOGICAL(KIND=C_BOOL) :: name__tmp 759 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_ 760 LOGICAL(KIND=C_BOOL) :: ni__tmp 761 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_ 762 LOGICAL(KIND=C_BOOL) :: ni_glo__tmp 763 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_ 764 LOGICAL(KIND=C_BOOL) :: nj__tmp 765 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_ 766 LOGICAL(KIND=C_BOOL) :: nj_glo__tmp 767 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 768 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 769 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_ 770 LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp 771 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_ 772 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp 773 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_ 774 LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp 775 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_ 776 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp 777 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_ 778 LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp 779 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_ 780 LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp 781 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_ 782 LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp 783 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_ 784 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp 785 786 IF (PRESENT(data_dim_)) THEN 787 data_dim__tmp=cxios_is_defined_domain_data_dim(domain_hdl%daddr) 788 data_dim_=data_dim__tmp 789 ENDIF 790 791 IF (PRESENT(data_i_index_)) THEN 792 data_i_index__tmp=cxios_is_defined_domain_data_i_index(domain_hdl%daddr) 793 data_i_index_=data_i_index__tmp 794 ENDIF 795 796 IF (PRESENT(data_ibegin_)) THEN 797 data_ibegin__tmp=cxios_is_defined_domain_data_ibegin(domain_hdl%daddr) 798 data_ibegin_=data_ibegin__tmp 799 ENDIF 800 801 IF (PRESENT(data_j_index_)) THEN 802 data_j_index__tmp=cxios_is_defined_domain_data_j_index(domain_hdl%daddr) 803 data_j_index_=data_j_index__tmp 804 ENDIF 805 806 IF (PRESENT(data_jbegin_)) THEN 807 data_jbegin__tmp=cxios_is_defined_domain_data_jbegin(domain_hdl%daddr) 808 data_jbegin_=data_jbegin__tmp 809 ENDIF 810 811 IF (PRESENT(data_n_index_)) THEN 812 data_n_index__tmp=cxios_is_defined_domain_data_n_index(domain_hdl%daddr) 813 data_n_index_=data_n_index__tmp 814 ENDIF 815 816 IF (PRESENT(data_ni_)) THEN 817 data_ni__tmp=cxios_is_defined_domain_data_ni(domain_hdl%daddr) 818 data_ni_=data_ni__tmp 819 ENDIF 820 821 IF (PRESENT(data_nj_)) THEN 822 data_nj__tmp=cxios_is_defined_domain_data_nj(domain_hdl%daddr) 823 data_nj_=data_nj__tmp 824 ENDIF 825 826 IF (PRESENT(domain_group_ref_)) THEN 827 domain_group_ref__tmp=cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr) 828 domain_group_ref_=domain_group_ref__tmp 829 ENDIF 830 831 IF (PRESENT(ibegin_)) THEN 832 ibegin__tmp=cxios_is_defined_domain_ibegin(domain_hdl%daddr) 833 ibegin_=ibegin__tmp 834 ENDIF 835 836 IF (PRESENT(iend_)) THEN 837 iend__tmp=cxios_is_defined_domain_iend(domain_hdl%daddr) 838 iend_=iend__tmp 839 ENDIF 840 841 IF (PRESENT(jbegin_)) THEN 842 jbegin__tmp=cxios_is_defined_domain_jbegin(domain_hdl%daddr) 843 jbegin_=jbegin__tmp 844 ENDIF 845 846 IF (PRESENT(jend_)) THEN 847 jend__tmp=cxios_is_defined_domain_jend(domain_hdl%daddr) 848 jend_=jend__tmp 849 ENDIF 850 851 IF (PRESENT(latvalue_)) THEN 852 latvalue__tmp=cxios_is_defined_domain_latvalue(domain_hdl%daddr) 853 latvalue_=latvalue__tmp 854 ENDIF 855 856 IF (PRESENT(long_name_)) THEN 857 long_name__tmp=cxios_is_defined_domain_long_name(domain_hdl%daddr) 858 long_name_=long_name__tmp 859 ENDIF 860 861 IF (PRESENT(lonvalue_)) THEN 862 lonvalue__tmp=cxios_is_defined_domain_lonvalue(domain_hdl%daddr) 863 lonvalue_=lonvalue__tmp 864 ENDIF 865 866 IF (PRESENT(mask_)) THEN 867 mask__tmp=cxios_is_defined_domain_mask(domain_hdl%daddr) 868 mask_=mask__tmp 869 ENDIF 870 871 IF (PRESENT(name_)) THEN 872 name__tmp=cxios_is_defined_domain_name(domain_hdl%daddr) 873 name_=name__tmp 874 ENDIF 875 876 IF (PRESENT(ni_)) THEN 877 ni__tmp=cxios_is_defined_domain_ni(domain_hdl%daddr) 878 ni_=ni__tmp 879 ENDIF 880 881 IF (PRESENT(ni_glo_)) THEN 882 ni_glo__tmp=cxios_is_defined_domain_ni_glo(domain_hdl%daddr) 883 ni_glo_=ni_glo__tmp 884 ENDIF 885 886 IF (PRESENT(nj_)) THEN 887 nj__tmp=cxios_is_defined_domain_nj(domain_hdl%daddr) 888 nj_=nj__tmp 889 ENDIF 890 891 IF (PRESENT(nj_glo_)) THEN 892 nj_glo__tmp=cxios_is_defined_domain_nj_glo(domain_hdl%daddr) 893 nj_glo_=nj_glo__tmp 894 ENDIF 895 896 IF (PRESENT(standard_name_)) THEN 897 standard_name__tmp=cxios_is_defined_domain_standard_name(domain_hdl%daddr) 898 standard_name_=standard_name__tmp 899 ENDIF 900 901 IF (PRESENT(zoom_ibegin_)) THEN 902 zoom_ibegin__tmp=cxios_is_defined_domain_zoom_ibegin(domain_hdl%daddr) 903 zoom_ibegin_=zoom_ibegin__tmp 904 ENDIF 905 906 IF (PRESENT(zoom_ibegin_loc_)) THEN 907 zoom_ibegin_loc__tmp=cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl%daddr) 908 zoom_ibegin_loc_=zoom_ibegin_loc__tmp 909 ENDIF 910 911 IF (PRESENT(zoom_jbegin_)) THEN 912 zoom_jbegin__tmp=cxios_is_defined_domain_zoom_jbegin(domain_hdl%daddr) 913 zoom_jbegin_=zoom_jbegin__tmp 914 ENDIF 915 916 IF (PRESENT(zoom_jbegin_loc_)) THEN 917 zoom_jbegin_loc__tmp=cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl%daddr) 918 zoom_jbegin_loc_=zoom_jbegin_loc__tmp 919 ENDIF 920 921 IF (PRESENT(zoom_ni_)) THEN 922 zoom_ni__tmp=cxios_is_defined_domain_zoom_ni(domain_hdl%daddr) 923 zoom_ni_=zoom_ni__tmp 924 ENDIF 925 926 IF (PRESENT(zoom_ni_loc_)) THEN 927 zoom_ni_loc__tmp=cxios_is_defined_domain_zoom_ni_loc(domain_hdl%daddr) 928 zoom_ni_loc_=zoom_ni_loc__tmp 929 ENDIF 930 931 IF (PRESENT(zoom_nj_)) THEN 932 zoom_nj__tmp=cxios_is_defined_domain_zoom_nj(domain_hdl%daddr) 933 zoom_nj_=zoom_nj__tmp 934 ENDIF 935 936 IF (PRESENT(zoom_nj_loc_)) THEN 937 zoom_nj_loc__tmp=cxios_is_defined_domain_zoom_nj_loc(domain_hdl%daddr) 938 zoom_nj_loc_=zoom_nj_loc__tmp 939 ENDIF 940 941 942 943 END SUBROUTINE xios(is_defined_domain_attr_hdl_) 944 555 945 END MODULE idomain_attr -
XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90
r326 r432 569 569 END SUBROUTINE xios(get_domaingroup_attr_hdl_) 570 570 571 SUBROUTINE xios(is_defined_domaingroup_attr) & 572 ( domaingroup_id, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index & 573 , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 574 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc & 575 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 576 577 IMPLICIT NONE 578 TYPE(txios(domaingroup)) :: domaingroup_hdl 579 CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id 580 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 581 LOGICAL(KIND=C_BOOL) :: data_dim_tmp 582 LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index 583 LOGICAL(KIND=C_BOOL) :: data_i_index_tmp 584 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin 585 LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp 586 LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index 587 LOGICAL(KIND=C_BOOL) :: data_j_index_tmp 588 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 589 LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 590 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index 591 LOGICAL(KIND=C_BOOL) :: data_n_index_tmp 592 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 593 LOGICAL(KIND=C_BOOL) :: data_ni_tmp 594 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 595 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 596 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 597 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 598 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 599 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 600 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 601 LOGICAL(KIND=C_BOOL) :: ibegin_tmp 602 LOGICAL, OPTIONAL, INTENT(OUT) :: iend 603 LOGICAL(KIND=C_BOOL) :: iend_tmp 604 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 605 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 606 LOGICAL, OPTIONAL, INTENT(OUT) :: jend 607 LOGICAL(KIND=C_BOOL) :: jend_tmp 608 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 609 LOGICAL(KIND=C_BOOL) :: latvalue_tmp 610 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 611 LOGICAL(KIND=C_BOOL) :: long_name_tmp 612 LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue 613 LOGICAL(KIND=C_BOOL) :: lonvalue_tmp 614 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 615 LOGICAL(KIND=C_BOOL) :: mask_tmp 616 LOGICAL, OPTIONAL, INTENT(OUT) :: name 617 LOGICAL(KIND=C_BOOL) :: name_tmp 618 LOGICAL, OPTIONAL, INTENT(OUT) :: ni 619 LOGICAL(KIND=C_BOOL) :: ni_tmp 620 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo 621 LOGICAL(KIND=C_BOOL) :: ni_glo_tmp 622 LOGICAL, OPTIONAL, INTENT(OUT) :: nj 623 LOGICAL(KIND=C_BOOL) :: nj_tmp 624 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 625 LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 626 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 627 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 628 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 629 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 630 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 631 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp 632 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 633 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 634 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 635 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp 636 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 637 LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 638 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc 639 LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp 640 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 641 LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 642 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 643 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 644 645 CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 646 CALL xios(is_defined_domaingroup_attr_hdl_) & 647 ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index & 648 , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 649 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc & 650 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 651 652 END SUBROUTINE xios(is_defined_domaingroup_attr) 653 654 SUBROUTINE xios(is_defined_domaingroup_attr_hdl) & 655 ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index & 656 , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 657 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc & 658 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 659 660 IMPLICIT NONE 661 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 662 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 663 LOGICAL(KIND=C_BOOL) :: data_dim_tmp 664 LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index 665 LOGICAL(KIND=C_BOOL) :: data_i_index_tmp 666 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin 667 LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp 668 LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index 669 LOGICAL(KIND=C_BOOL) :: data_j_index_tmp 670 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 671 LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 672 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index 673 LOGICAL(KIND=C_BOOL) :: data_n_index_tmp 674 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 675 LOGICAL(KIND=C_BOOL) :: data_ni_tmp 676 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 677 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 678 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 679 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 680 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 681 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 682 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 683 LOGICAL(KIND=C_BOOL) :: ibegin_tmp 684 LOGICAL, OPTIONAL, INTENT(OUT) :: iend 685 LOGICAL(KIND=C_BOOL) :: iend_tmp 686 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 687 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 688 LOGICAL, OPTIONAL, INTENT(OUT) :: jend 689 LOGICAL(KIND=C_BOOL) :: jend_tmp 690 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 691 LOGICAL(KIND=C_BOOL) :: latvalue_tmp 692 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 693 LOGICAL(KIND=C_BOOL) :: long_name_tmp 694 LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue 695 LOGICAL(KIND=C_BOOL) :: lonvalue_tmp 696 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 697 LOGICAL(KIND=C_BOOL) :: mask_tmp 698 LOGICAL, OPTIONAL, INTENT(OUT) :: name 699 LOGICAL(KIND=C_BOOL) :: name_tmp 700 LOGICAL, OPTIONAL, INTENT(OUT) :: ni 701 LOGICAL(KIND=C_BOOL) :: ni_tmp 702 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo 703 LOGICAL(KIND=C_BOOL) :: ni_glo_tmp 704 LOGICAL, OPTIONAL, INTENT(OUT) :: nj 705 LOGICAL(KIND=C_BOOL) :: nj_tmp 706 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 707 LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 708 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 709 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 710 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 711 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 712 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 713 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp 714 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 715 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 716 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 717 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp 718 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 719 LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 720 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc 721 LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp 722 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 723 LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 724 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 725 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 726 727 CALL xios(is_defined_domaingroup_attr_hdl_) & 728 ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index & 729 , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 730 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc & 731 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 732 733 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 734 735 SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) & 736 ( domaingroup_hdl, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_ & 737 , data_ni_, data_nj_, domain_group_ref_, group_ref_, ibegin_, iend_, jbegin_, jend_, latvalue_ & 738 , long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, standard_name_, zoom_ibegin_ & 739 , zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ & 740 ) 741 742 IMPLICIT NONE 743 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 744 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_ 745 LOGICAL(KIND=C_BOOL) :: data_dim__tmp 746 LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_ 747 LOGICAL(KIND=C_BOOL) :: data_i_index__tmp 748 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_ 749 LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp 750 LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_ 751 LOGICAL(KIND=C_BOOL) :: data_j_index__tmp 752 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_ 753 LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp 754 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_ 755 LOGICAL(KIND=C_BOOL) :: data_n_index__tmp 756 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_ 757 LOGICAL(KIND=C_BOOL) :: data_ni__tmp 758 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 759 LOGICAL(KIND=C_BOOL) :: data_nj__tmp 760 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_ 761 LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp 762 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 763 LOGICAL(KIND=C_BOOL) :: group_ref__tmp 764 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_ 765 LOGICAL(KIND=C_BOOL) :: ibegin__tmp 766 LOGICAL, OPTIONAL, INTENT(OUT) :: iend_ 767 LOGICAL(KIND=C_BOOL) :: iend__tmp 768 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 769 LOGICAL(KIND=C_BOOL) :: jbegin__tmp 770 LOGICAL, OPTIONAL, INTENT(OUT) :: jend_ 771 LOGICAL(KIND=C_BOOL) :: jend__tmp 772 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_ 773 LOGICAL(KIND=C_BOOL) :: latvalue__tmp 774 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 775 LOGICAL(KIND=C_BOOL) :: long_name__tmp 776 LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_ 777 LOGICAL(KIND=C_BOOL) :: lonvalue__tmp 778 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 779 LOGICAL(KIND=C_BOOL) :: mask__tmp 780 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 781 LOGICAL(KIND=C_BOOL) :: name__tmp 782 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_ 783 LOGICAL(KIND=C_BOOL) :: ni__tmp 784 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_ 785 LOGICAL(KIND=C_BOOL) :: ni_glo__tmp 786 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_ 787 LOGICAL(KIND=C_BOOL) :: nj__tmp 788 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_ 789 LOGICAL(KIND=C_BOOL) :: nj_glo__tmp 790 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 791 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 792 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_ 793 LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp 794 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_ 795 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp 796 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_ 797 LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp 798 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_ 799 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp 800 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_ 801 LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp 802 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_ 803 LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp 804 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_ 805 LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp 806 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_ 807 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp 808 809 IF (PRESENT(data_dim_)) THEN 810 data_dim__tmp=cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr) 811 data_dim_=data_dim__tmp 812 ENDIF 813 814 IF (PRESENT(data_i_index_)) THEN 815 data_i_index__tmp=cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr) 816 data_i_index_=data_i_index__tmp 817 ENDIF 818 819 IF (PRESENT(data_ibegin_)) THEN 820 data_ibegin__tmp=cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr) 821 data_ibegin_=data_ibegin__tmp 822 ENDIF 823 824 IF (PRESENT(data_j_index_)) THEN 825 data_j_index__tmp=cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr) 826 data_j_index_=data_j_index__tmp 827 ENDIF 828 829 IF (PRESENT(data_jbegin_)) THEN 830 data_jbegin__tmp=cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr) 831 data_jbegin_=data_jbegin__tmp 832 ENDIF 833 834 IF (PRESENT(data_n_index_)) THEN 835 data_n_index__tmp=cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl%daddr) 836 data_n_index_=data_n_index__tmp 837 ENDIF 838 839 IF (PRESENT(data_ni_)) THEN 840 data_ni__tmp=cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr) 841 data_ni_=data_ni__tmp 842 ENDIF 843 844 IF (PRESENT(data_nj_)) THEN 845 data_nj__tmp=cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr) 846 data_nj_=data_nj__tmp 847 ENDIF 848 849 IF (PRESENT(domain_group_ref_)) THEN 850 domain_group_ref__tmp=cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr) 851 domain_group_ref_=domain_group_ref__tmp 852 ENDIF 853 854 IF (PRESENT(group_ref_)) THEN 855 group_ref__tmp=cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr) 856 group_ref_=group_ref__tmp 857 ENDIF 858 859 IF (PRESENT(ibegin_)) THEN 860 ibegin__tmp=cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr) 861 ibegin_=ibegin__tmp 862 ENDIF 863 864 IF (PRESENT(iend_)) THEN 865 iend__tmp=cxios_is_defined_domaingroup_iend(domaingroup_hdl%daddr) 866 iend_=iend__tmp 867 ENDIF 868 869 IF (PRESENT(jbegin_)) THEN 870 jbegin__tmp=cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr) 871 jbegin_=jbegin__tmp 872 ENDIF 873 874 IF (PRESENT(jend_)) THEN 875 jend__tmp=cxios_is_defined_domaingroup_jend(domaingroup_hdl%daddr) 876 jend_=jend__tmp 877 ENDIF 878 879 IF (PRESENT(latvalue_)) THEN 880 latvalue__tmp=cxios_is_defined_domaingroup_latvalue(domaingroup_hdl%daddr) 881 latvalue_=latvalue__tmp 882 ENDIF 883 884 IF (PRESENT(long_name_)) THEN 885 long_name__tmp=cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr) 886 long_name_=long_name__tmp 887 ENDIF 888 889 IF (PRESENT(lonvalue_)) THEN 890 lonvalue__tmp=cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl%daddr) 891 lonvalue_=lonvalue__tmp 892 ENDIF 893 894 IF (PRESENT(mask_)) THEN 895 mask__tmp=cxios_is_defined_domaingroup_mask(domaingroup_hdl%daddr) 896 mask_=mask__tmp 897 ENDIF 898 899 IF (PRESENT(name_)) THEN 900 name__tmp=cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr) 901 name_=name__tmp 902 ENDIF 903 904 IF (PRESENT(ni_)) THEN 905 ni__tmp=cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr) 906 ni_=ni__tmp 907 ENDIF 908 909 IF (PRESENT(ni_glo_)) THEN 910 ni_glo__tmp=cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr) 911 ni_glo_=ni_glo__tmp 912 ENDIF 913 914 IF (PRESENT(nj_)) THEN 915 nj__tmp=cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr) 916 nj_=nj__tmp 917 ENDIF 918 919 IF (PRESENT(nj_glo_)) THEN 920 nj_glo__tmp=cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr) 921 nj_glo_=nj_glo__tmp 922 ENDIF 923 924 IF (PRESENT(standard_name_)) THEN 925 standard_name__tmp=cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr) 926 standard_name_=standard_name__tmp 927 ENDIF 928 929 IF (PRESENT(zoom_ibegin_)) THEN 930 zoom_ibegin__tmp=cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl%daddr) 931 zoom_ibegin_=zoom_ibegin__tmp 932 ENDIF 933 934 IF (PRESENT(zoom_ibegin_loc_)) THEN 935 zoom_ibegin_loc__tmp=cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr) 936 zoom_ibegin_loc_=zoom_ibegin_loc__tmp 937 ENDIF 938 939 IF (PRESENT(zoom_jbegin_)) THEN 940 zoom_jbegin__tmp=cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl%daddr) 941 zoom_jbegin_=zoom_jbegin__tmp 942 ENDIF 943 944 IF (PRESENT(zoom_jbegin_loc_)) THEN 945 zoom_jbegin_loc__tmp=cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr) 946 zoom_jbegin_loc_=zoom_jbegin_loc__tmp 947 ENDIF 948 949 IF (PRESENT(zoom_ni_)) THEN 950 zoom_ni__tmp=cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl%daddr) 951 zoom_ni_=zoom_ni__tmp 952 ENDIF 953 954 IF (PRESENT(zoom_ni_loc_)) THEN 955 zoom_ni_loc__tmp=cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr) 956 zoom_ni_loc_=zoom_ni_loc__tmp 957 ENDIF 958 959 IF (PRESENT(zoom_nj_)) THEN 960 zoom_nj__tmp=cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl%daddr) 961 zoom_nj_=zoom_nj__tmp 962 ENDIF 963 964 IF (PRESENT(zoom_nj_loc_)) THEN 965 zoom_nj_loc__tmp=cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr) 966 zoom_nj_loc_=zoom_nj_loc__tmp 967 ENDIF 968 969 970 971 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) 972 571 973 END MODULE idomaingroup_attr -
XIOS/trunk/src/interface/fortran_attr/ifield_attr.F90
r326 r432 307 307 END SUBROUTINE xios(get_field_attr_hdl_) 308 308 309 SUBROUTINE xios(is_defined_field_attr) & 310 ( field_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref & 311 , level, long_name, name, operation, prec, standard_name, unit ) 312 313 IMPLICIT NONE 314 TYPE(txios(field)) :: field_hdl 315 CHARACTER(LEN=*), INTENT(IN) ::field_id 316 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 317 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 318 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 319 LOGICAL(KIND=C_BOOL) :: default_value_tmp 320 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 321 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 322 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 323 LOGICAL(KIND=C_BOOL) :: enabled_tmp 324 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref 325 LOGICAL(KIND=C_BOOL) :: field_ref_tmp 326 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset 327 LOGICAL(KIND=C_BOOL) :: freq_offset_tmp 328 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op 329 LOGICAL(KIND=C_BOOL) :: freq_op_tmp 330 LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref 331 LOGICAL(KIND=C_BOOL) :: grid_ref_tmp 332 LOGICAL, OPTIONAL, INTENT(OUT) :: level 333 LOGICAL(KIND=C_BOOL) :: level_tmp 334 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 335 LOGICAL(KIND=C_BOOL) :: long_name_tmp 336 LOGICAL, OPTIONAL, INTENT(OUT) :: name 337 LOGICAL(KIND=C_BOOL) :: name_tmp 338 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 339 LOGICAL(KIND=C_BOOL) :: operation_tmp 340 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 341 LOGICAL(KIND=C_BOOL) :: prec_tmp 342 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 343 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 344 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 345 LOGICAL(KIND=C_BOOL) :: unit_tmp 346 347 CALL xios(get_field_handle)(field_id,field_hdl) 348 CALL xios(is_defined_field_attr_hdl_) & 349 ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref & 350 , level, long_name, name, operation, prec, standard_name, unit ) 351 352 END SUBROUTINE xios(is_defined_field_attr) 353 354 SUBROUTINE xios(is_defined_field_attr_hdl) & 355 ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref & 356 , level, long_name, name, operation, prec, standard_name, unit ) 357 358 IMPLICIT NONE 359 TYPE(txios(field)) , INTENT(IN) :: field_hdl 360 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 361 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 362 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 363 LOGICAL(KIND=C_BOOL) :: default_value_tmp 364 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 365 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 366 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 367 LOGICAL(KIND=C_BOOL) :: enabled_tmp 368 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref 369 LOGICAL(KIND=C_BOOL) :: field_ref_tmp 370 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset 371 LOGICAL(KIND=C_BOOL) :: freq_offset_tmp 372 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op 373 LOGICAL(KIND=C_BOOL) :: freq_op_tmp 374 LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref 375 LOGICAL(KIND=C_BOOL) :: grid_ref_tmp 376 LOGICAL, OPTIONAL, INTENT(OUT) :: level 377 LOGICAL(KIND=C_BOOL) :: level_tmp 378 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 379 LOGICAL(KIND=C_BOOL) :: long_name_tmp 380 LOGICAL, OPTIONAL, INTENT(OUT) :: name 381 LOGICAL(KIND=C_BOOL) :: name_tmp 382 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 383 LOGICAL(KIND=C_BOOL) :: operation_tmp 384 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 385 LOGICAL(KIND=C_BOOL) :: prec_tmp 386 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 387 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 388 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 389 LOGICAL(KIND=C_BOOL) :: unit_tmp 390 391 CALL xios(is_defined_field_attr_hdl_) & 392 ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref & 393 , level, long_name, name, operation, prec, standard_name, unit ) 394 395 END SUBROUTINE xios(is_defined_field_attr_hdl) 396 397 SUBROUTINE xios(is_defined_field_attr_hdl_) & 398 ( field_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_ & 399 , grid_ref_, level_, long_name_, name_, operation_, prec_, standard_name_, unit_ ) 400 401 IMPLICIT NONE 402 TYPE(txios(field)) , INTENT(IN) :: field_hdl 403 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 404 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 405 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 406 LOGICAL(KIND=C_BOOL) :: default_value__tmp 407 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 408 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 409 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ 410 LOGICAL(KIND=C_BOOL) :: enabled__tmp 411 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_ 412 LOGICAL(KIND=C_BOOL) :: field_ref__tmp 413 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_ 414 LOGICAL(KIND=C_BOOL) :: freq_offset__tmp 415 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_ 416 LOGICAL(KIND=C_BOOL) :: freq_op__tmp 417 LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_ 418 LOGICAL(KIND=C_BOOL) :: grid_ref__tmp 419 LOGICAL, OPTIONAL, INTENT(OUT) :: level_ 420 LOGICAL(KIND=C_BOOL) :: level__tmp 421 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 422 LOGICAL(KIND=C_BOOL) :: long_name__tmp 423 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 424 LOGICAL(KIND=C_BOOL) :: name__tmp 425 LOGICAL, OPTIONAL, INTENT(OUT) :: operation_ 426 LOGICAL(KIND=C_BOOL) :: operation__tmp 427 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 428 LOGICAL(KIND=C_BOOL) :: prec__tmp 429 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 430 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 431 LOGICAL, OPTIONAL, INTENT(OUT) :: unit_ 432 LOGICAL(KIND=C_BOOL) :: unit__tmp 433 434 IF (PRESENT(axis_ref_)) THEN 435 axis_ref__tmp=cxios_is_defined_field_axis_ref(field_hdl%daddr) 436 axis_ref_=axis_ref__tmp 437 ENDIF 438 439 IF (PRESENT(default_value_)) THEN 440 default_value__tmp=cxios_is_defined_field_default_value(field_hdl%daddr) 441 default_value_=default_value__tmp 442 ENDIF 443 444 IF (PRESENT(domain_ref_)) THEN 445 domain_ref__tmp=cxios_is_defined_field_domain_ref(field_hdl%daddr) 446 domain_ref_=domain_ref__tmp 447 ENDIF 448 449 IF (PRESENT(enabled_)) THEN 450 enabled__tmp=cxios_is_defined_field_enabled(field_hdl%daddr) 451 enabled_=enabled__tmp 452 ENDIF 453 454 IF (PRESENT(field_ref_)) THEN 455 field_ref__tmp=cxios_is_defined_field_field_ref(field_hdl%daddr) 456 field_ref_=field_ref__tmp 457 ENDIF 458 459 IF (PRESENT(freq_offset_)) THEN 460 freq_offset__tmp=cxios_is_defined_field_freq_offset(field_hdl%daddr) 461 freq_offset_=freq_offset__tmp 462 ENDIF 463 464 IF (PRESENT(freq_op_)) THEN 465 freq_op__tmp=cxios_is_defined_field_freq_op(field_hdl%daddr) 466 freq_op_=freq_op__tmp 467 ENDIF 468 469 IF (PRESENT(grid_ref_)) THEN 470 grid_ref__tmp=cxios_is_defined_field_grid_ref(field_hdl%daddr) 471 grid_ref_=grid_ref__tmp 472 ENDIF 473 474 IF (PRESENT(level_)) THEN 475 level__tmp=cxios_is_defined_field_level(field_hdl%daddr) 476 level_=level__tmp 477 ENDIF 478 479 IF (PRESENT(long_name_)) THEN 480 long_name__tmp=cxios_is_defined_field_long_name(field_hdl%daddr) 481 long_name_=long_name__tmp 482 ENDIF 483 484 IF (PRESENT(name_)) THEN 485 name__tmp=cxios_is_defined_field_name(field_hdl%daddr) 486 name_=name__tmp 487 ENDIF 488 489 IF (PRESENT(operation_)) THEN 490 operation__tmp=cxios_is_defined_field_operation(field_hdl%daddr) 491 operation_=operation__tmp 492 ENDIF 493 494 IF (PRESENT(prec_)) THEN 495 prec__tmp=cxios_is_defined_field_prec(field_hdl%daddr) 496 prec_=prec__tmp 497 ENDIF 498 499 IF (PRESENT(standard_name_)) THEN 500 standard_name__tmp=cxios_is_defined_field_standard_name(field_hdl%daddr) 501 standard_name_=standard_name__tmp 502 ENDIF 503 504 IF (PRESENT(unit_)) THEN 505 unit__tmp=cxios_is_defined_field_unit(field_hdl%daddr) 506 unit_=unit__tmp 507 ENDIF 508 509 510 511 END SUBROUTINE xios(is_defined_field_attr_hdl_) 512 309 513 END MODULE ifield_attr -
XIOS/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90
r326 r432 323 323 END SUBROUTINE xios(get_fieldgroup_attr_hdl_) 324 324 325 SUBROUTINE xios(is_defined_fieldgroup_attr) & 326 ( fieldgroup_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op & 327 , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit ) 328 329 IMPLICIT NONE 330 TYPE(txios(fieldgroup)) :: fieldgroup_hdl 331 CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id 332 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 333 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 334 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 335 LOGICAL(KIND=C_BOOL) :: default_value_tmp 336 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 337 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 338 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 339 LOGICAL(KIND=C_BOOL) :: enabled_tmp 340 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref 341 LOGICAL(KIND=C_BOOL) :: field_ref_tmp 342 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset 343 LOGICAL(KIND=C_BOOL) :: freq_offset_tmp 344 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op 345 LOGICAL(KIND=C_BOOL) :: freq_op_tmp 346 LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref 347 LOGICAL(KIND=C_BOOL) :: grid_ref_tmp 348 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 349 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 350 LOGICAL, OPTIONAL, INTENT(OUT) :: level 351 LOGICAL(KIND=C_BOOL) :: level_tmp 352 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 353 LOGICAL(KIND=C_BOOL) :: long_name_tmp 354 LOGICAL, OPTIONAL, INTENT(OUT) :: name 355 LOGICAL(KIND=C_BOOL) :: name_tmp 356 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 357 LOGICAL(KIND=C_BOOL) :: operation_tmp 358 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 359 LOGICAL(KIND=C_BOOL) :: prec_tmp 360 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 361 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 362 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 363 LOGICAL(KIND=C_BOOL) :: unit_tmp 364 365 CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 366 CALL xios(is_defined_fieldgroup_attr_hdl_) & 367 ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op & 368 , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit ) 369 370 END SUBROUTINE xios(is_defined_fieldgroup_attr) 371 372 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) & 373 ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op & 374 , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit ) 375 376 IMPLICIT NONE 377 TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl 378 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 379 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 380 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 381 LOGICAL(KIND=C_BOOL) :: default_value_tmp 382 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 383 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 384 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 385 LOGICAL(KIND=C_BOOL) :: enabled_tmp 386 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref 387 LOGICAL(KIND=C_BOOL) :: field_ref_tmp 388 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset 389 LOGICAL(KIND=C_BOOL) :: freq_offset_tmp 390 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op 391 LOGICAL(KIND=C_BOOL) :: freq_op_tmp 392 LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref 393 LOGICAL(KIND=C_BOOL) :: grid_ref_tmp 394 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 395 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 396 LOGICAL, OPTIONAL, INTENT(OUT) :: level 397 LOGICAL(KIND=C_BOOL) :: level_tmp 398 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 399 LOGICAL(KIND=C_BOOL) :: long_name_tmp 400 LOGICAL, OPTIONAL, INTENT(OUT) :: name 401 LOGICAL(KIND=C_BOOL) :: name_tmp 402 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 403 LOGICAL(KIND=C_BOOL) :: operation_tmp 404 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 405 LOGICAL(KIND=C_BOOL) :: prec_tmp 406 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 407 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 408 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 409 LOGICAL(KIND=C_BOOL) :: unit_tmp 410 411 CALL xios(is_defined_fieldgroup_attr_hdl_) & 412 ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op & 413 , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit ) 414 415 END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 416 417 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) & 418 ( fieldgroup_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_ & 419 , freq_op_, grid_ref_, group_ref_, level_, long_name_, name_, operation_, prec_, standard_name_ & 420 , unit_ ) 421 422 IMPLICIT NONE 423 TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl 424 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 425 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 426 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 427 LOGICAL(KIND=C_BOOL) :: default_value__tmp 428 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 429 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 430 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ 431 LOGICAL(KIND=C_BOOL) :: enabled__tmp 432 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_ 433 LOGICAL(KIND=C_BOOL) :: field_ref__tmp 434 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_ 435 LOGICAL(KIND=C_BOOL) :: freq_offset__tmp 436 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_ 437 LOGICAL(KIND=C_BOOL) :: freq_op__tmp 438 LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_ 439 LOGICAL(KIND=C_BOOL) :: grid_ref__tmp 440 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 441 LOGICAL(KIND=C_BOOL) :: group_ref__tmp 442 LOGICAL, OPTIONAL, INTENT(OUT) :: level_ 443 LOGICAL(KIND=C_BOOL) :: level__tmp 444 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 445 LOGICAL(KIND=C_BOOL) :: long_name__tmp 446 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 447 LOGICAL(KIND=C_BOOL) :: name__tmp 448 LOGICAL, OPTIONAL, INTENT(OUT) :: operation_ 449 LOGICAL(KIND=C_BOOL) :: operation__tmp 450 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 451 LOGICAL(KIND=C_BOOL) :: prec__tmp 452 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 453 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 454 LOGICAL, OPTIONAL, INTENT(OUT) :: unit_ 455 LOGICAL(KIND=C_BOOL) :: unit__tmp 456 457 IF (PRESENT(axis_ref_)) THEN 458 axis_ref__tmp=cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr) 459 axis_ref_=axis_ref__tmp 460 ENDIF 461 462 IF (PRESENT(default_value_)) THEN 463 default_value__tmp=cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr) 464 default_value_=default_value__tmp 465 ENDIF 466 467 IF (PRESENT(domain_ref_)) THEN 468 domain_ref__tmp=cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr) 469 domain_ref_=domain_ref__tmp 470 ENDIF 471 472 IF (PRESENT(enabled_)) THEN 473 enabled__tmp=cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr) 474 enabled_=enabled__tmp 475 ENDIF 476 477 IF (PRESENT(field_ref_)) THEN 478 field_ref__tmp=cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr) 479 field_ref_=field_ref__tmp 480 ENDIF 481 482 IF (PRESENT(freq_offset_)) THEN 483 freq_offset__tmp=cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr) 484 freq_offset_=freq_offset__tmp 485 ENDIF 486 487 IF (PRESENT(freq_op_)) THEN 488 freq_op__tmp=cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr) 489 freq_op_=freq_op__tmp 490 ENDIF 491 492 IF (PRESENT(grid_ref_)) THEN 493 grid_ref__tmp=cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr) 494 grid_ref_=grid_ref__tmp 495 ENDIF 496 497 IF (PRESENT(group_ref_)) THEN 498 group_ref__tmp=cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr) 499 group_ref_=group_ref__tmp 500 ENDIF 501 502 IF (PRESENT(level_)) THEN 503 level__tmp=cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr) 504 level_=level__tmp 505 ENDIF 506 507 IF (PRESENT(long_name_)) THEN 508 long_name__tmp=cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr) 509 long_name_=long_name__tmp 510 ENDIF 511 512 IF (PRESENT(name_)) THEN 513 name__tmp=cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr) 514 name_=name__tmp 515 ENDIF 516 517 IF (PRESENT(operation_)) THEN 518 operation__tmp=cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr) 519 operation_=operation__tmp 520 ENDIF 521 522 IF (PRESENT(prec_)) THEN 523 prec__tmp=cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr) 524 prec_=prec__tmp 525 ENDIF 526 527 IF (PRESENT(standard_name_)) THEN 528 standard_name__tmp=cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr) 529 standard_name_=standard_name__tmp 530 ENDIF 531 532 IF (PRESENT(unit_)) THEN 533 unit__tmp=cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr) 534 unit_=unit__tmp 535 ENDIF 536 537 538 539 END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) 540 325 541 END MODULE ifieldgroup_attr -
XIOS/trunk/src/interface/fortran_attr/ifile_attr.F90
r415 r432 13 13 SUBROUTINE xios(set_file_attr) & 14 14 ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 15 , split_freq, s ync_freq, type )15 , split_freq, split_freq_format, sync_freq, type ) 16 16 17 17 IMPLICIT NONE … … 28 28 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 29 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 30 31 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq 31 32 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 34 35 CALL xios(set_file_attr_hdl_) & 35 36 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 36 , split_freq, s ync_freq, type )37 , split_freq, split_freq_format, sync_freq, type ) 37 38 38 39 END SUBROUTINE xios(set_file_attr) … … 40 41 SUBROUTINE xios(set_file_attr_hdl) & 41 42 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 42 , split_freq, s ync_freq, type )43 , split_freq, split_freq_format, sync_freq, type ) 43 44 44 45 IMPLICIT NONE … … 54 55 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 55 56 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 57 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 56 58 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq 57 59 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 59 61 CALL xios(set_file_attr_hdl_) & 60 62 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 61 , split_freq, s ync_freq, type )63 , split_freq, split_freq_format, sync_freq, type ) 62 64 63 65 END SUBROUTINE xios(set_file_attr_hdl) … … 65 67 SUBROUTINE xios(set_file_attr_hdl_) & 66 68 ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_ & 67 , par_access_, split_freq_, s ync_freq_, type_ )69 , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 68 70 69 71 IMPLICIT NONE … … 79 81 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 80 82 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_ 83 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_ 81 84 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq_ 82 85 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ … … 119 122 ENDIF 120 123 124 IF (PRESENT(split_freq_format_)) THEN 125 CALL cxios_set_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 126 ENDIF 127 121 128 IF (PRESENT(sync_freq_)) THEN 122 129 CALL cxios_set_file_sync_freq(file_hdl%daddr, sync_freq_, len(sync_freq_)) … … 133 140 SUBROUTINE xios(get_file_attr) & 134 141 ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 135 , split_freq, s ync_freq, type )142 , split_freq, split_freq_format, sync_freq, type ) 136 143 137 144 IMPLICIT NONE … … 148 155 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 149 156 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 157 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 150 158 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq 151 159 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 154 162 CALL xios(get_file_attr_hdl_) & 155 163 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 156 , split_freq, s ync_freq, type )164 , split_freq, split_freq_format, sync_freq, type ) 157 165 158 166 END SUBROUTINE xios(get_file_attr) … … 160 168 SUBROUTINE xios(get_file_attr_hdl) & 161 169 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 162 , split_freq, s ync_freq, type )170 , split_freq, split_freq_format, sync_freq, type ) 163 171 164 172 IMPLICIT NONE … … 174 182 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 175 183 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 184 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 176 185 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq 177 186 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 179 188 CALL xios(get_file_attr_hdl_) & 180 189 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 181 , split_freq, s ync_freq, type )190 , split_freq, split_freq_format, sync_freq, type ) 182 191 183 192 END SUBROUTINE xios(get_file_attr_hdl) … … 185 194 SUBROUTINE xios(get_file_attr_hdl_) & 186 195 ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_ & 187 , par_access_, split_freq_, s ync_freq_, type_ )196 , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 188 197 189 198 IMPLICIT NONE … … 199 208 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 200 209 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_ 210 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_ 201 211 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq_ 202 212 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ … … 239 249 ENDIF 240 250 251 IF (PRESENT(split_freq_format_)) THEN 252 CALL cxios_get_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 253 ENDIF 254 241 255 IF (PRESENT(sync_freq_)) THEN 242 256 CALL cxios_get_file_sync_freq(file_hdl%daddr, sync_freq_, len(sync_freq_)) … … 251 265 END SUBROUTINE xios(get_file_attr_hdl_) 252 266 267 SUBROUTINE xios(is_defined_file_attr) & 268 ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 269 , split_freq, split_freq_format, sync_freq, type ) 270 271 IMPLICIT NONE 272 TYPE(txios(file)) :: file_hdl 273 CHARACTER(LEN=*), INTENT(IN) ::file_id 274 LOGICAL, OPTIONAL, INTENT(OUT) :: description 275 LOGICAL(KIND=C_BOOL) :: description_tmp 276 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 277 LOGICAL(KIND=C_BOOL) :: enabled_tmp 278 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 279 LOGICAL(KIND=C_BOOL) :: min_digits_tmp 280 LOGICAL, OPTIONAL, INTENT(OUT) :: name 281 LOGICAL(KIND=C_BOOL) :: name_tmp 282 LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix 283 LOGICAL(KIND=C_BOOL) :: name_suffix_tmp 284 LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq 285 LOGICAL(KIND=C_BOOL) :: output_freq_tmp 286 LOGICAL, OPTIONAL, INTENT(OUT) :: output_level 287 LOGICAL(KIND=C_BOOL) :: output_level_tmp 288 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 289 LOGICAL(KIND=C_BOOL) :: par_access_tmp 290 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 291 LOGICAL(KIND=C_BOOL) :: split_freq_tmp 292 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 293 LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 294 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 295 LOGICAL(KIND=C_BOOL) :: sync_freq_tmp 296 LOGICAL, OPTIONAL, INTENT(OUT) :: type 297 LOGICAL(KIND=C_BOOL) :: type_tmp 298 299 CALL xios(get_file_handle)(file_id,file_hdl) 300 CALL xios(is_defined_file_attr_hdl_) & 301 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 302 , split_freq, split_freq_format, sync_freq, type ) 303 304 END SUBROUTINE xios(is_defined_file_attr) 305 306 SUBROUTINE xios(is_defined_file_attr_hdl) & 307 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 308 , split_freq, split_freq_format, sync_freq, type ) 309 310 IMPLICIT NONE 311 TYPE(txios(file)) , INTENT(IN) :: file_hdl 312 LOGICAL, OPTIONAL, INTENT(OUT) :: description 313 LOGICAL(KIND=C_BOOL) :: description_tmp 314 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 315 LOGICAL(KIND=C_BOOL) :: enabled_tmp 316 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 317 LOGICAL(KIND=C_BOOL) :: min_digits_tmp 318 LOGICAL, OPTIONAL, INTENT(OUT) :: name 319 LOGICAL(KIND=C_BOOL) :: name_tmp 320 LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix 321 LOGICAL(KIND=C_BOOL) :: name_suffix_tmp 322 LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq 323 LOGICAL(KIND=C_BOOL) :: output_freq_tmp 324 LOGICAL, OPTIONAL, INTENT(OUT) :: output_level 325 LOGICAL(KIND=C_BOOL) :: output_level_tmp 326 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 327 LOGICAL(KIND=C_BOOL) :: par_access_tmp 328 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 329 LOGICAL(KIND=C_BOOL) :: split_freq_tmp 330 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 331 LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 332 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 333 LOGICAL(KIND=C_BOOL) :: sync_freq_tmp 334 LOGICAL, OPTIONAL, INTENT(OUT) :: type 335 LOGICAL(KIND=C_BOOL) :: type_tmp 336 337 CALL xios(is_defined_file_attr_hdl_) & 338 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 339 , split_freq, split_freq_format, sync_freq, type ) 340 341 END SUBROUTINE xios(is_defined_file_attr_hdl) 342 343 SUBROUTINE xios(is_defined_file_attr_hdl_) & 344 ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_ & 345 , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 346 347 IMPLICIT NONE 348 TYPE(txios(file)) , INTENT(IN) :: file_hdl 349 LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 350 LOGICAL(KIND=C_BOOL) :: description__tmp 351 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ 352 LOGICAL(KIND=C_BOOL) :: enabled__tmp 353 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_ 354 LOGICAL(KIND=C_BOOL) :: min_digits__tmp 355 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 356 LOGICAL(KIND=C_BOOL) :: name__tmp 357 LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_ 358 LOGICAL(KIND=C_BOOL) :: name_suffix__tmp 359 LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_ 360 LOGICAL(KIND=C_BOOL) :: output_freq__tmp 361 LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_ 362 LOGICAL(KIND=C_BOOL) :: output_level__tmp 363 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 364 LOGICAL(KIND=C_BOOL) :: par_access__tmp 365 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_ 366 LOGICAL(KIND=C_BOOL) :: split_freq__tmp 367 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_ 368 LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp 369 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_ 370 LOGICAL(KIND=C_BOOL) :: sync_freq__tmp 371 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 372 LOGICAL(KIND=C_BOOL) :: type__tmp 373 374 IF (PRESENT(description_)) THEN 375 description__tmp=cxios_is_defined_file_description(file_hdl%daddr) 376 description_=description__tmp 377 ENDIF 378 379 IF (PRESENT(enabled_)) THEN 380 enabled__tmp=cxios_is_defined_file_enabled(file_hdl%daddr) 381 enabled_=enabled__tmp 382 ENDIF 383 384 IF (PRESENT(min_digits_)) THEN 385 min_digits__tmp=cxios_is_defined_file_min_digits(file_hdl%daddr) 386 min_digits_=min_digits__tmp 387 ENDIF 388 389 IF (PRESENT(name_)) THEN 390 name__tmp=cxios_is_defined_file_name(file_hdl%daddr) 391 name_=name__tmp 392 ENDIF 393 394 IF (PRESENT(name_suffix_)) THEN 395 name_suffix__tmp=cxios_is_defined_file_name_suffix(file_hdl%daddr) 396 name_suffix_=name_suffix__tmp 397 ENDIF 398 399 IF (PRESENT(output_freq_)) THEN 400 output_freq__tmp=cxios_is_defined_file_output_freq(file_hdl%daddr) 401 output_freq_=output_freq__tmp 402 ENDIF 403 404 IF (PRESENT(output_level_)) THEN 405 output_level__tmp=cxios_is_defined_file_output_level(file_hdl%daddr) 406 output_level_=output_level__tmp 407 ENDIF 408 409 IF (PRESENT(par_access_)) THEN 410 par_access__tmp=cxios_is_defined_file_par_access(file_hdl%daddr) 411 par_access_=par_access__tmp 412 ENDIF 413 414 IF (PRESENT(split_freq_)) THEN 415 split_freq__tmp=cxios_is_defined_file_split_freq(file_hdl%daddr) 416 split_freq_=split_freq__tmp 417 ENDIF 418 419 IF (PRESENT(split_freq_format_)) THEN 420 split_freq_format__tmp=cxios_is_defined_file_split_freq_format(file_hdl%daddr) 421 split_freq_format_=split_freq_format__tmp 422 ENDIF 423 424 IF (PRESENT(sync_freq_)) THEN 425 sync_freq__tmp=cxios_is_defined_file_sync_freq(file_hdl%daddr) 426 sync_freq_=sync_freq__tmp 427 ENDIF 428 429 IF (PRESENT(type_)) THEN 430 type__tmp=cxios_is_defined_file_type(file_hdl%daddr) 431 type_=type__tmp 432 ENDIF 433 434 435 436 END SUBROUTINE xios(is_defined_file_attr_hdl_) 437 253 438 END MODULE ifile_attr -
XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90
r415 r432 13 13 SUBROUTINE xios(set_filegroup_attr) & 14 14 ( filegroup_id, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 15 , output_level, par_access, split_freq, s ync_freq, type )15 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 16 16 17 17 IMPLICIT NONE … … 29 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 30 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 31 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 31 32 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq 32 33 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 35 36 CALL xios(set_filegroup_attr_hdl_) & 36 37 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 37 , output_level, par_access, split_freq, s ync_freq, type )38 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 38 39 39 40 END SUBROUTINE xios(set_filegroup_attr) … … 41 42 SUBROUTINE xios(set_filegroup_attr_hdl) & 42 43 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 43 , output_level, par_access, split_freq, s ync_freq, type )44 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 44 45 45 46 IMPLICIT NONE … … 56 57 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 57 58 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 59 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 58 60 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq 59 61 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 61 63 CALL xios(set_filegroup_attr_hdl_) & 62 64 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 63 , output_level, par_access, split_freq, s ync_freq, type )65 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 64 66 65 67 END SUBROUTINE xios(set_filegroup_attr_hdl) … … 67 69 SUBROUTINE xios(set_filegroup_attr_hdl_) & 68 70 ( filegroup_hdl, description_, enabled_, group_ref_, min_digits_, name_, name_suffix_, output_freq_ & 69 , output_level_, par_access_, split_freq_, s ync_freq_, type_ )71 , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 70 72 71 73 IMPLICIT NONE … … 82 84 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 83 85 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_ 86 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_ 84 87 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq_ 85 88 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ … … 126 129 ENDIF 127 130 131 IF (PRESENT(split_freq_format_)) THEN 132 CALL cxios_set_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 133 ENDIF 134 128 135 IF (PRESENT(sync_freq_)) THEN 129 136 CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_, len(sync_freq_)) … … 140 147 SUBROUTINE xios(get_filegroup_attr) & 141 148 ( filegroup_id, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 142 , output_level, par_access, split_freq, s ync_freq, type )149 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 143 150 144 151 IMPLICIT NONE … … 156 163 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 157 164 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 165 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 158 166 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq 159 167 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 162 170 CALL xios(get_filegroup_attr_hdl_) & 163 171 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 164 , output_level, par_access, split_freq, s ync_freq, type )172 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 165 173 166 174 END SUBROUTINE xios(get_filegroup_attr) … … 168 176 SUBROUTINE xios(get_filegroup_attr_hdl) & 169 177 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 170 , output_level, par_access, split_freq, s ync_freq, type )178 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 171 179 172 180 IMPLICIT NONE … … 183 191 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 184 192 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 193 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 185 194 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq 186 195 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 188 197 CALL xios(get_filegroup_attr_hdl_) & 189 198 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 190 , output_level, par_access, split_freq, s ync_freq, type )199 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 191 200 192 201 END SUBROUTINE xios(get_filegroup_attr_hdl) … … 194 203 SUBROUTINE xios(get_filegroup_attr_hdl_) & 195 204 ( filegroup_hdl, description_, enabled_, group_ref_, min_digits_, name_, name_suffix_, output_freq_ & 196 , output_level_, par_access_, split_freq_, s ync_freq_, type_ )205 , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 197 206 198 207 IMPLICIT NONE … … 209 218 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 210 219 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_ 220 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_ 211 221 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq_ 212 222 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ … … 253 263 ENDIF 254 264 265 IF (PRESENT(split_freq_format_)) THEN 266 CALL cxios_get_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 267 ENDIF 268 255 269 IF (PRESENT(sync_freq_)) THEN 256 270 CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_, len(sync_freq_)) … … 265 279 END SUBROUTINE xios(get_filegroup_attr_hdl_) 266 280 281 SUBROUTINE xios(is_defined_filegroup_attr) & 282 ( filegroup_id, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 283 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 284 285 IMPLICIT NONE 286 TYPE(txios(filegroup)) :: filegroup_hdl 287 CHARACTER(LEN=*), INTENT(IN) ::filegroup_id 288 LOGICAL, OPTIONAL, INTENT(OUT) :: description 289 LOGICAL(KIND=C_BOOL) :: description_tmp 290 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 291 LOGICAL(KIND=C_BOOL) :: enabled_tmp 292 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 293 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 294 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 295 LOGICAL(KIND=C_BOOL) :: min_digits_tmp 296 LOGICAL, OPTIONAL, INTENT(OUT) :: name 297 LOGICAL(KIND=C_BOOL) :: name_tmp 298 LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix 299 LOGICAL(KIND=C_BOOL) :: name_suffix_tmp 300 LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq 301 LOGICAL(KIND=C_BOOL) :: output_freq_tmp 302 LOGICAL, OPTIONAL, INTENT(OUT) :: output_level 303 LOGICAL(KIND=C_BOOL) :: output_level_tmp 304 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 305 LOGICAL(KIND=C_BOOL) :: par_access_tmp 306 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 307 LOGICAL(KIND=C_BOOL) :: split_freq_tmp 308 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 309 LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 310 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 311 LOGICAL(KIND=C_BOOL) :: sync_freq_tmp 312 LOGICAL, OPTIONAL, INTENT(OUT) :: type 313 LOGICAL(KIND=C_BOOL) :: type_tmp 314 315 CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 316 CALL xios(is_defined_filegroup_attr_hdl_) & 317 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 318 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 319 320 END SUBROUTINE xios(is_defined_filegroup_attr) 321 322 SUBROUTINE xios(is_defined_filegroup_attr_hdl) & 323 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 324 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 325 326 IMPLICIT NONE 327 TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 328 LOGICAL, OPTIONAL, INTENT(OUT) :: description 329 LOGICAL(KIND=C_BOOL) :: description_tmp 330 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 331 LOGICAL(KIND=C_BOOL) :: enabled_tmp 332 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 333 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 334 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 335 LOGICAL(KIND=C_BOOL) :: min_digits_tmp 336 LOGICAL, OPTIONAL, INTENT(OUT) :: name 337 LOGICAL(KIND=C_BOOL) :: name_tmp 338 LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix 339 LOGICAL(KIND=C_BOOL) :: name_suffix_tmp 340 LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq 341 LOGICAL(KIND=C_BOOL) :: output_freq_tmp 342 LOGICAL, OPTIONAL, INTENT(OUT) :: output_level 343 LOGICAL(KIND=C_BOOL) :: output_level_tmp 344 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 345 LOGICAL(KIND=C_BOOL) :: par_access_tmp 346 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 347 LOGICAL(KIND=C_BOOL) :: split_freq_tmp 348 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 349 LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 350 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 351 LOGICAL(KIND=C_BOOL) :: sync_freq_tmp 352 LOGICAL, OPTIONAL, INTENT(OUT) :: type 353 LOGICAL(KIND=C_BOOL) :: type_tmp 354 355 CALL xios(is_defined_filegroup_attr_hdl_) & 356 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 357 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 358 359 END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 360 361 SUBROUTINE xios(is_defined_filegroup_attr_hdl_) & 362 ( filegroup_hdl, description_, enabled_, group_ref_, min_digits_, name_, name_suffix_, output_freq_ & 363 , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 364 365 IMPLICIT NONE 366 TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 367 LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 368 LOGICAL(KIND=C_BOOL) :: description__tmp 369 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ 370 LOGICAL(KIND=C_BOOL) :: enabled__tmp 371 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 372 LOGICAL(KIND=C_BOOL) :: group_ref__tmp 373 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_ 374 LOGICAL(KIND=C_BOOL) :: min_digits__tmp 375 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 376 LOGICAL(KIND=C_BOOL) :: name__tmp 377 LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_ 378 LOGICAL(KIND=C_BOOL) :: name_suffix__tmp 379 LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_ 380 LOGICAL(KIND=C_BOOL) :: output_freq__tmp 381 LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_ 382 LOGICAL(KIND=C_BOOL) :: output_level__tmp 383 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 384 LOGICAL(KIND=C_BOOL) :: par_access__tmp 385 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_ 386 LOGICAL(KIND=C_BOOL) :: split_freq__tmp 387 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_ 388 LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp 389 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_ 390 LOGICAL(KIND=C_BOOL) :: sync_freq__tmp 391 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 392 LOGICAL(KIND=C_BOOL) :: type__tmp 393 394 IF (PRESENT(description_)) THEN 395 description__tmp=cxios_is_defined_filegroup_description(filegroup_hdl%daddr) 396 description_=description__tmp 397 ENDIF 398 399 IF (PRESENT(enabled_)) THEN 400 enabled__tmp=cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr) 401 enabled_=enabled__tmp 402 ENDIF 403 404 IF (PRESENT(group_ref_)) THEN 405 group_ref__tmp=cxios_is_defined_filegroup_group_ref(filegroup_hdl%daddr) 406 group_ref_=group_ref__tmp 407 ENDIF 408 409 IF (PRESENT(min_digits_)) THEN 410 min_digits__tmp=cxios_is_defined_filegroup_min_digits(filegroup_hdl%daddr) 411 min_digits_=min_digits__tmp 412 ENDIF 413 414 IF (PRESENT(name_)) THEN 415 name__tmp=cxios_is_defined_filegroup_name(filegroup_hdl%daddr) 416 name_=name__tmp 417 ENDIF 418 419 IF (PRESENT(name_suffix_)) THEN 420 name_suffix__tmp=cxios_is_defined_filegroup_name_suffix(filegroup_hdl%daddr) 421 name_suffix_=name_suffix__tmp 422 ENDIF 423 424 IF (PRESENT(output_freq_)) THEN 425 output_freq__tmp=cxios_is_defined_filegroup_output_freq(filegroup_hdl%daddr) 426 output_freq_=output_freq__tmp 427 ENDIF 428 429 IF (PRESENT(output_level_)) THEN 430 output_level__tmp=cxios_is_defined_filegroup_output_level(filegroup_hdl%daddr) 431 output_level_=output_level__tmp 432 ENDIF 433 434 IF (PRESENT(par_access_)) THEN 435 par_access__tmp=cxios_is_defined_filegroup_par_access(filegroup_hdl%daddr) 436 par_access_=par_access__tmp 437 ENDIF 438 439 IF (PRESENT(split_freq_)) THEN 440 split_freq__tmp=cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr) 441 split_freq_=split_freq__tmp 442 ENDIF 443 444 IF (PRESENT(split_freq_format_)) THEN 445 split_freq_format__tmp=cxios_is_defined_filegroup_split_freq_format(filegroup_hdl%daddr) 446 split_freq_format_=split_freq_format__tmp 447 ENDIF 448 449 IF (PRESENT(sync_freq_)) THEN 450 sync_freq__tmp=cxios_is_defined_filegroup_sync_freq(filegroup_hdl%daddr) 451 sync_freq_=sync_freq__tmp 452 ENDIF 453 454 IF (PRESENT(type_)) THEN 455 type__tmp=cxios_is_defined_filegroup_type(filegroup_hdl%daddr) 456 type_=type__tmp 457 ENDIF 458 459 460 461 END SUBROUTINE xios(is_defined_filegroup_attr_hdl_) 462 267 463 END MODULE ifilegroup_attr -
XIOS/trunk/src/interface/fortran_attr/igrid_attr.F90
r415 r432 159 159 END SUBROUTINE xios(get_grid_attr_hdl_) 160 160 161 SUBROUTINE xios(is_defined_grid_attr) & 162 ( grid_id, axis_ref, description, domain_ref, mask, name ) 163 164 IMPLICIT NONE 165 TYPE(txios(grid)) :: grid_hdl 166 CHARACTER(LEN=*), INTENT(IN) ::grid_id 167 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 168 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 169 LOGICAL, OPTIONAL, INTENT(OUT) :: description 170 LOGICAL(KIND=C_BOOL) :: description_tmp 171 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 172 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 173 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 174 LOGICAL(KIND=C_BOOL) :: mask_tmp 175 LOGICAL, OPTIONAL, INTENT(OUT) :: name 176 LOGICAL(KIND=C_BOOL) :: name_tmp 177 178 CALL xios(get_grid_handle)(grid_id,grid_hdl) 179 CALL xios(is_defined_grid_attr_hdl_) & 180 ( grid_hdl, axis_ref, description, domain_ref, mask, name ) 181 182 END SUBROUTINE xios(is_defined_grid_attr) 183 184 SUBROUTINE xios(is_defined_grid_attr_hdl) & 185 ( grid_hdl, axis_ref, description, domain_ref, mask, name ) 186 187 IMPLICIT NONE 188 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 189 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 190 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 191 LOGICAL, OPTIONAL, INTENT(OUT) :: description 192 LOGICAL(KIND=C_BOOL) :: description_tmp 193 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 194 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 195 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 196 LOGICAL(KIND=C_BOOL) :: mask_tmp 197 LOGICAL, OPTIONAL, INTENT(OUT) :: name 198 LOGICAL(KIND=C_BOOL) :: name_tmp 199 200 CALL xios(is_defined_grid_attr_hdl_) & 201 ( grid_hdl, axis_ref, description, domain_ref, mask, name ) 202 203 END SUBROUTINE xios(is_defined_grid_attr_hdl) 204 205 SUBROUTINE xios(is_defined_grid_attr_hdl_) & 206 ( grid_hdl, axis_ref_, description_, domain_ref_, mask_, name_ ) 207 208 IMPLICIT NONE 209 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 210 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 211 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 212 LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 213 LOGICAL(KIND=C_BOOL) :: description__tmp 214 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 215 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 216 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 217 LOGICAL(KIND=C_BOOL) :: mask__tmp 218 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 219 LOGICAL(KIND=C_BOOL) :: name__tmp 220 221 IF (PRESENT(axis_ref_)) THEN 222 axis_ref__tmp=cxios_is_defined_grid_axis_ref(grid_hdl%daddr) 223 axis_ref_=axis_ref__tmp 224 ENDIF 225 226 IF (PRESENT(description_)) THEN 227 description__tmp=cxios_is_defined_grid_description(grid_hdl%daddr) 228 description_=description__tmp 229 ENDIF 230 231 IF (PRESENT(domain_ref_)) THEN 232 domain_ref__tmp=cxios_is_defined_grid_domain_ref(grid_hdl%daddr) 233 domain_ref_=domain_ref__tmp 234 ENDIF 235 236 IF (PRESENT(mask_)) THEN 237 mask__tmp=cxios_is_defined_grid_mask(grid_hdl%daddr) 238 mask_=mask__tmp 239 ENDIF 240 241 IF (PRESENT(name_)) THEN 242 name__tmp=cxios_is_defined_grid_name(grid_hdl%daddr) 243 name_=name__tmp 244 ENDIF 245 246 247 248 END SUBROUTINE xios(is_defined_grid_attr_hdl_) 249 161 250 END MODULE igrid_attr -
XIOS/trunk/src/interface/fortran_attr/igridgroup_attr.F90
r415 r432 173 173 END SUBROUTINE xios(get_gridgroup_attr_hdl_) 174 174 175 SUBROUTINE xios(is_defined_gridgroup_attr) & 176 ( gridgroup_id, axis_ref, description, domain_ref, group_ref, mask, name ) 177 178 IMPLICIT NONE 179 TYPE(txios(gridgroup)) :: gridgroup_hdl 180 CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id 181 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 182 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 183 LOGICAL, OPTIONAL, INTENT(OUT) :: description 184 LOGICAL(KIND=C_BOOL) :: description_tmp 185 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 186 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 187 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 188 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 189 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 190 LOGICAL(KIND=C_BOOL) :: mask_tmp 191 LOGICAL, OPTIONAL, INTENT(OUT) :: name 192 LOGICAL(KIND=C_BOOL) :: name_tmp 193 194 CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl) 195 CALL xios(is_defined_gridgroup_attr_hdl_) & 196 ( gridgroup_hdl, axis_ref, description, domain_ref, group_ref, mask, name ) 197 198 END SUBROUTINE xios(is_defined_gridgroup_attr) 199 200 SUBROUTINE xios(is_defined_gridgroup_attr_hdl) & 201 ( gridgroup_hdl, axis_ref, description, domain_ref, group_ref, mask, name ) 202 203 IMPLICIT NONE 204 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl 205 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 206 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 207 LOGICAL, OPTIONAL, INTENT(OUT) :: description 208 LOGICAL(KIND=C_BOOL) :: description_tmp 209 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 210 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 211 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 212 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 213 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 214 LOGICAL(KIND=C_BOOL) :: mask_tmp 215 LOGICAL, OPTIONAL, INTENT(OUT) :: name 216 LOGICAL(KIND=C_BOOL) :: name_tmp 217 218 CALL xios(is_defined_gridgroup_attr_hdl_) & 219 ( gridgroup_hdl, axis_ref, description, domain_ref, group_ref, mask, name ) 220 221 END SUBROUTINE xios(is_defined_gridgroup_attr_hdl) 222 223 SUBROUTINE xios(is_defined_gridgroup_attr_hdl_) & 224 ( gridgroup_hdl, axis_ref_, description_, domain_ref_, group_ref_, mask_, name_ ) 225 226 IMPLICIT NONE 227 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl 228 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 229 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 230 LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 231 LOGICAL(KIND=C_BOOL) :: description__tmp 232 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 233 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 234 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 235 LOGICAL(KIND=C_BOOL) :: group_ref__tmp 236 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 237 LOGICAL(KIND=C_BOOL) :: mask__tmp 238 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 239 LOGICAL(KIND=C_BOOL) :: name__tmp 240 241 IF (PRESENT(axis_ref_)) THEN 242 axis_ref__tmp=cxios_is_defined_gridgroup_axis_ref(gridgroup_hdl%daddr) 243 axis_ref_=axis_ref__tmp 244 ENDIF 245 246 IF (PRESENT(description_)) THEN 247 description__tmp=cxios_is_defined_gridgroup_description(gridgroup_hdl%daddr) 248 description_=description__tmp 249 ENDIF 250 251 IF (PRESENT(domain_ref_)) THEN 252 domain_ref__tmp=cxios_is_defined_gridgroup_domain_ref(gridgroup_hdl%daddr) 253 domain_ref_=domain_ref__tmp 254 ENDIF 255 256 IF (PRESENT(group_ref_)) THEN 257 group_ref__tmp=cxios_is_defined_gridgroup_group_ref(gridgroup_hdl%daddr) 258 group_ref_=group_ref__tmp 259 ENDIF 260 261 IF (PRESENT(mask_)) THEN 262 mask__tmp=cxios_is_defined_gridgroup_mask(gridgroup_hdl%daddr) 263 mask_=mask__tmp 264 ENDIF 265 266 IF (PRESENT(name_)) THEN 267 name__tmp=cxios_is_defined_gridgroup_name(gridgroup_hdl%daddr) 268 name_=name__tmp 269 ENDIF 270 271 272 273 END SUBROUTINE xios(is_defined_gridgroup_attr_hdl_) 274 175 275 END MODULE igridgroup_attr
Note: See TracChangeset
for help on using the changeset viewer.