Changeset 1076 for palm/trunk/SOURCE

Timestamp:

Dec 5, 2012 8:30:18 AM (12 years ago)

Author:

hoffmann

Message:

bugfixes in data_output_2d and data_output_3d

Location:

palm/trunk/SOURCE

Files:

• data_output_2d.f90 (modified) (3 diffs)
• data_output_3d.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_2d.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! Bugfix in output of ql
 !
 ! Former revisions:
@@ -488 +489 @@
              CASE ( 'ql_xy', 'ql_xz', 'ql_yz' )
                 IF ( av == 0 )  THEN
-                   IF ( icloud_scheme == 0 )  THEN
+                   IF ( cloud_physics  .AND.  icloud_scheme == 0 )  THEN
                       DO  i = nxlg, nxrg
                          DO  j = nysg, nyng
@@ -501 +502 @@
                    ENDIF
                 ELSE
-                   IF ( icloud_scheme == 0 )  THEN
+                   IF ( cloud_physics  .AND.  icloud_scheme == 0 )  THEN
                       DO  i = nxlg, nxrg
                          DO  j = nysg, nyng

palm/trunk/SOURCE/data_output_3d.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! Bugfix in output of ql
 !
 ! Former revisions:
@@ -337 +338 @@
           CASE ( 'ql' )
              IF ( av == 0 )  THEN
-                IF ( icloud_scheme == 0 )  THEN
+                IF ( cloud_physics  .AND.  icloud_scheme == 0 )  THEN
                    DO  i = nxlg, nxrg
                       DO  j = nysg, nyng
@@ -350 +351 @@
                 ENDIF
              ELSE
-                IF ( icloud_scheme == 0 )  THEN
+                IF ( cloud_physics  .AND.  icloud_scheme == 0 )  THEN
                    DO  i = nxlg, nxrg
                       DO  j = nysg, nyng