Improved the supercats

MintonGroup · Jan 9, 2023 · 328cda7 · 328cda7
1 parent 1843972
commit 328cda7
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90
@@ -270,19 +270,18 @@ module subroutine fraggle_generate_pos_vec(collider)
                fragment_cloud_center(:,1) = impactors%rc(:,1) 
                fragment_cloud_center(:,2) = impactors%rc(:,2) + rdistance * impactors%bounce_unit(:)
             else if (lsupercat) then
-               fragment_cloud_center(:,1) = impactors%rc(:,1) - rdistance * impactors%bounce_unit(:)
-               fragment_cloud_center(:,2) = impactors%rc(:,2) + rdistance * impactors%bounce_unit(:)
-               fragment_cloud_radius(:) = cloud_size_scale_factor * rdistance / 2.0_DP
+               fragment_cloud_center(:,1) = impactors%rc(:,1) 
+               fragment_cloud_center(:,2) = impactors%rc(:,2) 
+               fragment_cloud_radius(:) = cloud_size_scale_factor * rdistance 
             else
                fragment_cloud_center(:,1) = impactors%rbimp(:) - impactors%radius(1) * impactors%y_unit(:)
                fragment_cloud_center(:,2) = impactors%rbimp(:) + impactors%radius(2) * impactors%y_unit(:)
                fragment_cloud_radius(:) = cloud_size_scale_factor * rdistance
             end if
-            fragments%rc(:,1) = fragment_cloud_center(:,1)
             if (lsupercat) then
-               istart = 3
-               fragments%rc(:,2) = fragment_cloud_center(:,2) 
+               istart = 1
             else
+               fragments%rc(:,1) = fragment_cloud_center(:,1)
                istart = 2
             end if