Changeset 1409 for palm/trunk/SOURCE/init_grid.f90

Timestamp:

May 23, 2014 12:11:32 PM (11 years ago)

Author:

suehring

Message:

Bugfix: set inflow boundary conditions also if no humidity or passive_scalar is used

File:

• palm/trunk/SOURCE/init_grid.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: set wall_flags_0 at inflow and outflow boundary also for i <= nxlu 
+! j <= nysv
 ! 
 ! Former revisions:
@@ -1229 +1230 @@
 !--             WS1 (9), WS3 (10), WS5 (11)
                 IF ( k <= nzb_u_inner(j,i+1)                                  &
-                     .OR. ( ( inflow_l .OR. outflow_l ) .AND. i == nxlu )     &
+                     .OR. ( ( inflow_l .OR. outflow_l ) .AND. i <= nxlu )     &
                      .OR. ( ( inflow_r .OR. outflow_r ) .AND. i == nxr  )     &
                    )  THEN
@@ -1298 +1299 @@
 !--             WS1 (21), WS3 (22), WS5 (23)
                 IF ( k <= nzb_v_inner(j+1,i)                                   &
-                     .OR. ( ( inflow_s .OR. outflow_s ) .AND. i == nysv )      &
+                     .OR. ( ( inflow_s .OR. outflow_s ) .AND. j <= nysv )      &
                      .OR. ( ( inflow_n .OR. outflow_n ) .AND. j == nyn  )      &
                    )  THEN