Fix I/O Bug (#339)

Author: wilfonba

src/post_process/m_data_input.f90

@@ -392,7 +392,7 @@ subroutine s_read_parallel_data_files(t_step) ! ---------------------------
                                                MPI_DOUBLE_PRECISION, status, ierr)
                     end do
                 else
-                    do i = 1, adv_idx%end
+                    do i = 1, sys_size
                         var_MOK = int(i, MPI_OFFSET_KIND)
 
                         ! Initial displacement to skip at beginning of file

src/simulation/m_start_up.fpp

@@ -690,7 +690,7 @@ contains
                         end do
                     end if
                 else
-                    do i = 1, adv_idx%end
+                    do i = 1, sys_size
                         var_MOK = int(i, MPI_OFFSET_KIND)
 
                         ! Initial displacement to skip at beginning of file