Commit 7548d16e authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfixes for check_para.F90

parent 216b53c3
......@@ -13,7 +13,7 @@ CONTAINS
omp_para_loc = check_omp_para()
call MPI_Reduce(omp_para_loc, omp_root_and, 1,&
MPI_LOGICAL, MPI_LAND, 0, MPI_COMM_WORLD)
MPI_LOGICAL, MPI_LAND, 0, MPI_COMM_WORLD,ierr)
if(irank == 0 .and. omp_root_and) then
write (*,*) "Parallelization OK"
......
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