added start_encounter and stop_encounter implementation templates

MintonGroup · Dec 6, 2022 · f8c4c22 · f8c4c22
1 parent bdb75a2
commit f8c4c22
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 4 deletions.
diff --git 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
@@ -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