Fix I/O Bug (#339)

MFlowCode · Feb 16, 2024 · 9b64246 · 9b64246
1 parent 2d0b820
commit 9b64246
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/post_process/m_data_input.f90 b/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

diff --git a/src/simulation/m_start_up.fpp b/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