Changeset 790 for palm/trunk/SOURCE/write_3d_binary.f90

Timestamp:

Nov 29, 2011 3:11:20 AM (11 years ago)

Author:

raasch

Message:

Bugfix for output of mean particle radius + preliminary works for implementing the Wang collision kernel

File:

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

palm/trunk/SOURCE/write_3d_binary.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! bugfix: output of 'ql' also if cloud droplets are used
 !
 ! Former revisions:
@@ -141 +142 @@
        ENDIF
        WRITE ( 14 )  'q_m                 ';  WRITE ( 14 ) q_m
-       IF ( cloud_physics ) THEN
+       IF ( cloud_physics  .OR.  cloud_droplets )  THEN
           WRITE ( 14 )  'ql                  ';  WRITE ( 14 ) ql
           IF ( ALLOCATED( ql_av ) )  THEN