Changeset 1507 for palm/trunk/SOURCE

Timestamp:

Dec 10, 2014 12:14:18 PM (9 years ago)

Author:

suehring

Message:

Bugfix: set horizontal velocity components to zero inside topography

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix: set horizontal velocity components to zero inside topography
 ! 
 ! Former revisions:
@@ -796 +796 @@
 !--       in the limiting formula!). The original values are stored to be later
 !--       used for volume flow control.
-          IF ( ibc_uv_b /= 1 .AND. ( .NOT. bc_lr_dirrad .AND.                 &
-                                     .NOT. bc_lr_raddir .AND.                 &
-                                     .NOT. bc_ns_dirrad .AND.                 &
-                                     .NOT. bc_ns_raddir ) )  THEN    
+          IF ( ibc_uv_b /= 1 )  THEN    
              DO  i = nxlg, nxrg
                 DO  j = nysg, nyng