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

Timestamp:

Dec 18, 2008 7:00:36 AM (15 years ago)

Author:

raasch

Message:

some small bugfixes in user_module, user_read_restart_data, read_3d_binary, flow_statistics and mrun

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (1 diff)

palm/trunk/SOURCE/flow_statistics.f90

@@ -1008 +1008 @@
        ts_value(19,sr) = hom(nzb+1,1,pr_palm,sr)    ! u'w'    at k=0
        ts_value(20,sr) = hom(nzb+2,1,pr_palm,sr)    ! v'w'    at k=0
-       ts_value(21,sr) = hom(nzb+12,1,pr_palm,sr)   ! w'q'    at k=0
+       ts_value(21,sr) = hom(nzb+12,1,pr_palm,sr)   ! q*
 
        IF ( ts_value(5,sr) /= 0.0 )  THEN