From 62aedd2e9303dae957d4db78293525edf3e46c4e Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 2 Feb 2023 13:56:44 -0500 Subject: [PATCH] Changed the number of inner loops in Fraggle to keep rotation from getting too large --- 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 db5c85a11..c2360bfa6 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -506,7 +506,7 @@ module subroutine fraggle_generate_vel_vec(collider, nbody_system, param, lfailu real(DP) :: vmin_guess = 1.01_DP real(DP) :: vmax_guess real(DP) :: delta_v, GC - integer(I4B), parameter :: MAXLOOP = 50 + integer(I4B), parameter :: MAXLOOP = 10 integer(I4B), parameter :: MAXTRY = 100 real(DP), parameter :: MAX_REDUCTION_RATIO = 0.1_DP ! Ratio of difference between first and second fragment mass to remove from the largest fragment in case of a failure real(DP), parameter :: ROT_MAX_FRAC = 0.001_DP !! Fraction of difference between current rotation and maximum to add when angular momentum budget gets too high