From 50afb8f9d00a4c24657c280a104ef39724e5a7ee Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 7 Sep 2021 17:11:12 -0400 Subject: [PATCH] Tweaked the noise parameter for trangential velocities. --- 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 5a8b08949..58965f7ee 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -296,7 +296,7 @@ subroutine fraggle_generate_tan_vel(frag, colliders, lfailure) integer(I4B) :: i real(DP), parameter :: TOL_MIN = 1e-1_DP ! This doesn't have to be very accurate, as we really just want a tangential velocity distribution with less kinetic energy than our initial guess. real(DP), parameter :: TOL_INIT = 1e-14_DP - real(DP), parameter :: VNOISE_MAG = 1e-3_DP !! Magnitude of the noise to apply to initial conditions to help minimizer find a solution in case of failure + real(DP), parameter :: VNOISE_MAG = 1e-2_DP !! Magnitude of the noise to apply to initial conditions to help minimizer find a solution in case of failure integer(I4B), parameter :: MAXLOOP = 10 real(DP) :: tol, ke_remainder real(DP), dimension(:), allocatable :: v_t_initial