Changeset 0f7835d in flexpart.git for src/boundcond_domainfill_mpi.f90

Timestamp:

Aug 3, 2016, 3:02:42 PM (8 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

861805a, 93786a1

Parents:

f28aa0a

Message:

Changed a variable in domain-filling option (MPI). Deleted an unused function from mpi_mod.f90

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