Allow more steps to converge on angular momentum

MintonGroup · Feb 2, 2023 · cdc986b · cdc986b
1 parent 8e87b2f
commit cdc986b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90
@@ -483,7 +483,7 @@ module subroutine fraggle_generate_vel_vec(collider, nbody_system, param, lfailu
       real(DP)                :: delta_v, GC
       integer(I4B), parameter :: MAXINNER = 10
       integer(I4B), parameter :: MAXOUTER = 10
-      integer(I4B), parameter :: MAXANGMTM = 100
+      integer(I4B), parameter :: MAXANGMTM = 10000
       class(collision_fraggle), allocatable :: collider_local
       character(len=STRMAX) :: message