Enabled reading in the collision_id as an integer

MintonGroup · Oct 15, 2021 · 561c697 · 561c697
1 parent 66ad078
commit 561c697
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90
@@ -721,13 +721,13 @@ module subroutine netcdf_read_particle_info_system(self, iu, plmask, tpmask)
             call tp%info(i)%set_value(origin_type=ctemp(tpind(i)))
          end do
 
-         ! call check( nf90_get_var(iu%ncid, iu%collision_id_varid, itemp) )
-         ! do i = 1, npl
-         !    call pl%info(i)%set_value(collision_id=itemp(plind(i)))
-         ! end do
-         ! do i = 1, ntp
-         !    call tp%info(i)%set_value(collision_id=itemp(tpind(i)))
-         ! end do
+         call check( nf90_get_var(iu%ncid, iu%collision_id_varid, itemp) )
+         do i = 1, npl
+            call pl%info(i)%set_value(collision_id=itemp(plind(i)))
+         end do
+         do i = 1, ntp
+            call tp%info(i)%set_value(collision_id=itemp(tpind(i)))
+         end do
 
          call check( nf90_get_var(iu%ncid, iu%origin_time_varid, rtemp) )
          call cb%info%set_value(origin_time=rtemp(1))