Changeset 722 for palm/trunk/SOURCE/init_grid.f90
- Timestamp:
- Apr 11, 2011 6:21:09 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r710 r722 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! Bugfix: bc_lr/ns_cyc replaced by bc_lr/ns, because variables are not yet set 7 ! here 7 8 ! 8 9 ! Former revisions: … … 564 565 ENDIF 565 566 566 IF ( bc_lr _cyc) THEN567 IF ( bc_lr == 'cyclic' ) THEN 567 568 IF ( ANY( nzb_local(:,-1) /= nzb_local(:,nx) ) .OR. & 568 569 ANY( nzb_local(:,0) /= nzb_local(:,nx+1) ) ) THEN … … 572 573 ENDIF 573 574 ENDIF 574 IF ( bc_ns _cyc) THEN575 IF ( bc_ns == 'cyclic' ) THEN 575 576 IF ( ANY( nzb_local(-1,:) /= nzb_local(ny,:) ) .OR. & 576 577 ANY( nzb_local(0,:) /= nzb_local(ny+1,:) ) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.