Fix for issue #151 (improper use of MPI_IN_PLACE). Also changed default...

Fix for issue #151 (improper use of MPI_IN_PLACE). Also changed default RELEASES file to use SPECIES_001.

options/COMMAND

 &COMMAND
  LDIRECT=          1,
- IBDATE=   20070911,
- IBTIME=     050000,
- IEDATE=   20070912,
- IETIME=     050000,
+ IBDATE=   20140907,
+ IBTIME=     060000,
+ IEDATE=   20140907,
+ IETIME=     120000,
  LOUTSTEP=       3600,
  LOUTAVER=       3600,
  LOUTSAMPLE=        900,

options/RELEASES

 &RELEASES_CTRL
  NSPEC=          1,
- SPECNUM_REL=         108,
+ SPECNUM_REL=         1,
  /
 &RELEASE
- IDATE1=   20070911,
+ IDATE1=   20140907,
  ITIME1=     070000,
- IDATE2=   20070911,
- ITIME2=     080000,
+ IDATE2=   20140907,
+ ITIME2=     070000,
  LON1=  -75.255    ,
  LON2=  -75.255    ,
  LAT1=  38.005    ,
  LAT2=  38.005    ,
- ! Z1=  1500.000000    ,
- ! Z2=  2500.000000    ,
  Z1=  2500.000000    ,
  Z2=  2500.000000    ,
  ZKIND=     1,
- MASS=  2.0000E8    ,
- PARTS=   10000000
- COMMENT="TEST1                          ",
+ MASS=  1.0000E8    ,
+ PARTS=   100000
+ COMMENT="TEST1",
  /
-! &RELEASE
-! IDATE1=   20100911,
-! ITIME1=     070000,
-! IDATE2=   20100911,
-! ITIME2=     080000,
-! LON1=  -79.250   ,
-! LON2=  -79.250   ,
-! LAT1=  38.100    ,
-! LAT2=  38.100    ,
-! Z1=  1500.000000    ,
-! Z2=  2500.000000    ,
-! ZKIND=     1,
-! MASS=  2.0000E8    ,
-! PARTS=   2000000
-! COMMENT="TEST2                          ",
-!  /
-
-
-
-
-
-

src/FLEXPART_MPI.f90

@@ -453,9 +453,9 @@ program flexpart
          & mp_comm_used, mp_ierr)
   else
     if (mp_partgroup_pid.ge.0) then ! Skip for readwind process 
-      call MPI_Reduce(tot_blc_count, tot_blc_count, 1, MPI_INTEGER8, MPI_SUM, id_root, &
+      call MPI_Reduce(tot_blc_count, 0, 1, MPI_INTEGER8, MPI_SUM, id_root, &
            & mp_comm_used, mp_ierr)
-      call MPI_Reduce(tot_inc_count, tot_inc_count, 1, MPI_INTEGER8, MPI_SUM, id_root, &
+      call MPI_Reduce(tot_inc_count, 0, 1, MPI_INTEGER8, MPI_SUM, id_root, &
            & mp_comm_used, mp_ierr)
     end if
   end if

src/mpi_mod.f90

@@ -2022,7 +2022,7 @@ contains
            & mp_comm_used, mp_ierr)
       if (mp_ierr /= 0) goto 600
     else
-      call MPI_Reduce(gridunc, gridunc, grid_size3d, mp_sp, MPI_SUM, id_root, &
+      call MPI_Reduce(gridunc, 0, grid_size3d, mp_sp, MPI_SUM, id_root, &
            & mp_comm_used, mp_ierr)
     end if
 
@@ -2044,7 +2044,7 @@ contains
            & mp_comm_used,mp_ierr)
       if (mp_ierr /= 0) goto 600
     else
-      call MPI_Reduce(creceptor,creceptor,rcpt_size,mp_sp,MPI_SUM,id_root, &
+      call MPI_Reduce(creceptor,0,rcpt_size,mp_sp,MPI_SUM,id_root, &
            & mp_comm_used,mp_ierr)
     end if
 
@@ -2098,7 +2098,7 @@ contains
            & mp_comm_used, mp_ierr)
       if (mp_ierr /= 0) goto 600
     else
-      call MPI_Reduce(griduncn, griduncn, grid_size3d, mp_sp, MPI_SUM, id_root, &
+      call MPI_Reduce(griduncn, 0, grid_size3d, mp_sp, MPI_SUM, id_root, &
            & mp_comm_used, mp_ierr)
     end if