diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt index 985d2ea99..bec5aa743 100644 --- a/src/CMakeLists.txt +++ b/src/CMakeLists.txt @@ -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 diff --git a/src/base/base_module.f90 b/src/base/base_module.f90 index 8be20f9d3..6f0821b70 100644 --- a/src/base/base_module.f90 +++ b/src/base/base_module.f90 @@ -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) diff --git a/src/shgrav/shgrav_module.f90 b/src/shgrav/shgrav_module.f90 new file mode 100644 index 000000000..0007bb2af --- /dev/null +++ b/src/shgrav/shgrav_module.f90 @@ -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 + \ No newline at end of file