Increased stretching factor for hit and run fragment cloud

MintonGroup · Feb 21, 2023 · 49c9a72 · 49c9a72
1 parent abc674a
commit 49c9a72
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90
@@ -384,7 +384,7 @@ module subroutine fraggle_generate_pos_vec(collider, nbody_system, param, lfailu
 
                ! Stretch out the hit and run cloud along the flight trajectory
                if (lhitandrun) then
-                  fragments%rc(:,i) = fragments%rc(:,i) * (1.0_DP + fragment_cloud_radius(j) * mass_rscale(i) * impactors%bounce_unit(:))
+                  fragments%rc(:,i) = fragments%rc(:,i) * (1.0_DP + 2 * fragment_cloud_radius(j) * mass_rscale(i) * impactors%bounce_unit(:))
                end if
 
                fragments%rc(:,i) = fragments%rc(:,i) + fragment_cloud_center(:,j)