From 5608ae1d38b33e6d191d276001c58afa4fe8d3ec Mon Sep 17 00:00:00 2001 From: David Minton Date: Fri, 2 Apr 2021 18:05:54 -0400 Subject: [PATCH] Fixed bug in associate statement --- src/rmvs/rmvs_step.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/rmvs/rmvs_step.f90 b/src/rmvs/rmvs_step.f90 index fb5fb3954..97b2303be 100644 --- a/src/rmvs/rmvs_step.f90 +++ b/src/rmvs/rmvs_step.f90 @@ -167,7 +167,7 @@ module subroutine rmvs_step_in_pl(self, cb, tp, config, t, dt) dti = dt / NTPHENC - associate(pl => self, npl => self%nbody, xht => tp%xh, vht => tp%vh, plind => self%plind, nenc => pl%nenc) + associate(pl => self, npl => self%nbody, xht => tp%xh, vht => tp%vh, plind => self%plind, nenc => self%nenc) if (config%loblatecb) call pl%obl_acc_in(cb) call pl%make_planetocentric(cb, tp, config) do i = 1, npl