Changeset 771 for palm/trunk/SOURCE/data_output_3d.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_3d.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_3d.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! +lpt
 !
 ! Former revisions:
@@ -166 +166 @@
              ELSE
                 to_be_resorted => e_av
+             ENDIF
+
+          CASE ( 'lpt' )
+             IF ( av == 0 )  THEN
+                to_be_resorted => pt
+             ELSE
+                to_be_resorted => lpt_av
              ENDIF