Commit 79fe8adb authored by Gregor Michalicek's avatar Gregor Michalicek
Browse files

Remove some debugging output from vgen/mpmom.F90

parent 4f5fd8af
......@@ -240,7 +240,6 @@ contains
end do ! k = 2, stars%ng3
! !$omp end parallel do
#ifdef CPP_MPI
print *, "mpi", mpi%irank, qlmp(0,0,:)
call MPI_REDUCE( qlmp, qlmp_out, size(qlmp), MPI_DOUBLE_COMPLEX, MPI_SUM, 0, mpi%mpi_comm, ierr )
qlmp_out = qlmp
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