From 20047537eaf67902a8714810c9a0a179cd5f9416 Mon Sep 17 00:00:00 2001 From: anand43 Date: Tue, 12 Dec 2023 14:45:23 -0500 Subject: [PATCH] Changed lshgrav flag for planetocentric param file to false --- src/rmvs/rmvs_kick.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/rmvs/rmvs_kick.f90 b/src/rmvs/rmvs_kick.f90 index 82d19463e..2b3bb4faa 100644 --- a/src/rmvs/rmvs_kick.f90 +++ b/src/rmvs/rmvs_kick.f90 @@ -53,6 +53,7 @@ module subroutine rmvs_kick_getacch_tp(self, nbody_system, param, t, lbeg) ! Temporarily turn off the heliocentric-dependent acceleration terms during an inner encounter using a copy of the parameter list with all of the heliocentric-specific acceleration terms turned off allocate(param_planetocen, source=param) param_planetocen%loblatecb = .false. + param_planetocen%lshgrav = .false. param_planetocen%lextra_force = .false. param_planetocen%lgr = .false.