From 22364885d20c1a81a4bfefb64ba62487574ed8d2 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 13 Jan 2023 18:01:08 -0500 Subject: [PATCH] Increased the velocity dispersion back to LS12 values --- src/fraggle/fraggle_generate.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90 index a4e2deb4d..66256d16c 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -476,7 +476,7 @@ module subroutine fraggle_generate_vel_vec(collider, nbody_system, param, lfailu real(DP), dimension(collider%fragments%nbody) :: vscale, ke_rot_remove ! For the initial "guess" of fragment velocities, this is the minimum and maximum velocity relative to escape velocity that the fragments will have real(DP) :: vmin_guess = 1.5_DP - real(DP) :: vmax_guess = 4.0_DP + real(DP) :: vmax_guess = 10.0_DP real(DP) :: delta_v, volume integer(I4B), parameter :: MAXLOOP = 200 integer(I4B), parameter :: MAXTRY = 1000