symba_frag_pos removed escale from ke_family

MintonGroup · Jun 1, 2021 · 1ba5cde · 1ba5cde
1 parent e3d1cfb
commit 1ba5cde
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
@@ -293,7 +293,7 @@ subroutine define_pre_collisional_family()
             ke_family = ke_family + Mpl(family(i)) * dot_product(vbpl(:,family(i)), vbpl(:,family(i)))
             lexclude(family(i)) = .true. ! For all subsequent energy calculations the pre-impact family members will be replaced by the fragments
          end do
-         ke_family = 0.5_DP * ke_family / Escale
+         ke_family = 0.5_DP * ke_family! / Escale
       end associate
       return
    end subroutine define_pre_collisional_family