Changeset 1299 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Mar 6, 2014 1:15:21 PM (10 years ago)

Author:

heinze

Message:

enable usage of large_scale subsidence in combination with large_scale_forcing

File:

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

palm/trunk/SOURCE/flow_statistics.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-!
+! Output of large scale vertical velocity w_subs
 !
 ! Former revisions:
@@ -1164 +1164 @@
        hom(:,1,78,sr) = ug             ! ug
        hom(:,1,79,sr) = vg             ! vg
+       hom(:,1,80,sr) = w_subs         ! w_subs
 
        hom(:,1,pr_palm-1,sr) = sums(:,pr_palm-1)
@@ -2784 +2785 @@
        hom(:,1,78,sr) = ug             ! ug
        hom(:,1,79,sr) = vg             ! vg
+       hom(:,1,80,sr) = w_subs         ! w_subs
 
        hom(:,1,pr_palm-1,sr) = sums(:,pr_palm-1)