Added coordinate conversion while generating fragment position and ve…

…locities.
MintonGroup · Aug 30, 2021 · 1312cb7 · 1312cb7
1 parent 8f54fe3
commit 1312cb7
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90
@@ -910,6 +910,8 @@ subroutine symba_collision_mergeaddsub(system, param, family, id_frag, Ip_frag,
                plnew%id(1:nfrag) = id_frag(1:nfrag) 
                plnew%xb(:, 1:nfrag) = xb_frag(:, 1:nfrag) 
                plnew%vb(:, 1:nfrag) = vb_frag(:, 1:nfrag)
+               call pl%vb2vh(cb)
+               call pl%xh2xb(cb)
                do i = 1, nfrag
                   plnew%xh(:,i) = xb_frag(:, i) - cb%xb(:)
                   plnew%vh(:,i) = vb_frag(:, i) - cb%vb(:)