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

Timestamp:

Jul 15, 2014 2:47:17 PM (10 years ago)

Author:

suehring

Message:

Spectra coincide with respective variance

File:

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

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! +var_d
 ! 
 ! Former revisions:
@@ -1411 +1411 @@
     REAL(wp) ::     u_max, v_max, w_max
     REAL(wp), DIMENSION(:), ALLOCATABLE       ::  sums_divnew_l, sums_divold_l,   &
-                                                  weight_substep, weight_pres
+                                                  var_d, weight_substep,          &
+                                                  weight_pres
     REAL(wp), DIMENSION(:,:), ALLOCATABLE     ::  sums, sums_wsts_bc_l, ts_value, &
                                                   sums_wsus_ws_l, sums_wsvs_ws_l, &