Fixed more encounter level depth index values

MintonGroup · Aug 18, 2021 · b63c173 · b63c173
1 parent 5d85880
commit b63c173
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/symba/symba_step.f90 b/src/symba/symba_step.f90
@@ -33,6 +33,7 @@ module subroutine symba_step_system(self, param, t, dt)
                   pl%lfirst = .true.
                   tp%lfirst = .true.
                else
+                  self%irec = -1
                   call helio_step_system(self, param, t, dt)
                end if
             end select
@@ -253,8 +254,8 @@ module subroutine symba_step_reset_system(self, param)
 
                if (tp%nbody > 0) then
                   tp%nplenc(:) = 0 
-                  tp%levelg(:) = 0
-                  tp%levelm(:) = 0
+                  tp%levelg(:) = -1
+                  tp%levelm(:) = -1
                   system%pltpenc_list%nenc = 0
                end if