Changeset 336 for palm/trunk/SOURCE/data_output_2d.f90

Timestamp:

Jun 10, 2009 11:19:35 AM (15 years ago)

Author:

raasch

Message:

several small bugfixes; some more dvrp changes

File:

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

palm/trunk/SOURCE/data_output_2d.f90

@@ -6 +6 @@
 ! simulated_time in NetCDF output replaced by time_since_reference_point.
 ! Output of NetCDF messages with aid of message handling routine.
+! Bugfix: averaging along z is not allowed for 2d quantities (e.g. u* and z0)
 ! Output of messages replaced by message handling routine.
 !
@@ -578 +579 @@
 !
 !--                If required, carry out averaging along z
-                   IF ( section(is,s) == -1 )  THEN
+                   IF ( section(is,s) == -1  .AND.  .NOT. two_d )  THEN
 
                       local_2d = 0.0