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

Timestamp:

Mar 26, 2013 6:16:16 PM (11 years ago)

Author:

hoffmann

Message:

optimization of two-moments cloud physics

File:

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

palm/trunk/SOURCE/write_3d_binary.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! qr and nr are restricted to precipitation
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
-!
-! 1074 2012-12-03 11:00:05Z hoffmann
-! Bugfix in writing qr, nr
 !
 ! 1053 2012-11-13 17:11:03Z hoffmann
@@ -117 +115 @@
 !
 !-- Write arrays.
-    binary_version = '3.3'
+    binary_version = '3.4'
 
     WRITE ( 14 )  binary_version
@@ -179 +177 @@
              WRITE ( 14 )  'ql_av               ';  WRITE ( 14 )  ql_av
           ENDIF
-          IF ( icloud_scheme == 0  .AND.  cloud_physics )  THEN
-             WRITE ( 14 )  'qr                  ';  WRITE ( 14 ) qr
-             WRITE ( 14 )  'nr                  ';  WRITE ( 14 ) nr
-             IF ( ALLOCATED( qr_av ) )  THEN
-                WRITE ( 14 )  'qr_av               ';  WRITE ( 14 )  qr_av
+          IF ( icloud_scheme == 0 )  THEN
+             WRITE ( 14 )  'qc                  ';  WRITE ( 14 ) qc
+             IF ( ALLOCATED( qc_av ) )  THEN
+                WRITE ( 14 )  'qc_av               ';  WRITE ( 14 )  qc_av
              ENDIF
-             IF ( ALLOCATED( nr_av ) )  THEN
-                WRITE ( 14 )  'nr_av               ';  WRITE ( 14 )  nr_av
+             IF ( precipitation )  THEN
+                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
+                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
              ENDIF
-             WRITE ( 14 )  'qrs                 ';  WRITE ( 14 ) qrs
-             WRITE ( 14 )  'qrsws               ';  WRITE ( 14 ) qrsws
-             WRITE ( 14 )  'qrswst              ';  WRITE ( 14 ) qrswst
-             WRITE ( 14 )  'nrs                 ';  WRITE ( 14 ) nrs
-             WRITE ( 14 )  'nrsws               ';  WRITE ( 14 ) nrsws
-             WRITE ( 14 )  'nrswst              ';  WRITE ( 14 ) nrswst
           ENDIF
        ENDIF