From 522cfd669a24151bb62e7a90839d14c91a085eb4 Mon Sep 17 00:00:00 2001 From: Carlisle Wishard Date: Sun, 5 Dec 2021 11:47:02 -0500 Subject: [PATCH] fixed index of massive body names --- src/discard/discard.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/discard/discard.f90 b/src/discard/discard.f90 index ad5b73426..d791274ef 100644 --- a/src/discard/discard.f90 +++ b/src/discard/discard.f90 @@ -247,7 +247,7 @@ subroutine discard_pl_tp(tp, system, param) write(idstrj, *) pl%id(j) write(timestr, *) param%t write(*, *) "Test particle " // trim(adjustl(tp%info(i)%name)) // " (" // trim(adjustl(idstri)) // ")" & - // " too close to massive body " // trim(adjustl(pl%info(i)%name)) // " (" // trim(adjustl(idstrj)) & + // " too close to massive body " // trim(adjustl(pl%info(j)%name)) // " (" // trim(adjustl(idstrj)) // ")" & // " at t = " // trim(adjustl(timestr)) tp%ldiscard(i) = .true. call tp%info(i)%set_value(status="DISCARDED_PLR", discard_time=param%t, discard_xh=tp%xh(:,i), discard_vh=tp%vh(:,i), discard_body_id=pl%id(j))