Added allocate statement for test particles

MintonGroup · Oct 19, 2021 · ef2af76 · ef2af76
1 parent 99e2c4c
commit ef2af76
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90
@@ -677,6 +677,7 @@ module subroutine netcdf_read_particle_info_system(self, iu, plmask, tpmask)
             do i = 1, ntp
                call tp%info(i)%set_value(status="ACTIVE")
             end do
+            allocate(tpind(ntp))
             tpind(:) = pack([(i, i = 1, idmax)], tpmask(:))
          end if