POST PROCESS FIX

Author: Anand Radhakrishnan

src/post_process/m_data_input.f90

@@ -531,7 +531,7 @@ impure subroutine s_read_parallel_conservative_data(t_step, m_MOK, n_MOK, p_MOK,
                                                mpi_p, status, ierr)
                     end do
                 else
-                    do i = 1, adv_idx%end
+                    do i = 1, sys_size
                         var_MOK = int(i, MPI_OFFSET_KIND)
                         call MPI_FILE_READ_ALL(ifile, MPI_IO_DATA%var(i)%sf, data_size, &
                                                mpi_p, status, ierr)
@@ -609,7 +609,9 @@ impure subroutine s_initialize_data_input_module
             if (p > 0) then
                 call s_allocate_field_arrays(-buff_size, m + buff_size, n + buff_size, p + buff_size)
                 if(down_sample) then
-                    allocate(q_cons_temp(i)%sf(-1:m+1,-1:n+1,-1:p+1))
+                    do i = 1, sys_size
+                        allocate(q_cons_temp(i)%sf(-1:m+1,-1:n+1,-1:p+1))
+                    end do
                 end if
             else
                 ! Simulation is 2D

src/post_process/m_global_parameters.fpp

@@ -798,7 +798,11 @@ contains
         allocate (MPI_IO_DATA%view(1:sys_size))
         allocate (MPI_IO_DATA%var(1:sys_size))
         do i = 1, sys_size
-            allocate (MPI_IO_DATA%var(i)%sf(0:m, 0:n, 0:p))
+            if(down_sample) then
+                allocate (MPI_IO_DATA%var(i)%sf(-1:m+1, -1:n+1, -1:p+1))
+            else
+                allocate (MPI_IO_DATA%var(i)%sf(0:m, 0:n, 0:p))
+            end if
             MPI_IO_DATA%var(i)%sf => null()
         end do