From a546c0dcc188e2ddec1be514c508be9c9ca33012 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Sat, 7 Jan 2023 18:22:50 -0500 Subject: [PATCH] Fixing velocity vector --- src/fraggle/fraggle_generate.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90 index 92b0d0de4..2c6cc9461 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -448,8 +448,8 @@ module subroutine fraggle_generate_vel_vec(collider, nbody_system, param, lfailu vmag = vesc * vscale(i) rimp(:) = fragments%rc(:,i) - impactors%rbimp(:) vimp_unit(:) = .unit. rimp(:) - fragments%vc(:,i) = (impactors%bounce_unit(:) + vimp_unit(:)) * vsign(i) - fragments%vc(:,i) = vmag * .unit.fragments%vc(:,i) !+ vrot(:) + fragments%vc(:,i) = vimp_unit(:) * vsign(i) + fragments%vc(:,i) = vmag * .unit.fragments%vc(:,i) + vrot(:) end if end do