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

Timestamp:

Apr 11, 2014 5:15:14 PM (10 years ago)

Author:

hoffmann

Message:

new Lagrangian particle structure integrated

File:

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

palm/trunk/SOURCE/write_3d_binary.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix using cloud_droplets solved. qc, qr*, nr* are no longer written in case
+! of cloud_droplets = .TRUE.
 !
 ! Former revisions:
@@ -160 +161 @@
        ENDIF
        IF ( cloud_physics  .OR.  cloud_droplets )  THEN
-          WRITE ( 14 )  'ql                  ';  WRITE ( 14 ) ql
+          WRITE ( 14 )  'ql                  ';  WRITE ( 14 )  ql
           IF ( ALLOCATED( ql_av ) )  THEN
              WRITE ( 14 )  'ql_av               ';  WRITE ( 14 )  ql_av
           ENDIF
-          IF ( icloud_scheme == 0 )  THEN
-             WRITE ( 14 )  'qc                  ';  WRITE ( 14 ) qc
+          IF ( icloud_scheme == 0  .AND.  .NOT. cloud_droplets )  THEN
+             WRITE ( 14 )  'qc                  ';  WRITE ( 14 )  qc
              IF ( ALLOCATED( qc_av ) )  THEN
                 WRITE ( 14 )  'qc_av               ';  WRITE ( 14 )  qc_av
              ENDIF
              IF ( precipitation )  THEN
-                WRITE ( 14 )  'nr                  ';  WRITE ( 14 ) nr
+                WRITE ( 14 )  'nr                  ';  WRITE ( 14 )  nr
                 IF ( ALLOCATED( nr_av ) )  THEN
                    WRITE ( 14 )  'nr_av               ';  WRITE ( 14 )  nr_av
                 ENDIF
-                WRITE ( 14 )  'nrs                 ';  WRITE ( 14 ) nrs
-                WRITE ( 14 )  'nrsws               ';  WRITE ( 14 ) nrsws
-                WRITE ( 14 )  'nrswst              ';  WRITE ( 14 ) nrswst
-                WRITE ( 14 )  'qr                  ';  WRITE ( 14 ) qr
+                WRITE ( 14 )  'nrs                 ';  WRITE ( 14 )  nrs
+                WRITE ( 14 )  'nrsws               ';  WRITE ( 14 )  nrsws
+                WRITE ( 14 )  'nrswst              ';  WRITE ( 14 )  nrswst
+                WRITE ( 14 )  'qr                  ';  WRITE ( 14 )  qr
                 IF ( ALLOCATED( qr_av ) )  THEN
                    WRITE ( 14 )  'qr_av               ';  WRITE ( 14 )  qr_av
                 ENDIF
-                WRITE ( 14 )  'qrs                 ';  WRITE ( 14 ) qrs
-                WRITE ( 14 )  'qrsws               ';  WRITE ( 14 ) qrsws
-                WRITE ( 14 )  'qrswst              ';  WRITE ( 14 ) qrswst
+                WRITE ( 14 )  'qrs                 ';  WRITE ( 14 )  qrs
+                WRITE ( 14 )  'qrsws               ';  WRITE ( 14 )  qrsws
+                WRITE ( 14 )  'qrswst              ';  WRITE ( 14 )  qrswst
              ENDIF
           ENDIF
        ENDIF
-       WRITE ( 14 )  'qs                  ';  WRITE ( 14 ) qs
-       WRITE ( 14 )  'qsws                ';  WRITE ( 14 ) qsws
+       WRITE ( 14 )  'qs                  ';  WRITE ( 14 )  qs
+       WRITE ( 14 )  'qsws                ';  WRITE ( 14 )  qsws
        IF ( ALLOCATED( qsws_av ) )  THEN
           WRITE ( 14 )  'qsws_av             ';  WRITE ( 14 )  qsws_av