diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90 index 0b82a5b0d..ab05d3c2a 100644 --- 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))