Changeset 4453 for palm/trunk/SOURCE/exchange_horiz_2d.f90
 Timestamp:
 Mar 11, 2020 8:10:13 AM (3 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/exchange_horiz_2d.f90
r4444 r4453 25 25 !  26 26 ! $Id$ 27 ! obsolete IF check about nesting removed 28 ! 29 ! 4444 20200305 15:59:50Z raasch 27 30 ! bugfix: cppdirectives for serial mode added 28 31 ! … … 67 70 USE pegrid 68 71 69 USE pmc_interface, &70 ONLY : nesting_mode71 72 72 #if ! defined( __parallel ) 73 73 USE control_parameters, & … … 150 150 ENDIF 151 151 152 153 152 #endif 154 153 155 154 ! 156 155 ! Neumannconditions at inflow/outflow/nested boundaries 157 IF ( nesting_mode /= 'vertical' ) THEN 158 IF ( bc_dirichlet_l .OR. bc_radiation_l ) THEN 159 DO i = nbgp, 1, 1 160 ar(:,nxli) = ar(:,nxl) 161 ENDDO 162 ENDIF 163 IF ( bc_dirichlet_r .OR. bc_radiation_r ) THEN 164 DO i = 1, nbgp 165 ar(:,nxr+i) = ar(:,nxr) 166 ENDDO 167 ENDIF 168 IF ( bc_dirichlet_s .OR. bc_radiation_s ) THEN 169 DO i = nbgp, 1, 1 170 ar(nysi,:) = ar(nys,:) 171 ENDDO 172 ENDIF 173 IF ( bc_dirichlet_n .OR. bc_radiation_n ) THEN 174 DO i = 1, nbgp 175 ar(nyn+i,:) = ar(nyn,:) 176 ENDDO 177 ENDIF 156 IF ( bc_dirichlet_l .OR. bc_radiation_l ) THEN 157 DO i = nbgp, 1, 1 158 ar(:,nxli) = ar(:,nxl) 159 ENDDO 160 ENDIF 161 IF ( bc_dirichlet_r .OR. bc_radiation_r ) THEN 162 DO i = 1, nbgp 163 ar(:,nxr+i) = ar(:,nxr) 164 ENDDO 165 ENDIF 166 IF ( bc_dirichlet_s .OR. bc_radiation_s ) THEN 167 DO i = nbgp, 1, 1 168 ar(nysi,:) = ar(nys,:) 169 ENDDO 170 ENDIF 171 IF ( bc_dirichlet_n .OR. bc_radiation_n ) THEN 172 DO i = 1, nbgp 173 ar(nyn+i,:) = ar(nyn,:) 174 ENDDO 178 175 ENDIF 179 176
Note: See TracChangeset
for help on using the changeset viewer.