Skip to content

Commit

Permalink
maybe some more MPI fixes?
Browse files Browse the repository at this point in the history
  • Loading branch information
@anshgupta1234
anshgupta1234 committed Nov 8, 2024
1 parent bac657b commit ac88cc5
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 7 deletions.
4 changes: 2 additions & 2 deletions src/pre_process/m_data_output.fpp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -751,7 +751,7 @@ contains

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, &
call MPI_FILE_WRITE_ALL(ifile, MPI_IO_levelset_DATA%var%sf, data_size * num_ibs, &
MPI_DOUBLE_PRECISION, status, ierr)

call MPI_FILE_CLOSE(ifile, ierr)
Expand All @@ -771,7 +771,7 @@ contains

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, &
call MPI_FILE_WRITE_ALL(ifile, MPI_IO_levelsetnorm_DATA%var%sf, data_size * num_ibs * 3, &
MPI_DOUBLE_PRECISION, status, ierr)

call MPI_FILE_CLOSE(ifile, ierr)
Expand Down
10 changes: 5 additions & 5 deletions src/simulation/m_start_up.fpp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -685,7 +685,7 @@ contains

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, &
call MPI_FILE_READ(ifile, MPI_IO_levelset_DATA%var%sf, data_size * num_ibs, &
MPI_DOUBLE_PRECISION, status, ierr)

else
Expand All @@ -703,9 +703,9 @@ contains

disp = 0

call MPI_FILE_SET_VIEW(ifile, disp, MPI_DOUBLE_PRECISION, MPI_IO_levelset_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_READ(ifile, MPI_IO_levelsetnorm_DATA%var%sf, data_size, &
call MPI_FILE_READ(ifile, MPI_IO_levelsetnorm_DATA%var%sf, data_size * num_ibs * 3, &
MPI_DOUBLE_PRECISION, status, ierr)

else
Expand Down Expand Up @@ -853,9 +853,9 @@ contains

disp = 0

call MPI_FILE_SET_VIEW(ifile, disp, MPI_DOUBLE_PRECISION, MPI_IO_levelset_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_READ(ifile, MPI_IO_levelsetnorm_DATA%var%sf, data_size, &
call MPI_FILE_READ(ifile, MPI_IO_levelsetnorm_DATA%var%sf, data_size * num_ibs * 3, &
MPI_DOUBLE_PRECISION, status, ierr)

else
Expand Down

0 comments on commit ac88cc5

Please sign in to comment.