Changeset 724 for palm/tags/release-3.8/SOURCE/init_grid.f90

Timestamp:

Apr 11, 2011 6:42:09 AM (13 years ago)

Author:

raasch

Message:

bugfixes of r722 merged to release 3.8

Location:

palm/tags/release-3.8

Files:

• . (modified) (1 prop)
• SOURCE (modified) (1 prop)
• SOURCE/init_grid.f90 (modified) (3 diffs)

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

@@ -9 +9 @@
 ! -----------------
 ! $Id$
+!
+! 722 2011-04-11 06:21:09Z raasch
+! Bugfix: bc_lr/ns_cyc replaced by bc_lr/ns, because variables are not yet set
+!         here
 !
 ! 709 2011-03-30 09:31:40Z raasch
@@ -564 +568 @@
        ENDIF
 
-       IF ( bc_lr_cyc )  THEN
+       IF ( bc_lr == 'cyclic' )  THEN
           IF ( ANY( nzb_local(:,-1) /= nzb_local(:,nx)   )  .OR. &
                ANY( nzb_local(:,0)  /= nzb_local(:,nx+1) ) )  THEN
@@ -572 +576 @@
           ENDIF
        ENDIF
-       IF ( bc_ns_cyc )  THEN
+       IF ( bc_ns == 'cyclic' )  THEN
           IF ( ANY( nzb_local(-1,:) /= nzb_local(ny,:)   )  .OR. &
                ANY( nzb_local(0,:)  /= nzb_local(ny+1,:) ) )  THEN