From f8c4c22d53f0cb71baa73067267a4f44b8e118e0 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 6 Dec 2022 10:40:43 -0500 Subject: [PATCH] added start_encounter and stop_encounter implementation templates --- src/modules/symba_classes.f90 | 8 ++++---- src/symba/symba_io.f90 | 26 ++++++++++++++++++++++++++ 2 files changed, 30 insertions(+), 4 deletions(-) diff --git a/src/modules/symba_classes.f90 b/src/modules/symba_classes.f90 index e059bb33b..871637c3d 100644 --- a/src/modules/symba_classes.f90 +++ b/src/modules/symba_classes.f90 @@ -419,20 +419,20 @@ end subroutine symba_util_take_encounter_snapshot module subroutine symba_io_encounter_dump(self, param) implicit none - class(symba_encounter_storage(*)), intent(inout) :: self !! Encounter storage object - class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters + class(symba_encounter_storage(*)), intent(inout) :: self !! Encounter storage object + class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters end subroutine symba_io_encounter_dump module subroutine symba_io_encounter_initialize_output(self, param) implicit none class(symba_io_encounter_parameters), intent(inout) :: self !! Parameters used to identify a particular NetCDF dataset - class(swiftest_parameters), intent(in) :: param + class(swiftest_parameters), intent(in) :: param end subroutine symba_io_encounter_initialize_output module subroutine symba_io_encounter_write_frame(self, nc, param) implicit none class(symba_encounter_snapshot), intent(in) :: self !! Swiftest encounter structure - class(symba_io_encounter_parameters), intent(inout) :: nc !! Parameters used to identify a particular encounter io NetCDF dataset + class(symba_io_encounter_parameters), intent(inout) :: nc !! Parameters used to identify a particular encounter io NetCDF dataset class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters end subroutine symba_io_encounter_write_frame diff --git a/src/symba/symba_io.f90 b/src/symba/symba_io.f90 index 641ab7d54..f531d992e 100644 --- a/src/symba/symba_io.f90 +++ b/src/symba/symba_io.f90 @@ -356,6 +356,32 @@ module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, ioms write(*,*) "Error writing parameter file for SyMBA: " // trim(adjustl(iomsg)) end subroutine symba_io_param_writer + module subroutine symba_io_start_encounter(self, param, t) + !! author: David A. Minton + !! + !! Initializes the new encounter and/or fragmentation save file(s) + implicit none + ! Arguments + class(symba_nbody_system), intent(inout) :: self !! SyMBA nbody system object + class(symba_parameters), intent(inout) :: param !! Current run configuration parameters + real(DP), intent(in) :: t !! Current simulation time + + return + end subroutine symba_io_start_encounter + + module subroutine symba_io_stop_encounter(self, param, t) + !! author: David A. Minton + !! + !! Saves the encounter and/or fragmentation data to file(s) + implicit none + ! Arguments + class(symba_nbody_system), intent(inout) :: self !! SyMBA nbody system object + class(symba_parameters), intent(inout) :: param !! Current run configuration parameters + real(DP), intent(in) :: t !! Current simulation time + + return + end subroutine symba_io_stop_encounter + module subroutine symba_io_write_discard(self, param) !! author: David A. Minton