Changeset 707 for palm/trunk/SOURCE/time_integration.f90
- Timestamp:
- Mar 29, 2011 11:39:40 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/time_integration.f90
r668 r707 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! Calls of exchange_horiz are modified. 7 ! Adaption to slooping surface. 6 ! bc_lr/ns replaced by bc_lr/ns_cyc, 7 ! calls of exchange_horiz are modified, 8 ! adaption to slooping surface, 8 9 ! 9 10 ! Former revisions: … … 234 235 !-- when a sloping surface is used 235 236 IF ( sloping_surface ) THEN 236 IF ( nxl == 0 ) pt(:,:,nxlg:nxl-1) = pt(:,:,nxlg:nxl-1) - pt_slope_offset 237 IF ( nxr == nx ) pt(:,:,nxr+1:nxrg) = pt(:,:,nxr+1:nxrg) + pt_slope_offset 237 IF ( nxl == 0 ) pt(:,:,nxlg:nxl-1) = pt(:,:,nxlg:nxl-1) - & 238 pt_slope_offset 239 IF ( nxr == nx ) pt(:,:,nxr+1:nxrg) = pt(:,:,nxr+1:nxrg) + & 240 pt_slope_offset 238 241 ENDIF 239 242 … … 255 258 CALL disturb_field( nzb_u_inner, tend, u ) 256 259 CALL disturb_field( nzb_v_inner, tend, v ) 257 ELSEIF ( bc_lr /= 'cyclic' .OR. bc_ns /= 'cyclic') THEN260 ELSEIF ( .NOT. bc_lr_cyc .OR. .NOT. bc_ns_cyc ) THEN 258 261 ! 259 262 !-- Runs with a non-cyclic lateral wall need perturbations
Note: See TracChangeset
for help on using the changeset viewer.