Fixed problem where the system recursion level variable was not set p…

…roperly after returning from the recursive step.
MintonGroup · Dec 13, 2021 · 2ced8fd · 2ced8fd
1 parent 0c59aad
commit 2ced8fd
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/symba/symba_step.f90 b/src/symba/symba_step.f90
@@ -82,6 +82,7 @@ module subroutine symba_step_interp_system(self, param, t, dt)
                   call tp%drift(system, param, dt)
 
                   call system%recursive_step(param, t, 0)
+                  system%irec = -1
 
                   if (param%lgr) call pl%gr_pos_kick(system, param, dth)
                   call pl%kick(system, param, t, dth, lbeg=.false.)