Changeset 1762 for palm/trunk/SOURCE/exchange_horiz_2d.f90
 Timestamp:
 Feb 25, 2016 12:31:13 PM (6 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/exchange_horiz_2d.f90
r1683 r1762 19 19 ! Current revisions: 20 20 !  21 ! 21 ! Introduction of nested domain feature 22 22 ! 23 23 ! Former revisions: … … 62 62 USE control_parameters, & 63 63 ONLY : bc_lr_cyc, bc_ns_cyc, inflow_l, inflow_n, inflow_r, inflow_s, & 64 nest_bound_l, nest_bound_n, nest_bound_r, nest_bound_s, & 64 65 outflow_l, outflow_n, outflow_r, outflow_s 65 66 … … 153 154 154 155 ! 155 ! Neumannconditions at inflow/outflow in case of noncyclic boundary 156 ! conditions 157 IF ( inflow_l .OR. outflow_l ) THEN 158 DO i=nbgp, 1, 1 156 ! Neumannconditions at inflow/outflow/nested boundaries 157 IF ( inflow_l .OR. outflow_l .OR. nest_bound_l ) THEN 158 DO i = nbgp, 1, 1 159 159 ar(:,nxli) = ar(:,nxl) 160 END 161 END 162 IF ( inflow_r .OR. outflow_r ) THEN163 DO i=1, nbgp160 ENDDO 161 ENDIF 162 IF ( inflow_r .OR. outflow_r .OR. nest_bound_r ) THEN 163 DO i = 1, nbgp 164 164 ar(:,nxr+i) = ar(:,nxr) 165 END 166 END 167 IF ( inflow_s .OR. outflow_s ) THEN168 DO i=nbgp, 1, 1165 ENDDO 166 ENDIF 167 IF ( inflow_s .OR. outflow_s .OR. nest_bound_s ) THEN 168 DO i = nbgp, 1, 1 169 169 ar(nysi,:) = ar(nys,:) 170 END 171 END 172 IF ( inflow_n .OR. outflow_n ) THEN173 DO i=1, nbgp170 ENDDO 171 ENDIF 172 IF ( inflow_n .OR. outflow_n .OR. nest_bound_n ) THEN 173 DO i = 1, nbgp 174 174 ar(nyn+i,:) = ar(nyn,:) 175 END DO 176 END IF 175 ENDDO 176 ENDIF 177 177 178 CALL cpu_log( log_point_s(13), 'exchange_horiz_2d', 'stop' ) 178 179 … … 193 194 194 195 USE control_parameters, & 195 ONLY: bc_lr_cyc, bc_ns_cyc 196 ONLY: bc_lr_cyc, bc_ns_cyc, nest_bound_l, nest_bound_n, nest_bound_r, & 197 nest_bound_s 196 198 197 199 USE cpulog, & … … 207 209 IMPLICIT NONE 208 210 211 INTEGER(iwp) :: i 209 212 INTEGER(iwp) :: ar(nysg:nyng,nxlg:nxrg) !< 210 213 … … 277 280 278 281 #endif 282 ! 283 ! Neumannconditions at inflow/outflow/nested boundaries 284 IF ( nest_bound_l ) THEN 285 DO i = nbgp, 1, 1 286 ar(:,nxli) = ar(:,nxl) 287 ENDDO 288 ENDIF 289 IF ( nest_bound_r ) THEN 290 DO i = 1, nbgp 291 ar(:,nxr+i) = ar(:,nxr) 292 ENDDO 293 ENDIF 294 IF ( nest_bound_s ) THEN 295 DO i = nbgp, 1, 1 296 ar(nysi,:) = ar(nys,:) 297 ENDDO 298 ENDIF 299 IF ( nest_bound_n ) THEN 300 DO i = 1, nbgp 301 ar(nyn+i,:) = ar(nyn,:) 302 ENDDO 303 ENDIF 304 279 305 CALL cpu_log( log_point_s(13), 'exchange_horiz_2d', 'stop' ) 280 306
Note: See TracChangeset
for help on using the changeset viewer.