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

palm/trunk/SOURCE/init_masks.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! +lpt
 !
 ! Former revisions:
@@ -170 +170 @@
                 unit = 'm2/s2'
 
+             CASE ( 'lpt' )
+                IF ( .NOT. cloud_physics )  THEN
+                   WRITE ( message_string, * ) 'output of "', TRIM( var ), &
+                        '" requires cloud_physics = .TRUE.'
+                   CALL message( 'init_masks', 'PA0348', 1, 2, 0, 6, 0 )
+                ENDIF
+                unit = 'K'
+
              CASE ( 'pc', 'pr' )
                 IF ( .NOT. particle_advection )  THEN