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

Commit

Permalink
Added status check to vb2vh conversion
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Mar 20, 2023
1 parent cbece6c commit 2739286
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/swiftest/swiftest_util.f90
Original file line number Diff line number Diff line change
Expand Up @@ -494,7 +494,7 @@ module subroutine swiftest_util_coord_vb2vh_pl(self, cb)
associate(pl => self, npl => self%nbody)
cb%vb(:) = 0.0_DP
do i = npl, 1, -1
cb%vb(:) = cb%vb(:) - pl%Gmass(i) * pl%vb(:, i) / cb%Gmass
if (pl%status(i) /= INACTIVE) cb%vb(:) = cb%vb(:) - pl%Gmass(i) * pl%vb(:, i) / cb%Gmass
end do
do concurrent(i = 1:npl)
pl%vh(:, i) = pl%vb(:, i) - cb%vb(:)
Expand Down

0 comments on commit 2739286

Please sign in to comment.