diff --git a/src/modules/swiftest_classes.f90 b/src/modules/swiftest_classes.f90 index a48953370..6ffd3b2da 100644 --- a/src/modules/swiftest_classes.f90 +++ b/src/modules/swiftest_classes.f90 @@ -1080,10 +1080,11 @@ module subroutine netcdf_read_hdr_system(self, iu, param) class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters end subroutine netcdf_read_hdr_system - module subroutine netcdf_read_particle_info_base(self, iu) + module subroutine netcdf_read_particle_info_base(self, iu, ind) implicit none class(swiftest_base), intent(inout) :: self !! Swiftest particle object class(netcdf_parameters), intent(inout) :: iu !! Parameters used to identify a particular NetCDF dataset + integer(I4B), dimension(:), intent(in) :: ind !! Index mapping from netcdf to active particles end subroutine netcdf_read_particle_info_base module subroutine netcdf_write_frame_base(self, iu, param) diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90 index 9c104b3ce..04ba92bc0 100644 --- a/src/netcdf/netcdf.f90 +++ b/src/netcdf/netcdf.f90 @@ -499,7 +499,7 @@ module subroutine netcdf_read_hdr_system(self, iu, param) return end subroutine netcdf_read_hdr_system - module subroutine netcdf_read_particle_info_base(self, iu) + module subroutine netcdf_read_particle_info_base(self, iu, ind) !! author: Carlisle A. Wishard, Dana Singh, and David A. Minton !! !! Write all current particle to file @@ -507,9 +507,9 @@ module subroutine netcdf_read_particle_info_base(self, iu) ! Arguments class(swiftest_base), intent(inout) :: self !! Swiftest particle object class(netcdf_parameters), intent(inout) :: iu !! Parameters used to identify a particular NetCDF dataset + integer(I4B), dimension(:), intent(in) :: ind !! Index mapping from netcdf to active particles ! Internals integer(I4B) :: i, j, tslot, strlen, idslot, old_mode - integer(I4B), dimension(:), allocatable :: ind character(len=:), allocatable :: charstring character(len=NAMELEN) :: emptystr, lenstr character(len=:), allocatable :: fmtlabel