Commit 3769672c authored by Daniel Wortmann's avatar Daniel Wortmann

Fixed MPI problem

parent 0f981f9d
...@@ -969,8 +969,8 @@ MODULE m_cdn_io ...@@ -969,8 +969,8 @@ MODULE m_cdn_io
CALL closeCDNPOT_HDF(fileID) CALL closeCDNPOT_HDF(fileID)
ENDIF ENDIF
#ifdef CPP_MPI #ifdef CPP_MPI
CALL mpi_bc(l_same,1,MPI_LOGICAL,0,ierr) CALL mpi_bcast(l_same,1,MPI_LOGICAL,0,ierr)
CALL mpi_bc(l_structure_by_shift,1,MPI_LOGICAL,0,ierr) CALL mpi_bcast(l_structure_by_shift,1,MPI_LOGICAL,0,ierr)
#endif #endif
IF (l_same.OR..NOT.l_structure_by_shift) RETURN ! nothing to do IF (l_same.OR..NOT.l_structure_by_shift) RETURN ! nothing to do
......
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