Changeset 3458 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Oct 30, 2018 2:51:23 PM (5 years ago)

Author:

kanani

Message:

Reintegrated fixes/changes from branch chemistry

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (2 diffs)

palm/trunk/SOURCE/flow_statistics.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! from chemistry branch r3443, basit:
+! bug fixed in chemistry profiles
+! 
+! 3452 2018-10-30 13:13:34Z schwenkel
 ! Bugfix for profiles output
 ! 
@@ -1843 +1847 @@
        ENDIF
 
-       IF ( air_chemistry .AND. max_pr_cs > 0 )  THEN
+       IF ( air_chemistry  .AND.  max_pr_cs > 0 )  THEN
           IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
-             CALL MPI_ALLREDUCE( sums_l(nzb,pr_palm+1,0), sums(nzb,pr_palm+1), &
-                                 nzt+2-nzb, MPI_REAL, MPI_SUM, comm2d, ierr )
+             DO  i = 1, max_pr_cs
+                CALL MPI_ALLREDUCE( sums_l(nzb,pr_palm+max_pr_user+i,0),       &
+                                    sums(nzb,pr_palm+max_pr_user+i),           &
+                                    nzt+2-nzb, MPI_REAL, MPI_SUM, comm2d, ierr )
+             ENDDO
        ENDIF