Commit c6afc45d authored by Andreas Marek's avatar Andreas Marek
Browse files

Remove unecessary data copy if MPI is not used

parent eca54746
......@@ -1599,7 +1599,7 @@
#endif
#else /* WITH_MPI */
d(noff+1:noff+1+nmid-1) = d(noff+1:noff+1+nmid-1)
! d(noff+1:noff+1+nmid-1) = d(noff+1:noff+1+nmid-1)
#endif /* WITH_MPI */
endif
......@@ -1627,7 +1627,7 @@
#endif
#else /* WITH_MPI */
d(noff+nmid+1:noff+nmid+1+nlen-nmid-1) = d(noff+nmid+1:noff+nmid+1+nlen-nmid-1)
! d(noff+nmid+1:noff+nmid+1+nlen-nmid-1) = d(noff+nmid+1:noff+nmid+1+nlen-nmid-1)
#endif /* WITH_MPI */
endif
if (nprocs == np_cols) then
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment