Changeset 3458 for palm/trunk/SOURCE/flow_statistics.f90
- Timestamp:
- Oct 30, 2018 2:51:23 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/flow_statistics.f90
r3452 r3458 25 25 ! ----------------- 26 26 ! $Id$ 27 ! from chemistry branch r3443, basit: 28 ! bug fixed in chemistry profiles 29 ! 30 ! 3452 2018-10-30 13:13:34Z schwenkel 27 31 ! Bugfix for profiles output 28 32 ! … … 1843 1847 ENDIF 1844 1848 1845 IF ( air_chemistry .AND.max_pr_cs > 0 ) THEN1849 IF ( air_chemistry .AND. max_pr_cs > 0 ) THEN 1846 1850 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 1849 1856 ENDIF 1850 1857
Note: See TracChangeset
for help on using the changeset viewer.