- Timestamp:
- Mar 5, 2018 2:44:20 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_interface_mod.f90
r2841 r2853 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix in init log-law correction. 28 ! 29 ! 2841 2018-02-27 15:02:57Z knoop 27 30 ! Bugfix: wrong placement of include 'mpif.h' corrected 28 31 ! … … 1578 1581 IMPLICIT NONE 1579 1582 1580 INTEGER(iwp) :: direction !< Wall normal index: 1=k, 2=j, 3=i. 1583 INTEGER(iwp) :: direction !< Wall normal index: 1=k, 2=j, 3=i. 1584 INTEGER(iwp) :: dum !< dummy value for reduce operation 1581 1585 INTEGER(iwp) :: i !< 1582 1586 INTEGER(iwp) :: icorr !< 1583 INTEGER(iwp) :: inc !< Wall outward-normal index increment -1 1587 INTEGER(iwp) :: ierr !< MPI status 1588 INTEGER(iwp) :: inc !< Wall outward-normal index increment -1 1584 1589 !< or 1, for direction=1, inc=1 always 1585 1590 INTEGER(iwp) :: iw !< … … 1716 1721 nzt_topo_nestbc_n = nzt_topo_nestbc_n + 1 1717 1722 ENDIF 1723 1724 #if defined( __parallel ) 1725 ! 1726 !-- Determine global topography-top index along child boundary. 1727 dum = nzb 1728 CALL MPI_ALLREDUCE( nzt_topo_nestbc_l, dum, 1, MPI_INTEGER, & 1729 MPI_MAX, comm1dy, ierr ) 1730 nzt_topo_nestbc_l = dum 1731 1732 dum = nzb 1733 CALL MPI_ALLREDUCE( nzt_topo_nestbc_r, dum, 1, MPI_INTEGER, & 1734 MPI_MAX, comm1dy, ierr ) 1735 nzt_topo_nestbc_r = dum 1736 1737 dum = nzb 1738 CALL MPI_ALLREDUCE( nzt_topo_nestbc_n, dum, 1, MPI_INTEGER, & 1739 MPI_MAX, comm1dx, ierr ) 1740 nzt_topo_nestbc_n = dum 1741 1742 dum = nzb 1743 CALL MPI_ALLREDUCE( nzt_topo_nestbc_s, dum, 1, MPI_INTEGER, & 1744 MPI_MAX, comm1dx, ierr ) 1745 nzt_topo_nestbc_s = dum 1746 #endif 1718 1747 ! 1719 1748 !-- Then determine the maximum number of near-wall nodes per wall point based
Note: See TracChangeset
for help on using the changeset viewer.