Reduced radial minimization tolerance to try to get a higher success …

…rate
MintonGroup · May 28, 2021 · 92b28dc · 92b28dc
1 parent 7711ceb
commit 92b28dc
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
@@ -704,7 +704,7 @@ subroutine set_fragment_radial_velocities(lerr)
       ! Arguments
       logical,                intent(out)   :: lerr
       ! Internals
-      real(DP), parameter                   :: TOL = 1e-9_DP
+      real(DP), parameter                   :: TOL = 1e-6_DP
       integer(I4B)                          :: i
       real(DP), dimension(:), allocatable   :: v_r_initial, v_r_sigma
       real(DP), dimension(:,:), allocatable :: v_r
@@ -754,7 +754,6 @@ function radial_objective_function(v_r_mag_input) result(fval)
                                                          !! Minimizing this brings us closer to our objective
       ! Internals
       integer(I4B)                        :: i
-      real(DP), dimension(NDIM)           :: L
       real(DP), dimension(:,:), allocatable :: v_shift
 
       allocate(v_shift, mold=vb_frag)