Added tides method calls to acceleration functions in WHM and Helio

MintonGroup · Jul 13, 2021 · 948670b · 948670b
1 parent cec6c55
commit 948670b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
@@ -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