Changed the position of the first flag switching so that the recursio…

…n step follows the same pattern as the non-recursion step
MintonGroup · Mar 1, 2022 · b1b7bc8 · b1b7bc8
1 parent 73bcb42
commit b1b7bc8
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/symba/symba_step.f90 b/src/symba/symba_step.f90
@@ -29,12 +29,11 @@ module subroutine symba_step_system(self, param, t, dt)
                lencounter = pl%encounter_check(param, self, dt, 0) .or. tp%encounter_check(param, self, dt, 0)
                if (lencounter) then
                   call self%interp(param, t, dt)
-                  param%lfirstkick = .true.
                else
                   self%irec = -1
                   call helio_step_system(self, param, t, dt)
-                  param%lfirstkick = pl%lfirst
                end if
+               param%lfirstkick = pl%lfirst
             end select
          end select
       end select