Added Hill's sphere calcualtion to new bodies prior to rearray

MintonGroup · Jan 30, 2023 · c43cbd2 · c43cbd2
1 parent 268d8a6
commit c43cbd2
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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)