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

Timestamp:

Oct 29, 2013 10:11:53 AM (10 years ago)

Author:

heinze

Message:

routines for nudging and large scale forcing from external file added

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
@@ -886 +887 @@
 
        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)
@@ -2774 +2776 @@
        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)