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

Timestamp:

Feb 16, 2009 9:57:56 AM (15 years ago)

Author:

raasch

Message:

polygon reduction for topography and ground plate isosurface (dvr)

File:

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

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Actual revisions:
 ! -----------------
-! 
+! +cluster_size in dvrp_variables
 !
 ! Former revisions:
@@ -528 +528 @@
                            dvrp_username  = ' '
 
-    INTEGER ::  dvrp_colourtable_entries = 4, islice_dvrp, nx_dvrp, ny_dvrp,  &
-                nz_dvrp, pathlines_fadeintime = 5, pathlines_fadeouttime = 5, &
-                pathlines_linecount = 1000, pathlines_maxhistory = 40,        &
-                pathlines_wavecount = 10, pathlines_wavetime = 50,            &
-                vc_gradient_normals = 0, vc_mode = 0, vc_size_x = 2,          &
-                vc_size_y = 2, vc_size_z = 2
+    INTEGER ::  cluster_size = 1, dvrp_colourtable_entries = 4, islice_dvrp,   &
+                nx_dvrp, ny_dvrp, nz_dvrp, pathlines_fadeintime = 5,           &
+                pathlines_fadeouttime = 5, pathlines_linecount = 1000,         &
+                pathlines_maxhistory = 40, pathlines_wavecount = 10,           &
+                pathlines_wavetime = 50, vc_gradient_normals = 0, vc_mode = 0, &
+                vc_size_x = 2, vc_size_y = 2, vc_size_z = 2
 
     INTEGER, DIMENSION(10) ::  slicer_position_dvrp