From 71b8c5191f9b1cb9a134113d039fe11678b62307 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Sat, 7 Jan 2023 18:17:10 -0500 Subject: [PATCH] Added helpful comment --- src/fraggle/fraggle_generate.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90 index 99213f918..92b0d0de4 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -291,6 +291,7 @@ module subroutine fraggle_generate_pos_vec(collider) ! Shift to the cloud center coordinates fragments%rc(:,i) = fragments%rc(:,i) + fragment_cloud_center(:,j) + ! Make sure that the fragments are positioned away from the impact point direction = dot_product(fragments%rc(:,i) - impactors%rbimp(:), fragment_cloud_center(:,j) - impactors%rbimp(:)) if (direction < 0.0_DP) then fragments%rc(:,i) = fragments%rc(:,i) - fragment_cloud_center(:,j)