Changeset 3404 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Oct 23, 2018 1:29:11 PM (5 years ago)

Author:

suehring

Message:

Consider time-dependent geostrophic wind components in offline nesting

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Set bottom boundary condition for geostrophic wind components in inifor
+! initialization
+! 
+! 3347 2018-10-15 14:21:08Z suehring
 ! - Separate offline nesting from large_scale_nudging_mod
 ! - Improve the synthetic turbulence generator
@@ -1214 +1218 @@
              vg(:) = init_3d%vg_init(:)
           ENDIF
-          
+!
+!--       Set bottom and top boundary condition for geostrophic wind
           ug(nzt+1) = ug(nzt)
           vg(nzt+1) = vg(nzt)
+          ug(nzb)   = ug(nzb+1)
+          vg(nzb)   = vg(nzb+1)
 !
 !--       Set inital w to 0