Commit eaac316a authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix in mpi_dist_forcetheorem.F90

parent c3b5a267
......@@ -26,6 +26,7 @@ CONTAINS
ENDIF
CALL MPI_BCAST(t,1,MPI_INTEGER,0,mpi%mpi_comm,ierr)
IF (mpi%irank.NE.0) THEN
DEALLOCATE(forcetheo)
SELECT CASE (t)
CASE (1)
ALLOCATE(t_forcetheo::forcetheo)
......
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