Reduced tolerance value for greater likelihood of convergence

MintonGroup · May 20, 2021 · be19703 · be19703
1 parent f17039b
commit be19703
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
@@ -644,7 +644,7 @@ subroutine set_fragment_radial_velocities(lmerge)
       ! Arguments
       logical,                intent(out)   :: lmerge
       ! Internals
-      real(DP), parameter                   :: TOL = 1e-10_DP
+      real(DP), parameter                   :: TOL = 1e-8_DP
       real(DP), dimension(:), allocatable   :: vflat 
       logical                               :: lerr
       integer(I4B)                          :: i