From b1b7bc8e4fc617ad461f5badc6c1e25d79dc8928 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 1 Mar 2022 17:03:57 -0500 Subject: [PATCH] Changed the position of the first flag switching so that the recursion step follows the same pattern as the non-recursion step --- src/symba/symba_step.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/symba/symba_step.f90 b/src/symba/symba_step.f90 index ae8645fba..368548832 100644 --- 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