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

Commit

Permalink
Removed associate statement used for debugging that I needed before I…
Browse files Browse the repository at this point in the history
… got the intel debugger working properly
  • Loading branch information
daminton committed Jun 17, 2021
1 parent e604334 commit 619a525
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions src/rmvs/rmvs_step.f90
Original file line number Diff line number Diff line change
Expand Up @@ -98,8 +98,6 @@ subroutine rmvs_step_out(pl, cb, tp, dt, config)
rts = RHPSCALE
lencounter = tp%encounter_check(cb, pl, dt, rts)
if (lencounter) then
associate(xbeg => pl%outer(outer_index - 1)%x(:, :), xend => pl%outer(outer_index )%x(:, :), &
tpxbeg => tp%xbeg, tpxend => tp%xend)
! Interpolate planets in inner encounter region
call rmvs_interp_in(pl, cb, dto, outer_index, config)
! Step through the inner region
Expand All @@ -108,7 +106,6 @@ subroutine rmvs_step_out(pl, cb, tp, dt, config)
tp%lfirst = .true.
call tp%step(cb, pl, config, outer_time, dto)
tp%lfirst = lfirsttp
end associate
else
call tp%step(cb, pl, config, outer_time, dto)
end if
Expand Down

0 comments on commit 619a525

Please sign in to comment.