Changeset 2178 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Mar 17, 2017 11:07:39 AM (8 years ago)

Author:

hellstea

Message:

Nesting bugfixes

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (1 diff)

palm/trunk/SOURCE/time_integration.f90

@@ -676 +676 @@
                    CALL disturb_field( nzb_u_inner, tend, u )
                    CALL disturb_field( nzb_v_inner, tend, v )
-                ELSEIF ( .NOT. bc_lr_cyc  .OR.  .NOT. bc_ns_cyc )  THEN
+                ELSEIF ( ( .NOT. bc_lr_cyc  .OR.  .NOT. bc_ns_cyc )            &
+                     .AND. .NOT. nest_domain )  THEN
 !
 !--                Runs with a non-cyclic lateral wall need perturbations