From 619a525c5b0bcc9d82cd718414b1f49625d1376b Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 17 Jun 2021 11:12:31 -0400 Subject: [PATCH] Removed associate statement used for debugging that I needed before I got the intel debugger working properly --- src/rmvs/rmvs_step.f90 | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/rmvs/rmvs_step.f90 b/src/rmvs/rmvs_step.f90 index be62331aa..bc6eea6ec 100644 --- a/src/rmvs/rmvs_step.f90 +++ b/src/rmvs/rmvs_step.f90 @@ -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 @@ -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