From a0eb0cc088c247f7eb58f474e869c83adc874e86 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 4 Nov 2022 16:53:54 -0400 Subject: [PATCH] Added back the interfaces for the tide subroutines --- src/modules/swiftest_classes.f90 | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/src/modules/swiftest_classes.f90 b/src/modules/swiftest_classes.f90 index aace128bf..6c0ac2be3 100644 --- a/src/modules/swiftest_classes.f90 +++ b/src/modules/swiftest_classes.f90 @@ -1110,19 +1110,19 @@ module subroutine setup_tp(self, n, param) end subroutine setup_tp ! TODO: Implement the tides model - ! module subroutine tides_kick_getacch_pl(self, system) - ! implicit none - ! class(swiftest_pl), intent(inout) :: self !! Swiftest massive body object - ! class(swiftest_nbody_system), intent(inout) :: system !! Swiftest nbody system object - ! end subroutine tides_kick_getacch_pl - - ! module subroutine tides_step_spin_system(self, param, t, dt) - ! implicit none - ! class(swiftest_nbody_system), intent(inout) :: self !! Swiftest nbody system object - ! class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters - ! real(DP), intent(in) :: t !! Simulation time - ! real(DP), intent(in) :: dt !! Current stepsize - ! end subroutine tides_step_spin_system + module subroutine tides_kick_getacch_pl(self, system) + implicit none + class(swiftest_pl), intent(inout) :: self !! Swiftest massive body object + class(swiftest_nbody_system), intent(inout) :: system !! Swiftest nbody system object + end subroutine tides_kick_getacch_pl + + module subroutine tides_step_spin_system(self, param, t, dt) + implicit none + class(swiftest_nbody_system), intent(inout) :: self !! Swiftest nbody system object + class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters + real(DP), intent(in) :: t !! Simulation time + real(DP), intent(in) :: dt !! Current stepsize + end subroutine tides_step_spin_system module subroutine user_kick_getacch_body(self, system, param, t, lbeg) implicit none