Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Browse files Browse the repository at this point in the history
Got rid of unhelpful write statements
  • Loading branch information
daminton committed May 24, 2021
1 parent 31d195d commit c3120d5
Showing 1 changed file with 0 additions and 7 deletions.
7 changes: 0 additions & 7 deletions src/io/io_conservation_report.f90
Original file line number Diff line number Diff line change
Expand Up @@ -77,13 +77,6 @@ module subroutine io_conservation_report(t, symba_plA, npl, j2rp2, j4rp4, param,
write(*,*)
end if
end if
write(*,*) 'Angular momentum changes since last time'
write(*,*) ' dLorbit : ',(Lorbit_now(:) - Lorbit_last(:)) / Lmag_orig
write(*,*) '|dLorbit|: ',norm2(Lorbit_now(:) - Lorbit_last(:)) / Lmag_orig
write(*,*) ' dLspin : ',(Lspin_now(:) - Lspin_last(:)) / Lmag_orig
write(*,*) '|dLspin| : ',norm2(Lspin_now(:) - Lspin_last(:)) / Lmag_orig
write(*,*) ' dLtot : ',(Ltot_now(:) - Ltot_last(:)) / Lmag_orig
write(*,*) '|dLtot| : ',norm2(Ltot_now(:) - Ltot_last(:)) / Lmag_orig
ke_orbit_last = ke_orbit_now
ke_spin_last = ke_spin_now
pe_last = pe_now
Expand Down

0 comments on commit c3120d5

Please sign in to comment.