| 修訂 | bbfb8586af711637042e48676435058117ec2d82 (tree) |
|---|---|
| 時間 | 2022-09-27 01:00:36 |
| 作者 | Harald Klimach <harald.klimach@dlr....> |
| Commiter | Harald Klimach |
Introduced intermediatary interval flag to cover cases where only delay_check in simControl is set
source/control/tem_simControl_module.f90 (diff)| @@ -416,6 +416,7 @@ | ||
| 416 | 416 | ! -------------------------------------------------------------------- ! |
| 417 | 417 | logical :: max_reached(tem_time_n_ids) |
| 418 | 418 | logical :: stat_interval |
| 419 | + logical :: out_interval | |
| 419 | 420 | ! -------------------------------------------------------------------- ! |
| 420 | 421 | |
| 421 | 422 | call tem_startTimer(timerHandle = me%syncUpdate_timer) |
| @@ -447,23 +448,21 @@ | ||
| 447 | 448 | call tem_status_communicate_delayed(me = me%status, comm = proc%comm) |
| 448 | 449 | me%status%bits(tem_stat_max_sim) = max_reached(tem_time_sim_id) |
| 449 | 450 | me%status%bits(tem_stat_max_iter) = max_reached(tem_time_iter_id) |
| 451 | + out_interval = stat_interval | |
| 450 | 452 | else |
| 451 | 453 | call tem_status_communicate(me = me%status, comm = proc%comm) |
| 454 | + out_interval = me%status%bits(tem_stat_interval) | |
| 452 | 455 | end if |
| 453 | 456 | |
| 454 | - if (present(outUnit)) then | |
| 455 | - if (me%status%bits(tem_stat_interval)) then | |
| 456 | - call tem_time_set_clock(me%now) | |
| 457 | - call tem_time_dump(me%now, outUnit) | |
| 458 | - end if | |
| 457 | + if (present(outUnit) .and. out_interval) then | |
| 458 | + call tem_time_set_clock(me%now) | |
| 459 | + call tem_time_dump(me%now, outUnit) | |
| 459 | 460 | end if |
| 460 | 461 | |
| 461 | - call tem_timeControl_update( me = me%timeControl, & | |
| 462 | - & now = me%now, & | |
| 463 | - & hasTriggered = me & | |
| 464 | - & %status & | |
| 465 | - & %bits(tem_stat_interval), & | |
| 466 | - & localTriggered = stat_interval ) | |
| 462 | + call tem_timeControl_update( me = me%timeControl, & | |
| 463 | + & now = me%now, & | |
| 464 | + & hasTriggered = out_interval, & | |
| 465 | + & localTriggered = stat_interval ) | |
| 467 | 466 | |
| 468 | 467 | end if |
| 469 | 468 |
Fork