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

Commit

Permalink
Removed cruft
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Oct 25, 2021
1 parent 5849050 commit 255a4b5
Showing 1 changed file with 1 addition and 4 deletions.
5 changes: 1 addition & 4 deletions src/symba/symba_encounter_check.f90
Original file line number Diff line number Diff line change
Expand Up @@ -35,15 +35,12 @@ module function symba_encounter_check_pl(self, param, system, dt, irec) result(l
nplm = pl%nplm
nplt = npl - nplm

! call timer%reset()
! call timer%start()
if (nplt == 0) then
call encounter_check_all_plpl(param, npl, pl%xh, pl%vh, pl%renc, dt, lvdotr, index1, index2, nenc)
else
call encounter_check_all_plplm(param, nplm, nplt, pl%xh(:,1:nplm), pl%vh(:,1:nplm), pl%xh(:,nplm+1:npl), pl%vh(:,nplm+1:npl), pl%renc(1:nplm), pl%renc(nplm+1:npl), dt, lvdotr, index1, index2, nenc)
end if
! call timer%stop()
! call timer%report(nsubsteps=nthreads, message="Encounter Check Total:")

lany_encounter = nenc > 0
if (lany_encounter) then
call plplenc_list%resize(nenc)
Expand Down

0 comments on commit 255a4b5

Please sign in to comment.