stop with norm problem solved in main_mad3wave.f

octavioroncero · Jun 29, 2021 · 61ed7e0 · 61ed7e0
1 parent 3b35cca
commit 61ed7e0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/SRC/main_madwave3.f b/SRC/main_madwave3.f
@@ -396,7 +396,8 @@ subroutine check(time,xnorm1tot,it,iloop)
 
  call MPI_REDUCE(xnorm1,xnorm1tot,1,MPI_REAL8,MPI_SUM
  & ,0,MPI_COMM_WORLD,ierr)
- if(idproc.eq.0)then
+ call MPI_BCAST(xnorm1tot,1,MPI_REAL8,0,MPI_COMM_WORLD,ierr)
+! if(idproc.eq.0)then
  write(6,*)it,xnorm1tot
  endif