Changeset 707 for palm/trunk/SOURCE/exchange_horiz_2d.f90
- Timestamp:
- Mar 29, 2011 11:39:40 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/exchange_horiz_2d.f90
r703 r707 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bc_lr/ns replaced by bc_lr/ns_cyc 6 7 ! 7 8 ! Former revisions: … … 104 105 ! 105 106 !-- Lateral boundary conditions in the non-parallel case 106 IF ( bc_lr == 'cyclic') THEN107 ar(:,nxlg:nxl-1) = ar(:,nxr-nbgp+1:nxr) 108 ar(:,nxr+1:nxrg) = ar(:,nxl:nxl+nbgp-1) 109 ENDIF 110 111 IF ( bc_ns == 'cyclic') THEN107 IF ( bc_lr_cyc ) THEN 108 ar(:,nxlg:nxl-1) = ar(:,nxr-nbgp+1:nxr) 109 ar(:,nxr+1:nxrg) = ar(:,nxl:nxl+nbgp-1) 110 ENDIF 111 112 IF ( bc_ns_cyc ) THEN 112 113 ar(nysg:nys-1,:) = ar(nyn-nbgp+1:nyn,:) 113 114 ar(nyn+1:nyng,:) = ar(nys:nys+nbgp-1,:) … … 222 223 ! 223 224 !-- Lateral boundary conditions in the non-parallel case 224 IF ( bc_lr == 'cyclic') THEN225 ar(:,nxlg:nxl-1) = ar(:,nxr-nbgp+1:nxr) 226 ar(:,nxr+1:nxrg) = ar(:,nxl:nxl+nbgp-1) 227 ENDIF 228 229 IF ( bc_ns == 'cyclic') THEN225 IF ( bc_lr_cyc ) THEN 226 ar(:,nxlg:nxl-1) = ar(:,nxr-nbgp+1:nxr) 227 ar(:,nxr+1:nxrg) = ar(:,nxl:nxl+nbgp-1) 228 ENDIF 229 230 IF ( bc_ns_cyc ) THEN 230 231 ar(nysg:nys-1,:) = ar(nyn+1-nbgp:nyn,:) 231 232 ar(nyn+1:nyng,:) = ar(nys:nys-1+nbgp,:)
Note: See TracChangeset
for help on using the changeset viewer.