Changeset 268 for palm

Timestamp:

Mar 25, 2009 12:04:54 PM (16 years ago)

Author:

letzel

Message:

• bugfix in set_particle_attributes

File:

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

palm/trunk/SOURCE/set_particle_attributes.f90

@@ -32 +32 @@
 
     INTEGER ::  i, j, k, n
-    REAL    ::  aa, absuv, bb, cc, dd, gg, pt_int, pt_int_l, pt_int_u, u_int, &
-                u_int_l, u_int_u, v_int, v_int_l, v_int_u, w_int, w_int_l,    &
-                w_int_u, x, y
+    REAL    ::  aa, absuv, bb, cc, dd, gg, height, pt_int, pt_int_l, pt_int_u, &
+                u_int, u_int_l, u_int_u, v_int, v_int_l, v_int_u, w_int,       &
+                w_int_l, w_int_u, x, y