Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Added helpful comment
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Jan 7, 2023
1 parent 0f74b14 commit 71b8c51
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions src/fraggle/fraggle_generate.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down

0 comments on commit 71b8c51

Please sign in to comment.