From b050701d821c12fd9f90ea4b694cf93de0446d82 Mon Sep 17 00:00:00 2001 From: David Minton Date: Thu, 22 Feb 2024 12:46:37 -0500 Subject: [PATCH] Fixed typo --- src/collision/collision_io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/collision/collision_io.f90 b/src/collision/collision_io.f90 index bae71daf5..3ad6e332f 100644 --- a/src/collision/collision_io.f90 +++ b/src/collision/collision_io.f90 @@ -420,7 +420,7 @@ module subroutine collision_io_netcdf_write_frame_snapshot(self, history, param) end if end do - ntp = pl%nbody + ntp = tp%nbody do i = 1, ntp call nc%find_idslot(tp%id(i), idslot) call netcdf_io_check( nf90_put_var(nc%id, nc%id_varid, tp%id(i), start=[ idslot ]), "collision_io_netcdf_write_frame_snapshot nf90_put_var id_varid" )