mpi bug fix

Author: anshgupta1234

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)

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)