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

Timestamp:

Oct 29, 2013 1:21:31 PM (11 years ago)

Author:

heinze

Message:

Undoing commit 1239

File:

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

palm/trunk/SOURCE/flow_statistics.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! Output of ug and vg
+!
 !
 ! Former revisions:
@@ -563 +563 @@
           ENDDO
        ENDIF
-
 !
 !--    Horizontally averaged profiles of the vertical fluxes
@@ -887 +886 @@
 
        ENDIF
+
 
 !
@@ -1156 +1156 @@
        hom(:,1,76,sr) = sums(:,76)     ! prr (precipitation rate)
                                        ! 77 is initial density profile
-       hom(:,1,78,sr) = ug             ! ug
-       hom(:,1,79,sr) = vg             ! vg
 
        hom(:,1,pr_palm-1,sr) = sums(:,pr_palm-1)
@@ -2776 +2774 @@
        hom(:,1,76,sr) = sums(:,76)     ! prr (precipitation rate)
                                        ! 77 is initial density profile
-       hom(:,1,78,sr) = ug             ! ug
-       hom(:,1,79,sr) = vg             ! vg
 
        hom(:,1,pr_palm-1,sr) = sums(:,pr_palm-1)