diff --git a/src/pre_process/m_data_output.fpp b/src/pre_process/m_data_output.fpp index a265fd7ed2..d8c62283ca 100644 --- 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 index 0e3418fba6..b44225b5e6 100644 --- 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)