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

Timestamp:

Dec 18, 2015 1:56:05 PM (8 years ago)

Author:

raasch

Message:

bugfixes for calculations in statistical regions which do not contain grid points in the lowest vertical levels, mean surface level height considered in the calculation of the characteristic vertical velocity

File:

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

palm/trunk/SOURCE/modules.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! +mean_surface_level_height
 ! 
 ! Former revisions:
@@ -1467 +1467 @@
     LOGICAL ::  flow_statistics_called = .FALSE.
     REAL(wp) ::     u_max, v_max, w_max
-    REAL(wp), DIMENSION(:), ALLOCATABLE       ::  sums_divnew_l, sums_divold_l,   &
+    REAL(wp), DIMENSION(:), ALLOCATABLE       ::  mean_surface_level_height,      &
+                                                  sums_divnew_l, sums_divold_l,   &
                                                   var_d, weight_substep,          &
                                                   weight_pres