Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Formatting and added reference to Mercury-T
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Jul 13, 2021
1 parent c1b3a7e commit 3204af0
Show file tree
Hide file tree
Showing 2 changed files with 11 additions and 4 deletions.
2 changes: 1 addition & 1 deletion src/modules/swiftest_classes.f90
Original file line number Diff line number Diff line change
Expand Up @@ -121,7 +121,7 @@ module swiftest_classes
real(DP), dimension(NDIM) :: rot = 0.0_DP !! Body rotation vector in inertial coordinate frame (units rad / TU)
real(DP) :: k2 = 0.0_DP !! Tidal Love number
real(DP) :: Q = 0.0_DP !! Tidal quality factor
real(DP) :: tlag = 0.0_DP !! Tidal phase lag angle
real(DP) :: tlag = 0.0_DP !! Tidal phase lag angle
real(DP), dimension(NDIM) :: L0 = 0.0_DP !! Initial angular momentum of the central body
real(DP), dimension(NDIM) :: dL = 0.0_DP !! Change in angular momentum of the central body
contains
Expand Down
13 changes: 10 additions & 3 deletions src/tides/tides_getacch_pl.f90
Original file line number Diff line number Diff line change
Expand Up @@ -5,8 +5,15 @@ module subroutine tides_getacch_pl(self, system)
!! author: Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton
!!
!! Calculated tidal torques from central body to any planet and from any planet to central body
!! planet - planet interactions are considered negligeable
!! Adapted from Mercury-T code from Bolmont et al. 2015
!! planet - planet interactions are considered negligable.
!! This is a constant time lag model.
!!
!! Adapted from Mercury-T code from Bolmont et al. (2015)
!!
!! Reference:
!! Bolmont, E., Raymond, S.N., Leconte, J., Hersant, F., Correia, A.C.M., 2015.
!! Mercury-T : A new code to study tidally evolving multi-planet systems.
!! Applications to Kepler-62. A&A 583, A116. https://doi.org/10.1051/0004-6361/201525909
implicit none
! Arguments
class(swiftest_pl), intent(inout) :: self !! Swiftest massive body object
Expand All @@ -30,7 +37,7 @@ module subroutine tides_getacch_pl(self, system)
r_unit(:) = pl%xh(:,i) / rmag
v_unit(:) = pl%vh(:,i) / vmag
h_unit(:) = r_unit(:) .cross. v_unit(:)


!Ftr =
!Pto =
Expand Down

0 comments on commit 3204af0

Please sign in to comment.