Commit 45093e38 authored by Andreas Marek's avatar Andreas Marek
Browse files

Error in variable renaming

parent 034c5adc
......@@ -1642,7 +1642,7 @@
stop
endif
call timer%start("mpi_communication")
call mpi_allreduce(umcCPU, tmpCUDA, l_cols*n_cols, MPI_COMPLEX_PRECISION, MPI_SUM, mpi_comm_rows, mpierr)
call mpi_allreduce(umcCUDA, tmpCUDA, l_cols*n_cols, MPI_COMPLEX_PRECISION, MPI_SUM, mpi_comm_rows, mpierr)
call timer%stop("mpi_communication")
umcCUDA(1:l_cols,1:n_cols) = tmpCUDA(1:l_cols,1:n_cols)
......
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