Changeset b5127f9 in flexpart.git for src/timemanager_mpi.f90

Timestamp:

Aug 4, 2017, 2:18:03 PM (7 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:

61e07ba, 1d072c0

Parents:

5184a7c

Message:

Fixed an inconsistency (serial vs parallel) with domain-filling option

File:

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

src/timemanager_mpi.f90

@@ -773 +773 @@
               endif
             else
-              xmassfract=1.
+              xmassfract=1.0
             endif
           end do
@@ -781 +781 @@
           !         xmass1(j,:)), ' of ', sum(xmass(npoint(j),:)),')'
             itra1(j)=-999999999
+            if (verbosity.gt.0) then
+              print*,'terminated particle ',j,' for small mass'
+            endif
           endif