Repository of the treelm library. Now found at https://github.com/apes-suite/treelm
Revision | b24b9a4970233210931e66a9728ab1dbea795b1e (tree) |
---|---|
Zeit | 2022-09-05 17:59:53 |
Autor | Kannan Masilamani <kannan.masilamani@dlr....> |
Commiter | Kannan Masilamani |
Fixed time control trigger. Set default trigger to false and
triggered is set only if check_iter is satisfied.
Without this fix, the trigger is true until next check_iter is
reached.
@@ -672,6 +672,7 @@ | ||
672 | 672 | end if |
673 | 673 | end if |
674 | 674 | |
675 | + hasTriggered = .false. | |
675 | 676 | if (mod(now%iter, me%check_iter) == 0) then |
676 | 677 | |
677 | 678 | local_triggered = tem_timeControl_triggered(me, now) |
@@ -688,10 +689,9 @@ | ||
688 | 689 | else |
689 | 690 | me%globally_triggered = local_triggered |
690 | 691 | end if |
691 | - | |
692 | + hasTriggered = me%globally_triggered | |
692 | 693 | end if |
693 | 694 | |
694 | - hasTriggered = me%globally_triggered | |
695 | 695 | |
696 | 696 | end function tem_timeControl_globalTriggered |
697 | 697 | ! ************************************************************************ ! |