From 536f3182e21862df0368a288f28b4243fe996a5a Mon Sep 17 00:00:00 2001 From: David A Minton Date: Sat, 10 Dec 2022 10:26:15 -0500 Subject: [PATCH] Fixed id position issue --- src/encounter/encounter_io.f90 | 4 ++-- src/fraggle/fraggle_io.f90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/encounter/encounter_io.f90 b/src/encounter/encounter_io.f90 index eade6d9e3..94b0fade6 100644 --- a/src/encounter/encounter_io.f90 +++ b/src/encounter/encounter_io.f90 @@ -164,7 +164,7 @@ module subroutine encounter_io_write_frame(self, nc, param) npl = pl%nbody do i = 1, npl - idslot = pl%id(i) + idslot = pl%id(i) + 1 call check( nf90_put_var(nc%id, nc%id_varid, pl%id(i), start=[idslot]), "encounter_io_write_frame nf90_put_var pl id_varid" ) call check( nf90_put_var(nc%id, nc%rh_varid, pl%rh(:,i), start=[1,idslot,tslot], count=[NDIM,1,1]), "encounter_io_write_frame nf90_put_var pl rh_varid" ) call check( nf90_put_var(nc%id, nc%vh_varid, pl%vh(:,i), start=[1,idslot,tslot], count=[NDIM,1,1]), "encounter_io_write_frame nf90_put_var pl vh_varid" ) @@ -185,7 +185,7 @@ module subroutine encounter_io_write_frame(self, nc, param) ntp = tp%nbody do i = 1, ntp - idslot = tp%id(i) + idslot = tp%id(i) + 1 call check( nf90_put_var(nc%id, nc%id_varid, tp%id(i), start=[idslot]), "encounter_io_write_frame nf90_put_var tp id_varid" ) call check( nf90_put_var(nc%id, nc%rh_varid, tp%rh(:,i), start=[1,idslot,tslot], count=[NDIM,1,1]), "encounter_io_write_frame nf90_put_var tp rh_varid" ) call check( nf90_put_var(nc%id, nc%vh_varid, tp%vh(:,i), start=[1,idslot,tslot], count=[NDIM,1,1]), "encounter_io_write_frame nf90_put_var tp vh_varid" ) diff --git a/src/fraggle/fraggle_io.f90 b/src/fraggle/fraggle_io.f90 index faedff8a8..524ac7d2d 100644 --- a/src/fraggle/fraggle_io.f90 +++ b/src/fraggle/fraggle_io.f90 @@ -176,7 +176,7 @@ module subroutine fraggle_io_write_frame(self, nc, param) ! Stage 1: The Colliders npl = pl%nbody do i = 1, npl - idslot = pl%id(i) + idslot = pl%id(i) + 1 call check( nf90_put_var(nc%id, nc%id_varid, pl%id(i), start=[ idslot ]), "fraggle_io_write_frame nf90_put_var id_varid" ) charstring = trim(adjustl(pl%info(i)%name)) call check( nf90_put_var(nc%id, nc%name_varid, charstring, start=[1, idslot], count=[len(charstring), 1]), "fraggle_io_write_frame nf90_put_var name_varid" )