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

Timestamp:

Oct 27, 2011 10:56:21 AM (13 years ago)

Author:

heinze

Message:

Output of liquid water potential temperature in case of cloud_physics=.T. enabled

File:

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

palm/trunk/SOURCE/data_output_2d.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! +lpt
 !
 ! Former revisions:
@@ -230 +230 @@
                 ELSE
                    to_be_resorted => e_av
+                ENDIF
+                IF ( mode == 'xy' )  level_z = zu
+
+             CASE ( 'lpt_xy', 'lpt_xz', 'lpt_yz' )
+                IF ( av == 0 )  THEN
+                   to_be_resorted => pt
+                ELSE
+                   to_be_resorted => lpt_av
                 ENDIF
                 IF ( mode == 'xy' )  level_z = zu