From 948670be6f3d614cad406b6414c6287f00fd8c1a Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 13 Jul 2021 08:45:05 -0400 Subject: [PATCH] Added tides method calls to acceleration functions in WHM and Helio --- src/helio/helio_getacch.f90 | 1 + src/whm/whm_getacch.f90 | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/helio/helio_getacch.f90 b/src/helio/helio_getacch.f90 index 4b598f204..ce0d1a313 100644 --- a/src/helio/helio_getacch.f90 +++ b/src/helio/helio_getacch.f90 @@ -24,6 +24,7 @@ module subroutine helio_getacch_pl(self, system, param, t, lbeg) cb%aoblend = cb%aobl end if if (param%lextra_force) call pl%accel_user(system, param, t) + if (param%ltides) call pl%accel_tides(system) !if (param%lgr) call pl%gr_accel(param) end associate diff --git a/src/whm/whm_getacch.f90 b/src/whm/whm_getacch.f90 index c4ee90592..daef6ea0c 100644 --- a/src/whm/whm_getacch.f90 +++ b/src/whm/whm_getacch.f90 @@ -39,7 +39,7 @@ module subroutine whm_getacch_pl(self, system, param, t, lbeg) end if if (param%lextra_force) call pl%accel_user(system, param, t) if (param%lgr) call pl%accel_gr(param) - + if (param%ltides) call pl%accel_tides(system) end associate return end subroutine whm_getacch_pl