From 561c697f019c378af9b68381093cea9c3c20dec4 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 15 Oct 2021 14:03:43 -0400 Subject: [PATCH] Enabled reading in the collision_id as an integer --- src/netcdf/netcdf.f90 | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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))