diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90 index c5c14cfa0..13457740f 100644 --- 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