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