mpi bug fix

MFlowCode · Nov 7, 2024 · bac657b · bac657b
1 parent 10628d3
commit bac657b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/src/pre_process/m_data_output.fpp b/src/pre_process/m_data_output.fpp
@@ -749,7 +749,7 @@ contains
             ! Initial displacement to skip at beginning of file
             disp = 0
 
-            call MPI_FILE_SET_VIEW(ifile, disp, MPI_INTEGER, MPI_IO_levelset_DATA%view, &
+            call MPI_FILE_SET_VIEW(ifile, disp, MPI_DOUBLE_PRECISION, MPI_IO_levelset_DATA%view, &
                                    'native', mpi_info_int, ierr)
             call MPI_FILE_WRITE_ALL(ifile, MPI_IO_levelset_DATA%var%sf, data_size, &
                                     MPI_DOUBLE_PRECISION, status, ierr)
@@ -769,7 +769,7 @@ contains
             ! Initial displacement to skip at beginning of file
             disp = 0
 
-            call MPI_FILE_SET_VIEW(ifile, disp, MPI_INTEGER, MPI_IO_levelsetnorm_DATA%view, &
+            call MPI_FILE_SET_VIEW(ifile, disp, MPI_DOUBLE_PRECISION, MPI_IO_levelsetnorm_DATA%view, &
                                    'native', mpi_info_int, ierr)
             call MPI_FILE_WRITE_ALL(ifile, MPI_IO_levelsetnorm_DATA%var%sf, data_size, &
                                     MPI_DOUBLE_PRECISION, status, ierr)

diff --git a/src/simulation/m_start_up.fpp b/src/simulation/m_start_up.fpp
@@ -683,7 +683,7 @@ contains
 
                         disp = 0
 
-                        call MPI_FILE_SET_VIEW(ifile, disp, MPI_INTEGER, MPI_IO_levelset_DATA%view, &
+                        call MPI_FILE_SET_VIEW(ifile, disp, MPI_DOUBLE_PRECISION, MPI_IO_levelset_DATA%view, &
                                                'native', mpi_info_int, ierr)
                         call MPI_FILE_READ(ifile, MPI_IO_levelset_DATA%var%sf, data_size, &
                                            MPI_DOUBLE_PRECISION, status, ierr)
@@ -703,7 +703,7 @@ contains
 
                         disp = 0
 
-                        call MPI_FILE_SET_VIEW(ifile, disp, MPI_INTEGER, MPI_IO_levelset_DATA%view, &
+                        call MPI_FILE_SET_VIEW(ifile, disp, MPI_DOUBLE_PRECISION, MPI_IO_levelset_DATA%view, &
                                                'native', mpi_info_int, ierr)
                         call MPI_FILE_READ(ifile, MPI_IO_levelsetnorm_DATA%var%sf, data_size, &
                                            MPI_DOUBLE_PRECISION, status, ierr)
@@ -833,7 +833,7 @@ contains
 
                         disp = 0
 
-                        call MPI_FILE_SET_VIEW(ifile, disp, MPI_INTEGER, MPI_IO_levelset_DATA%view, &
+                        call MPI_FILE_SET_VIEW(ifile, disp, MPI_DOUBLE_PRECISION, MPI_IO_levelset_DATA%view, &
                                                'native', mpi_info_int, ierr)
                         call MPI_FILE_READ(ifile, MPI_IO_levelset_DATA%var%sf, data_size, &
                                            MPI_DOUBLE_PRECISION, status, ierr)
@@ -853,7 +853,7 @@ contains
 
                         disp = 0
 
-                        call MPI_FILE_SET_VIEW(ifile, disp, MPI_INTEGER, MPI_IO_levelset_DATA%view, &
+                        call MPI_FILE_SET_VIEW(ifile, disp, MPI_DOUBLE_PRECISION, MPI_IO_levelset_DATA%view, &
                                                'native', mpi_info_int, ierr)
                         call MPI_FILE_READ(ifile, MPI_IO_levelsetnorm_DATA%var%sf, data_size, &
                                            MPI_DOUBLE_PRECISION, status, ierr)