Switched to adding new id to largest hit and run body to prevent id d…

…uplication
MintonGroup · Aug 18, 2021 · 10726e9 · 10726e9
1 parent 98a4d5d
commit 10726e9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90
@@ -169,7 +169,7 @@ module function symba_collision_casehitandrun(system, param, family, x, v, mass,
          m_frag(2:nfrag) = (mtot - m_frag(1)) / (nfrag - 1) 
          rad_frag(2:nfrag) = (3 * m_frag(2:nfrag) / (4 * PI * avg_dens))**(1.0_DP / 3.0_DP)
          m_frag(nfrag) = m_frag(nfrag) + (mtot - sum(m_frag(:)))
-         id_frag(2:nfrag) = [(i, i = system%maxid + 1, system%maxid + nfrag - 1)]
+         id_frag(1:nfrag) = [(i, i = system%maxid + 1, system%maxid + nfrag)]
 
          do i = 1, nfrag
             Ip_frag(:, i) = Ip(:, jproj)