Fixed bug in associate statement

MintonGroup · Apr 2, 2021 · 5608ae1 · 5608ae1
1 parent da36377
commit 5608ae1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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