Ignore:
Timestamp:
Jun 29, 2020 8:49:58 AM (12 months ago)
Author:
suehring
Message:

mesoscale nesting: omit explicit pressure forcing via geostrophic wind components; chemistry: enable profile output of vertical fluxes; urban-surface: bugfix in initialization in case of cyclic_fill

File:
1 edited

Legend:

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

    r4551 r4581  
    2525! -----------------
    2626! $Id$
     27! Formatting adjustment
     28!
     29! 4551 2020-06-02 10:22:25Z suehring
    2730! Bugfix in summation for statistical regions
    2831!
     
    18831886       IF ( air_chemistry  .AND.  max_pr_cs > 0 )  THEN
    18841887          IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    1885              DO  i = 1, max_pr_cs
    1886                 CALL MPI_ALLREDUCE( sums_l(nzb,pr_palm+max_pr_user+i,0),       &
    1887                                     sums(nzb,pr_palm+max_pr_user+i),           &
    1888                                     nzt+2-nzb, MPI_REAL, MPI_SUM, comm2d, ierr )
    1889              ENDDO
     1888          DO  i = 1, max_pr_cs
     1889             CALL MPI_ALLREDUCE( sums_l(nzb,pr_palm+max_pr_user+i,0),          &
     1890                                 sums(nzb,pr_palm+max_pr_user+i),              &
     1891                                 nzt+2-nzb, MPI_REAL, MPI_SUM, comm2d, ierr )
     1892          ENDDO
    18901893       ENDIF
    18911894
    18921895       IF ( salsa  .AND.  max_pr_salsa > 0 )  THEN
    18931896          IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    1894              DO  i = 1, max_pr_salsa
    1895                 CALL MPI_ALLREDUCE( sums_l(nzb,pr_palm+max_pr_user+max_pr_cs+i,0),                 &
    1896                                     sums(nzb,pr_palm+max_pr_user+max_pr_user+i),                   &
    1897                                     nzt+2-nzb, MPI_REAL, MPI_SUM, comm2d, ierr )
    1898              ENDDO
     1897          DO  i = 1, max_pr_salsa
     1898             CALL MPI_ALLREDUCE( sums_l(nzb,pr_palm+max_pr_user+max_pr_cs+i,0),                    &
     1899                                 sums(nzb,pr_palm+max_pr_user+max_pr_user+i),                      &
     1900                                 nzt+2-nzb, MPI_REAL, MPI_SUM, comm2d, ierr )
     1901          ENDDO
    18991902       ENDIF
    19001903
Note: See TracChangeset for help on using the changeset viewer.