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)