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

Timestamp:

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

Author:

suehring

Message:

Spectra coincide with respective variance

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! var_d added, in order to normalize spectra.
 ! 
 ! Former revisions:
@@ -224 +224 @@
                statistic_regions, sums, sums_divnew_l, sums_divold_l, sums_l,  &
                sums_l_l, sums_up_fraction_l, sums_wsts_bc_l, ts_value,         &
-               weight_pres, weight_substep 
+               var_d, weight_pres, weight_substep 
     
     USE transpose_indices 
@@ -492 +492 @@
        spectrum_x = 0.0_wp
        spectrum_y = 0.0_wp
+
+       ALLOCATE( var_d(nzb:nzt+1) )
+       var_d = 0.0_wp
     ENDIF