From 8afaf54b6428501522048002a2a68e1ff9627484 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 5 Jan 2023 09:33:31 -0500 Subject: [PATCH] Added collision_id as the indexing variable in collision output files --- src/collision/collision_io.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/collision/collision_io.f90 b/src/collision/collision_io.f90 index 583b19bb9..a35b7229c 100644 --- a/src/collision/collision_io.f90 +++ b/src/collision/collision_io.f90 @@ -374,9 +374,10 @@ module subroutine collision_io_netcdf_write_frame_snapshot(self, history, param) select type(nc => history%nc) class is (collision_netcdf_parameters) - associate(collider => self%collider, impactors => self%collider%impactors, fragments => self%collider%fragments, eslot => param%ioutput) + associate(collider => self%collider, impactors => self%collider%impactors, fragments => self%collider%fragments, eslot => self%collider%collision_id) call netcdf_io_check( nf90_set_fill(nc%id, nf90_nofill, old_mode), "collision_io_netcdf_write_frame_snapshot nf90_set_fill" ) + call netcdf_io_check( nf90_put_var(nc%id, nc%collision_id_varid, eslot, start=[eslot]), "collision_io_netcdf_write_frame_snapshot nf90_put_var collision_id_varid" ) call netcdf_io_check( nf90_put_var(nc%id, nc%time_varid, self%t, start=[eslot]), "collision_io_netcdf_write_frame_snapshot nf90_put_var time_varid" ) call netcdf_io_check( nf90_put_var(nc%id, nc%loop_varid, int(self%iloop,kind=I4B), start=[eslot]), "collision_io_netcdf_write_frame_snapshot nf90_put_varloop_varid" )