From b63c173bcf62014ee7439aa632bef82aa0a94211 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 18 Aug 2021 18:15:27 -0400 Subject: [PATCH] Fixed more encounter level depth index values --- src/symba/symba_step.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/symba/symba_step.f90 b/src/symba/symba_step.f90 index 2b68c1f1d..cde5aff29 100644 --- 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