Changeset 624 for palm/trunk/SOURCE

Timestamp:

Dec 10, 2010 11:46:30 AM (14 years ago)

Author:

heinze

Message:

Calculation of q*2 added

File:

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

palm/trunk/SOURCE/flow_statistics.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Calculation of q*2 added
 !
 ! Former revisions:
@@ -373 +373 @@
                 sums_l(k,33,tn) = sums_l(k,33,tn) + &
                                   ( pt(k,j,i)-hom(k,1,4,sr) )**2 * rmask(j,i,sr)
+
+                IF ( humidity )  THEN
+                   sums_l(k,70,tn) = sums_l(k,70,tn) + &
+                                  ( q(k,j,i)-hom(k,1,41,sr) )**2 * rmask(j,i,sr)
+                ENDIF
 !
 !--             Higher moments