Changeset 3347 for palm/trunk/SOURCE/boundary_conds.f90

Timestamp:

Oct 15, 2018 2:21:08 PM (6 years ago)

Author:

suehring

Message:

Offline nesting revised and separated from large_scale_forcing_mod; Time-dependent synthetic turbulence generator; bugfixes in USM/LSM radiation model and init_pegrid

File:

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

palm/trunk/SOURCE/boundary_conds.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in setting boundary conditions in offline nesting
+! 
+! 3341 2018-10-15 10:31:27Z suehring
 ! changes concerning modularization of ocean option
 ! 
@@ -293 +296 @@
 !
 !-- Vertical nesting: Vertical velocity not zero at the top of the fine grid
-    IF (  .NOT.  child_domain  .AND.                                           &
+    IF (  .NOT.  child_domain  .AND.  .NOT.  nesting_offline  .AND.            &
                  TRIM(coupling_mode) /= 'vnested_fine' )  THEN
        w_p(nzt:nzt+1,:,:) = 0.0_wp  !< nzt is not a prognostic level (but cf. pres)
@@ -729 +732 @@
 !-- in case of nest boundaries. This must not be done in case of vertical nesting 
 !-- mode as in that case the lateral boundaries are actually cyclic. 
-!-- @todo: Is this really needed? Boundary values will be overwritten in 
-!--        coupler or by Inifor data.
     IF ( nesting_mode /= 'vertical'  .OR.  nesting_offline )  THEN
        IF ( bc_dirichlet_s )  THEN