Changeset 1074

Timestamp:

Dec 3, 2012 11:00:05 AM (12 years ago)

Author:

hoffmann

Message:

bugfix in write_3d_binary

File:

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

palm/trunk/SOURCE/write_3d_binary.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! Bugfix in writing qr, nr
 !
 ! Former revisions:
@@ -176 +177 @@
              WRITE ( 14 )  'ql_av               ';  WRITE ( 14 )  ql_av
           ENDIF
-          IF ( icloud_scheme == 0 )  THEN
+          IF ( icloud_scheme == 0  .AND.  cloud_physics )  THEN
              WRITE ( 14 )  'qr                  ';  WRITE ( 14 ) qr
              WRITE ( 14 )  'nr                  ';  WRITE ( 14 ) nr