Changeset 1583 for palm/trunk/SOURCE

Timestamp:

Apr 15, 2015 12:16:27 PM (10 years ago)

Author:

suehring

Message:

Bugfix: particle advection within Prandtl-layer in case of Galilei transformation

File:

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

palm/trunk/SOURCE/lpm_advec.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix: particle advection within Prandtl-layer in case of Galilei 
+! transformation.
 !
 ! Former revisions:
@@ -242 +243 @@
 
                 u_int  = -usws(j,i) / ( us_int * kappa + 1E-10_wp )           & 
-                         * log_z_z0_int(n)
+                         * log_z_z0_int(n) - u_gtrans
 
              ENDIF
@@ -299 +300 @@
 
                 v_int  = -vsws(j,i) / ( us_int * kappa + 1E-10_wp )             &
-                         * log_z_z0_int(n) 
+                         * log_z_z0_int(n) - v_gtrans
              ENDIF
           ELSE