From 6db7cc2977a7821428e0898eb00af7dd8bc6062e Mon Sep 17 00:00:00 2001 From: Jose Salcedo Perez Date: Thu, 12 Apr 2018 19:06:50 +0000 Subject: [PATCH] making sure broadcast is commented out. --- src/simulation.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/simulation.F90 b/src/simulation.F90 index 83b7ae3ced..c35da3cb35 100644 --- a/src/simulation.F90 +++ b/src/simulation.F90 @@ -514,7 +514,7 @@ contains !n = size(results, 3) !count_per_filter = size(results, 1) * size(results, 2) !call MPI_TYPE_CONTIGUOUS(count_per_filter, MPI_DOUBLE, & - ! result_block, mpi_err) + ! result_block, mpi_err) !call MPI_TYPE_COMMIT(result_block, mpi_err) !call MPI_BCAST(results, n, result_block, 0, mpi_intracomm, mpi_err) !call MPI_TYPE_FREE(result_block, mpi_err)