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

Commit

Permalink
Fixed bad comment
Browse files Browse the repository at this point in the history
  • Loading branch information
@daminton
daminton committed Jul 2, 2021
1 parent 8f4e883 commit 98b79fc
Show file tree
Hide file tree
Showing 10 changed files with 53 additions and 51 deletions.
2 changes: 1 addition & 1 deletion src/discard/discard.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ module subroutine discard_system(self, param)
!! Adapted from Hal Levison's Swift routine discard.f
implicit none
class(swiftest_nbody_system), intent(inout) :: self !! Swiftest system object
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters

if (self%tp%nbody == 0) return
select type(self)
Expand Down
24 changes: 12 additions & 12 deletions src/io/io.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -444,7 +444,7 @@ module subroutine io_dump_swiftest(self, param, t, dt, msg)
implicit none
! Arguments
class(swiftest_base), intent(inout) :: self !! Swiftest base object
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters
real(DP), intent(in) :: t !! Current simulation time
real(DP), intent(in) :: dt !! Stepsize
character(*), optional, intent(in) :: msg !! Message to display with dump operation
Expand Down Expand Up @@ -483,7 +483,7 @@ module subroutine io_dump_system(self, param, t, dt, msg)
implicit none
! Arguments
class(swiftest_nbody_system), intent(inout) :: self !! Swiftest system object
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters
real(DP), intent(in) :: t !! Current simulation time
real(DP), intent(in) :: dt !! Stepsize
character(*), optional, intent(in) :: msg !! Message to display with dump operation
Expand Down Expand Up @@ -636,7 +636,7 @@ module subroutine io_read_body_in(self, param)
implicit none
! Arguments
class(swiftest_body), intent(inout) :: self !! Swiftest particle object
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
! Internals
integer(I4B), parameter :: LUN = 7 !! Unit number of input file
integer(I4B) :: iu = LUN
Expand Down Expand Up @@ -776,7 +776,7 @@ module subroutine io_read_param_in(self, param_file_name)
!! Adapted from Martin Duncan's Swift routine io_init_param.f
implicit none
! Arguments
class(swiftest_parameters),intent(out) :: self !! Current run configuration parameters of parameters
class(swiftest_parameters),intent(out) :: self !! Current run configuration parameters
character(len=*), intent(in) :: param_file_name !! Parameter input file name (i.e. param.in)
! Internals
integer(I4B), parameter :: LUN = 7 !! Unit number of input file
Expand Down Expand Up @@ -870,7 +870,7 @@ module subroutine io_read_frame_body(self, iu, param, form, t, ierr)
! Arguments
class(swiftest_body), intent(inout) :: self !! Swiftest particle object
integer(I4B), intent(inout) :: iu !! Unit number for the output file to write frame to
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
character(*), intent(in) :: form !! Input format code ("XV" or "EL")
real(DP), intent(out) :: t !! Simulation time
integer(I4B), intent(out) :: ierr !! Error code
Expand Down Expand Up @@ -932,7 +932,7 @@ module subroutine io_read_frame_cb(self, iu, param, form, t, ierr)
! Arguments
class(swiftest_cb), intent(inout) :: self !! Swiftest central body object
integer(I4B), intent(inout) :: iu !! Unit number for the output file to write frame to
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
character(*), intent(in) :: form !! Input format code ("XV" or "EL")
real(DP), intent(out) :: t !! Simulation time
integer(I4B), intent(out) :: ierr !! Error cod
Expand Down Expand Up @@ -966,7 +966,7 @@ module subroutine io_read_frame_system(self, iu, param, form, t, ierr)
! Arguments
class(swiftest_nbody_system), intent(inout) :: self !! Swiftest system object
integer(I4B), intent(inout) :: iu !! Unit number for the output file to write frame to
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
character(*), intent(in) :: form !! Input format code ("XV" or "EL")
real(DP), intent(out) :: t !! Current simulation time
integer(I4B), intent(out) :: ierr !! Error code
Expand Down Expand Up @@ -1042,7 +1042,7 @@ module subroutine io_read_initialize_system(self, param)
implicit none
! Arguments
class(swiftest_nbody_system), intent(inout) :: self !! Swiftest system object
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters

call self%cb%initialize(param)
call self%pl%initialize(param)
Expand All @@ -1063,7 +1063,7 @@ module subroutine io_write_discard(self, param, discards)
implicit none
! Arguments
class(swiftest_nbody_system), intent(inout) :: self !! Swiftest system object
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters
class(swiftest_body), intent(inout) :: discards !! Swiftest discard object
! Internals
integer(I4B), parameter :: LUN = 40
Expand Down Expand Up @@ -1196,7 +1196,7 @@ module subroutine io_write_frame_body(self, iu, param, t, dt)
! Arguments
class(swiftest_body), intent(in) :: self !! Swiftest particle object
integer(I4B), intent(inout) :: iu !! Unit number for the output file to write frame to
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters
real(DP), intent(in) :: t !! Current simulation time
real(DP), intent(in) :: dt !! Step size

Expand Down Expand Up @@ -1252,7 +1252,7 @@ module subroutine io_write_frame_cb(self, iu, param, t, dt)
! Arguments
class(swiftest_cb), intent(in) :: self !! Swiftest central body object
integer(I4B), intent(inout) :: iu !! Unit number for the output file to write frame to
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters
real(DP), intent(in) :: t !! Current simulation time
real(DP), intent(in) :: dt !! Step size

Expand Down Expand Up @@ -1288,7 +1288,7 @@ module subroutine io_write_frame_system(self, iu, param, t, dt)
! Arguments
class(swiftest_nbody_system), intent(in) :: self !! Swiftest system object
integer(I4B), intent(inout) :: iu !! Unit number for the output file to write frame to
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters
real(DP), intent(in) :: t !! Current simulation time
real(DP), intent(in) :: dt !! Step size
! Internals
Expand Down
14 changes: 8 additions & 6 deletions src/modules/helio_classes.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -97,7 +97,7 @@ module subroutine helio_drift_pl(self, cb, param, dt)
implicit none
class(helio_pl), intent(inout) :: self !! Helio massive body object
class(swiftest_cb), intent(inout) :: cb !! Helio central body object
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters
real(DP), intent(in) :: dt !! Stepsize
end subroutine helio_drift_pl

Expand All @@ -106,7 +106,7 @@ module subroutine helio_drift_tp(self, cb, param, dt)
implicit none
class(helio_tp), intent(inout) :: self !! Helio test particle object
class(swiftest_cb), intent(inout) :: cb !! Helio central body object
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters
real(DP), intent(in) :: dt !! Stepsize
end subroutine helio_drift_tp

Expand All @@ -131,7 +131,7 @@ module subroutine helio_getacch_pl(self, cb, param, t)
implicit none
class(helio_pl), intent(inout) :: self !! Helio massive body particle data structure
class(swiftest_cb), intent(inout) :: cb !! Swiftest central body particle data structure
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters
real(DP), intent(in) :: t !! Current time
end subroutine helio_getacch_pl

Expand All @@ -142,7 +142,7 @@ module subroutine helio_getacch_tp(self, cb, pl, param, t, xh)
class(helio_tp), intent(inout) :: self !! Helio test particle data structure
class(swiftest_cb), intent(inout) :: cb !! Swiftest central body particle data structuree
class(whm_pl), intent(inout) :: pl !! Swiftest massive body particle data structure.
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters
real(DP), intent(in) :: t !! Current time
real(DP), dimension(:,:), intent(in) :: xh !! Heliocentric positions of planets
end subroutine helio_getacch_tp
Expand Down Expand Up @@ -177,8 +177,10 @@ end subroutine helio_setup_tp
module subroutine helio_step_system(self, param)
use swiftest_classes, only : swiftest_parameters
implicit none
class(helio_nbody_system), intent(inout) :: self !! Helio nbody system object
class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters of parameters
class(helio_nbody_system), intent(inout) :: self !! Helio nbody system object
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
real(DP), intent(in) :: t !! Simulation time
real(DP), intent(in) :: dt !! Current stepsize
end subroutine helio_step_system

module subroutine helio_step_pl(self, cb, param, t, dt)
Expand Down
4 changes: 2 additions & 2 deletions src/modules/rmvs_classes.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -132,7 +132,7 @@ module subroutine rmvs_setup_system(self, param)
use swiftest_classes, only : swiftest_parameters
implicit none
class(rmvs_nbody_system), intent(inout) :: self !! RMVS system object
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
end subroutine rmvs_setup_system

module subroutine rmvs_setup_pl(self,n)
Expand All @@ -151,7 +151,7 @@ module subroutine rmvs_step_system(self, param, t, dt)
use swiftest_classes, only : swiftest_parameters
implicit none
class(rmvs_nbody_system), intent(inout) :: self !! RMVS nbody system object
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters of parameters
class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
real(DP), intent(in) :: t !! Simulation time
real(DP), intent(in) :: dt !! Current stepsize
end subroutine rmvs_step_system
Expand Down
Loading

0 comments on commit 98b79fc

Please sign in to comment.