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

Commit

Permalink
Added a new shgrav module that will eventually contain the SHTOOLS-ba…
Browse files Browse the repository at this point in the history
…sed central body acceleration procedures
  • Loading branch information
daminton committed Feb 27, 2024
1 parent c7b9585 commit 2b36b66
Show file tree
Hide file tree
Showing 3 changed files with 41 additions and 20 deletions.
1 change: 1 addition & 0 deletions src/CMakeLists.txt
Original file line number Diff line number Diff line change
Expand Up @@ -66,6 +66,7 @@ SET(FAST_MATH_FILES
${SRC}/rmvs/rmvs_module.f90
${SRC}/helio/helio_module.f90
${SRC}/symba/symba_module.f90
${SRC}/shgrav/shgrav_module.f90
${SRC}/collision/collision_check.f90
${SRC}/collision/collision_regime.f90
${SRC}/collision/collision_resolve.f90
Expand Down
40 changes: 20 additions & 20 deletions src/base/base_module.f90
Original file line number Diff line number Diff line change
Expand Up @@ -2249,39 +2249,39 @@ subroutine base_coclone_param(self)
call coclone(self%collision_model)
call coclone(self%encounter_save)
call coclone(self%lenc_save_trajectory)
call coclone(self%lenc_save_closest )
call coclone(self%interaction_loops )
call coclone(self%lenc_save_closest)
call coclone(self%interaction_loops)
call coclone(self%encounter_check_plpl)
call coclone(self%encounter_check_pltp)
call coclone(self%lflatten_interactions)
call coclone(self%lencounter_sas_plpl)
call coclone(self%lencounter_sas_pltp )
call coclone(self%lencounter_sas_pltp)
call coclone(self%lrhill_present)
call coclone(self%lextra_force )
call coclone(self%lbig_discard )
call coclone(self%lclose )
call coclone(self%lenergy )
call coclone(self%loblatecb )
call coclone(self%lrotation )
call coclone(self%ltides )
call coclone(self%E_orbit_orig )
call coclone(self%GMtot_orig )
call coclone(self%lextra_force)
call coclone(self%lbig_discard)
call coclone(self%lclose)
call coclone(self%lenergy)
call coclone(self%loblatecb)
call coclone(self%lrotation)
call coclone(self%ltides)
call coclone(self%E_orbit_orig)
call coclone(self%GMtot_orig)
call coclonevec(self%L_total_orig)
call coclonevec(self%L_orbit_orig)
call coclonevec(self%L_spin_orig)
call coclonevec(self%L_escape)
call coclone(self%GMescape )
call coclone(self%E_collisions )
call coclone(self%E_untracked )
call coclone(self%GMescape)
call coclone(self%E_collisions)
call coclone(self%E_untracked)
call coclone(self%lfirstenergy)
call coclone(self%lfirstkick )
call coclone(self%lrestart )
call coclone(self%lfirstkick)
call coclone(self%lrestart)
call coclone(self%display_style)
call coclone(self%display_unit )
call coclone(self%display_unit)
call coclone(self%log_output )
call coclone(self%lgr )
call coclone(self%lgr)
call coclone(self%lyarkovsky)
call coclone(self%lyorp )
call coclone(self%lyorp)
call coclone(self%seed)
call coclone(self%lcoarray)

Expand Down
20 changes: 20 additions & 0 deletions src/shgrav/shgrav_module.f90
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
! Copyight 2024 - The Minton Group at Purdue University
! This file is part of Swiftest.
! Swiftest is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License
! as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
! Swiftest is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
! of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
! You should have received a copy of the GNU General Public License along with Swiftest.
! If not, see: https://www.gnu.org/licenses.

module shgrav
!! author: David A. Minton and Kaustub Anand
!!
!! This module defines functions used for the computation of accelerations based on spherical harmonics representation of the
!! gravitational potential of the central body. It uses the SHTOOLS library https://shtools.github.io/SHTOOLS/
use swiftest
implicit none
public

end module shgrav

0 comments on commit 2b36b66

Please sign in to comment.