Fixed a bug where receptor arrays were not properly zeroed

src/mpi_mod.f90

@@ -104,7 +104,7 @@ module mpi_mod
 ! true if only using synchronous MPI send/recv:
 ! If setting this to .false., numwfmem must be set to 3
 !===============================================================================
-  logical :: lmp_sync=.false. 
+  logical :: lmp_sync=.true. 
 !===============================================================================
 
 ! mp_dbg_mode       Used for debugging MPI.
@@ -201,7 +201,9 @@ contains
     else if (lmp_sync.and.numwfmem.ne.2.and.lroot) then
       write(*,FMT='(80("#"))')
       write(*,*) '#### mpi_mod::mpif_init> WARNING: ', &
-           & 'numwfmem should be set to 2 for syncronous reading'
+           & 'numwfmem should be set to 2 for syncronous'
+      write(*,*) ' reading. Results will still be valid, but unneccesary '
+      write(*,*) 'amount of memory is being allocated.'
       write(*,FMT='(80("#"))')
 ! Force "syncronized" version if all processes will call getfields
     else if (.not.lmp_sync.and.mp_np.lt.read_grp_min) then

src/timemanager_mpi.f90

@@ -458,7 +458,9 @@ subroutine timemanager
                 call concoutput(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc)
               endif
             else
+! zero arrays on non-root processes
               gridunc(:,:,:,:,:,:,:)=0.
+              creceptor(:,:)=0.
             end if
           else 
             if (lroot) then
@@ -470,7 +472,9 @@ subroutine timemanager
                 call concoutput_surf(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc)
               end if
             else
+! zero arrays on non-root processes
               gridunc(:,:,:,:,:,:,:)=0.
+              creceptor(:,:)=0.
             endif
           endif
           if (mp_measure_time) call mpif_mtime('iotime',1)
@@ -787,6 +791,7 @@ subroutine timemanager
 
 ! eso :TODO: this not implemented yet (transfer particles to PID 0 or rewrite)
 ! the tools to do this are already in mpi_mod.f90
+! :CUR: check this
   if (lroot) then 
     do j=1,numpart
       if (linit_cond.ge.1) call initial_cond_calc(itime,j)