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

bugfixes for r707 concerning multigrid method for non-cyclic boundary conditions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_grid.f90

    r710 r722  
    44! Current revisions:
    55! -----------------
    6 !
     6! Bugfix: bc_lr/ns_cyc replaced by bc_lr/ns, because variables are not yet set
     7!         here
    78!
    89! Former revisions:
     
    564565       ENDIF
    565566
    566        IF ( bc_lr_cyc )  THEN
     567       IF ( bc_lr == 'cyclic' )  THEN
    567568          IF ( ANY( nzb_local(:,-1) /= nzb_local(:,nx)   )  .OR. &
    568569               ANY( nzb_local(:,0)  /= nzb_local(:,nx+1) ) )  THEN
     
    572573          ENDIF
    573574       ENDIF
    574        IF ( bc_ns_cyc )  THEN
     575       IF ( bc_ns == 'cyclic' )  THEN
    575576          IF ( ANY( nzb_local(-1,:) /= nzb_local(ny,:)   )  .OR. &
    576577               ANY( nzb_local(0,:)  /= nzb_local(ny+1,:) ) )  THEN
Note: See TracChangeset for help on using the changeset viewer.