Changes in src/boundcond_domainfill_mpi.f90 [7999df47:0f7835d] in flexpart.git

File:

• src/boundcond_domainfill_mpi.f90 (modified) (4 diffs)

src/boundcond_domainfill_mpi.f90

@@ -232 +232 @@
 
         do m=1,mmass
-          do ipart=minpart,maxpart
+          do ipart=minpart,maxpart_mpi
 
   ! If a vacant storage space is found, attribute everything to this array element
@@ -331 +331 @@
             endif
           end do
-          if (ipart.gt.maxpart) &
+          if (ipart.gt.maxpart_mpi) &
                stop 'boundcond_domainfill.f: too many particles required'
 73        minpart=ipart+1
@@ -464 +464 @@
 
         do m=1,mmass
-          do ipart=minpart,maxpart
+          do ipart=minpart,maxpart_mpi
 
   ! If a vacant storage space is found, attribute everything to this array element
@@ -562 +562 @@
             endif
           end do
-          if (ipart.gt.maxpart) &
+          if (ipart.gt.maxpart_mpi) &
                stop 'boundcond_domainfill.f: too many particles required'
 173       minpart=ipart+1