Ignore:
Timestamp:
Oct 30, 2018 2:51:23 PM (3 years ago)
Author:
kanani
Message:

Reintegrated fixes/changes from branch chemistry

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/flow_statistics.f90

    r3452 r3458  
    2525! -----------------
    2626! $Id$
     27! from chemistry branch r3443, basit:
     28! bug fixed in chemistry profiles
     29!
     30! 3452 2018-10-30 13:13:34Z schwenkel
    2731! Bugfix for profiles output
    2832!
     
    18431847       ENDIF
    18441848
    1845        IF ( air_chemistry .AND. max_pr_cs > 0 )  THEN
     1849       IF ( air_chemistry  .AND. max_pr_cs > 0 )  THEN
    18461850          IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    1847              CALL MPI_ALLREDUCE( sums_l(nzb,pr_palm+1,0), sums(nzb,pr_palm+1), &
    1848                                  nzt+2-nzb, MPI_REAL, MPI_SUM, comm2d, ierr )
     1851             DO  i = 1, max_pr_cs
     1852                CALL MPI_ALLREDUCE( sums_l(nzb,pr_palm+max_pr_user+i,0),       &
     1853                                    sums(nzb,pr_palm+max_pr_user+i),           &
     1854                                    nzt+2-nzb, MPI_REAL, MPI_SUM, comm2d, ierr )
     1855             ENDDO
    18491856       ENDIF
    18501857
Note: See TracChangeset for help on using the changeset viewer.