Ignore:
Timestamp:
Apr 11, 2011 6:42:09 AM (10 years ago)
Author:
raasch
Message:

bugfixes of r722 merged to release 3.8

Location:
palm/tags/release-3.8
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/tags/release-3.8

  • palm/tags/release-3.8/SOURCE

  • palm/tags/release-3.8/SOURCE/init_grid.f90

    r710 r724  
    99! -----------------
    1010! $Id$
     11!
     12! 722 2011-04-11 06:21:09Z raasch
     13! Bugfix: bc_lr/ns_cyc replaced by bc_lr/ns, because variables are not yet set
     14!         here
    1115!
    1216! 709 2011-03-30 09:31:40Z raasch
     
    564568       ENDIF
    565569
    566        IF ( bc_lr_cyc )  THEN
     570       IF ( bc_lr == 'cyclic' )  THEN
    567571          IF ( ANY( nzb_local(:,-1) /= nzb_local(:,nx)   )  .OR. &
    568572               ANY( nzb_local(:,0)  /= nzb_local(:,nx+1) ) )  THEN
     
    572576          ENDIF
    573577       ENDIF
    574        IF ( bc_ns_cyc )  THEN
     578       IF ( bc_ns == 'cyclic' )  THEN
    575579          IF ( ANY( nzb_local(-1,:) /= nzb_local(ny,:)   )  .OR. &
    576580               ANY( nzb_local(0,:)  /= nzb_local(ny+1,:) ) )  THEN
Note: See TracChangeset for help on using the changeset viewer.