passed argument ind to netcdf_read_particle_info_base

MintonGroup · Sep 29, 2021 · 906963e · 906963e
1 parent a3acd62
commit 906963e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git 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
@@ -499,17 +499,17 @@ 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
       implicit none
       ! 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