Changes in src/unc_mod.f90 [4c64400:6ecb30a] in flexpart.git

File:

• src/unc_mod.f90 (modified) (2 diffs)

src/unc_mod.f90

@@ -19 +19 @@
 ! along with FLEXPART.  If not, see <http://www.gnu.org/licenses/>.   *
 !**********************************************************************
+!                                                                     *
+! DJM - 2017-05-09 - added #ifdef USE_MPIINPLACE cpp directive to     *
+! enable declaration of a gridunc0 array if required by MPI code in   *
+! mpi_mod.f90                                                         *
+!                                                                     *
+!**********************************************************************
 
 module unc_mod
@@ -27 +33 @@
 
   real,allocatable, dimension (:,:,:,:,:,:,:) :: gridunc
+#ifdef USE_MPIINPLACE
+#else
+  ! If MPI_IN_PLACE option is not used in mpi_mod.f90::mpif_tm_reduce_grid(),
+  ! then an aux array is needed for parallel grid reduction
+  real,allocatable, dimension (:,:,:,:,:,:,:) :: gridunc0
+#endif
   real,allocatable, dimension (:,:,:,:,:,:,:) :: griduncn
   real(dep_prec),allocatable, dimension (:,:,:,:,:,:) :: drygridunc