Fixed id position issue

MintonGroup · Dec 10, 2022 · 536f318 · 536f318
1 parent 8eeae19
commit 536f318
Show file tree

Hide file tree

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