From f033af9edc4eb3bd86c6616ab890ec40de2dac6c Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 11 Aug 2021 17:50:41 -0400 Subject: [PATCH] Fixed issue that was causing hit and run bodies to be removed --- src/symba/symba_fragmentation.f90 | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/symba/symba_fragmentation.f90 b/src/symba/symba_fragmentation.f90 index 430b8f81d..335ab9e66 100644 --- a/src/symba/symba_fragmentation.f90 +++ b/src/symba/symba_fragmentation.f90 @@ -179,8 +179,14 @@ module function symba_fragmentation_casehitandrun(system, param, family, x, v, m write(*,'("Generating ",I2.0," fragments")') nfrag end if end if - if (lpure) then + if (lpure) then ! Reset these bodies back to being active so that nothing further is done to them status = ACTIVE + select type(pl => system%pl) + class is (symba_pl) + pl%status(family(:)) = status + pl%ldiscard(family(:)) = .false. + pl%lcollision(family(:)) = .false. + end select else status = HIT_AND_RUN call symba_fragmentation_mergeaddsub(system, param, family, id_frag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, status)