From c43cbd2c4f45e33680712044572404c3d6dcf9ce Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 30 Jan 2023 12:51:41 -0500 Subject: [PATCH] Added Hill's sphere calcualtion to new bodies prior to rearray --- src/collision/collision_resolve.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/collision/collision_resolve.f90 b/src/collision/collision_resolve.f90 index 6b3886224..bafbf7de8 100644 --- a/src/collision/collision_resolve.f90 +++ b/src/collision/collision_resolve.f90 @@ -359,6 +359,8 @@ module subroutine collision_resolve_mergeaddsub(nbody_system, param, t, status) plnew%rot(:, 1:nfrag) = fragments%rot(:, 1:nfrag) end if + call plnew%set_rhill(cb) + ! if (param%ltides) then ! plnew%Q = pl%Q(ibiggest) ! plnew%k2 = pl%k2(ibiggest)