Removed old write statement

MintonGroup · May 7, 2021 · 5b333bb · 5b333bb
1 parent 4aafa35
commit 5b333bb
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
@@ -135,7 +135,6 @@ subroutine symba_frag_pos (param, symba_plA, family, x, v, L_spin, Ip, mass, rad
       if (.not.lmerge) then
          L_residual(:) = Ltot_before(:) - Ltot_after(:)
          L_spin_frag(:) = L_residual(:) / nfrag
-         write(*,*) 'Residual DL/L0', norm2(L_residual(:)) / Lmag_before
          do i = 1, nfrag
             rot_frag(:,i) = rot_frag(:,i) + L_spin_frag(:) / (Ip_frag(3, i) * m_frag(i) * rad_frag(i)**2)
          end do