Changeset 1314 for palm/trunk/SOURCE/modules.f90

Timestamp:

Mar 14, 2014 6:25:17 PM (11 years ago)

Author:

suehring

Message:

Vertical logarithmic interpolation of horizontal particle speed for particles
between roughness height and first vertical grid level.

File:

• palm/trunk/SOURCE/modules.f90 (modified) (4 diffs)

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! + log_z_z0, number_of_sublayers, z0_av_global 
 !
 ! Former revisions:
@@ -1428 +1428 @@
                 maximum_number_of_tailpoints = 100,                            &
                 maximum_number_of_tails = 0,                                   &
+                number_of_sublayers = 20,                                      &
                 number_of_initial_particles = 0, number_of_particles = 0,      &
                 number_of_particle_groups = 1, number_of_tails = 0,            &
@@ -1465 +1466 @@
                 sgs_wfv_part = 0.3333333, sgs_wfw_part = 0.3333333,            &
                 time_prel = 0.0, time_sort_particles = 0.0,                    &
-                time_write_particle_data = 0.0
+                time_write_particle_data = 0.0, z0_av_global
 
     REAL, DIMENSION(max_number_of_particle_groups) ::  &
@@ -1472 +1473 @@
                 psn = 9999999.9, psr = 9999999.9, pss = 9999999.9,           &
                 pst = 9999999.9, radius = 9999999.9
+
+    REAL, DIMENSION(:), ALLOCATABLE     ::  log_z_z0 
 
     REAL, DIMENSION(:,:,:), ALLOCATABLE ::  particle_tail_coordinates