Tweaked the noise parameter for trangential velocities.

MintonGroup · Sep 7, 2021 · 50afb8f · 50afb8f
1 parent 4c64632
commit 50afb8f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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