- Timestamp:
- Mar 23, 2018 3:13:00 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r2918 r2927 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix, setting boundary conditions for topography index array. 28 ! 29 ! 2918 2018-03-21 15:52:14Z gronemeier 27 30 ! Moved init_mixing_length to turbulence_closure_mod.f90 28 31 ! … … 655 658 IF ( .NOT. bc_ns_cyc ) THEN 656 659 IF ( nys == 0 ) THEN 657 nzb_local(-1,:) = nzb_local(0,:) 660 DO i = 1, nbgp 661 nzb_local(nys-i,:) = nzb_local(nys,:) 662 ENDDO 658 663 ELSEIF ( nyn == ny ) THEN 659 nzb_local(ny+1,:) = nzb_local(ny,:) 664 DO i = 1, nbgp 665 nzb_local(ny+i,:) = nzb_local(ny,:) 666 ENDDO 660 667 ENDIF 661 668 ENDIF … … 663 670 IF ( .NOT. bc_lr_cyc ) THEN 664 671 IF ( nxl == 0 ) THEN 665 nzb_local(:,-1) = nzb_local(:,0)666 nzb_local(:,-2) = nzb_local(:,0)667 nzb_local(:,-3) = nzb_local(:,0)672 DO i = 1, nbgp 673 nzb_local(:,nxl-i) = nzb_local(:,nxl) 674 ENDDO 668 675 ELSEIF ( nxr == nx ) THEN 669 nzb_local(:,nx+1) = nzb_local(:,nx)670 nzb_local(:,nx+2) = nzb_local(:,nx)671 nzb_local(:,nx+3) = nzb_local(:,nx)676 DO i = 1, nbgp 677 nzb_local(:,nx+i) = nzb_local(:,nx) 678 ENDDO 672 679 ENDIF 673 680 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.