Changeset 802 for XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90
- Timestamp:
- 11/30/15 16:21:33 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90
r779 r802 14 14 ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits & 15 15 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 16 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 16 , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & 17 ) 17 18 18 19 IMPLICIT NONE … … 39 40 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq 40 41 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 42 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name 41 43 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries 42 44 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix … … 47 49 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 48 50 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 49 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 51 , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & 52 ) 50 53 51 54 END SUBROUTINE xios(set_filegroup_attr) … … 54 57 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 55 58 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 56 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 59 , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & 60 ) 57 61 58 62 IMPLICIT NONE … … 78 82 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq 79 83 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 84 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name 80 85 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries 81 86 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix … … 85 90 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 86 91 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 87 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 92 , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & 93 ) 88 94 89 95 END SUBROUTINE xios(set_filegroup_attr_hdl) … … 92 98 ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_ & 93 99 , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_ & 94 , split_freq_format_, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ ) 100 , split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_, ts_prefix_ & 101 , type_ ) 95 102 96 103 IMPLICIT NONE … … 116 123 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq_ 117 124 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_ 125 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_ 118 126 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_ 119 127 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ … … 194 202 ENDIF 195 203 204 IF (PRESENT(time_counter_name_)) THEN 205 CALL cxios_set_filegroup_time_counter_name(filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) 206 ENDIF 207 196 208 IF (PRESENT(timeseries_)) THEN 197 209 CALL cxios_set_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_)) … … 211 223 ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits & 212 224 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 213 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 225 , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & 226 ) 214 227 215 228 IMPLICIT NONE … … 236 249 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq 237 250 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 251 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name 238 252 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries 239 253 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix … … 244 258 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 245 259 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 246 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 260 , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & 261 ) 247 262 248 263 END SUBROUTINE xios(get_filegroup_attr) … … 251 266 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 252 267 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 253 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 268 , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & 269 ) 254 270 255 271 IMPLICIT NONE … … 275 291 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq 276 292 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 293 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name 277 294 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries 278 295 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix … … 282 299 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 283 300 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 284 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 301 , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & 302 ) 285 303 286 304 END SUBROUTINE xios(get_filegroup_attr_hdl) … … 289 307 ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_ & 290 308 , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_ & 291 , split_freq_format_, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ ) 309 , split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_, ts_prefix_ & 310 , type_ ) 292 311 293 312 IMPLICIT NONE … … 313 332 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq_ 314 333 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_ 334 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_ 315 335 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_ 316 336 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ … … 391 411 ENDIF 392 412 413 IF (PRESENT(time_counter_name_)) THEN 414 CALL cxios_get_filegroup_time_counter_name(filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) 415 ENDIF 416 393 417 IF (PRESENT(timeseries_)) THEN 394 418 CALL cxios_get_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_)) … … 408 432 ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits & 409 433 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 410 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 434 , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & 435 ) 411 436 412 437 IMPLICIT NONE … … 449 474 LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter 450 475 LOGICAL(KIND=C_BOOL) :: time_counter_tmp 476 LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name 477 LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp 451 478 LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries 452 479 LOGICAL(KIND=C_BOOL) :: timeseries_tmp … … 460 487 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 461 488 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 462 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 489 , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & 490 ) 463 491 464 492 END SUBROUTINE xios(is_defined_filegroup_attr) … … 467 495 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 468 496 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 469 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 497 , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & 498 ) 470 499 471 500 IMPLICIT NONE … … 507 536 LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter 508 537 LOGICAL(KIND=C_BOOL) :: time_counter_tmp 538 LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name 539 LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp 509 540 LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries 510 541 LOGICAL(KIND=C_BOOL) :: timeseries_tmp … … 517 548 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 518 549 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 519 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 550 , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type & 551 ) 520 552 521 553 END SUBROUTINE xios(is_defined_filegroup_attr_hdl) … … 524 556 ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_ & 525 557 , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_ & 526 , split_freq_format_, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ ) 558 , split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_, ts_prefix_ & 559 , type_ ) 527 560 528 561 IMPLICIT NONE … … 564 597 LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_ 565 598 LOGICAL(KIND=C_BOOL) :: time_counter__tmp 599 LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_ 600 LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp 566 601 LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_ 567 602 LOGICAL(KIND=C_BOOL) :: timeseries__tmp … … 661 696 ENDIF 662 697 698 IF (PRESENT(time_counter_name_)) THEN 699 time_counter_name__tmp = cxios_is_defined_filegroup_time_counter_name(filegroup_hdl%daddr) 700 time_counter_name_ = time_counter_name__tmp 701 ENDIF 702 663 703 IF (PRESENT(timeseries_)) THEN 664 704 timeseries__tmp = cxios_is_defined_filegroup_timeseries(filegroup_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.
