Changeset 1065 for palm/trunk/SOURCE/data_output_2d.f90

Timestamp:

Nov 22, 2012 5:42:36 PM (11 years ago)

Author:

hoffmann

Message:

cloud physics: rain sedimentation and turbulence effects

File:

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

palm/trunk/SOURCE/data_output_2d.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! Bugfix: Output of cross sections of ql
 !
 ! Former revisions:
@@ -488 +489 @@
                       DO  i = nxlg, nxrg
                          DO  j = nysg, nyng
-                            DO  k = nzb, nz_do3d
+                            DO  k = nzb, nzt+1
                                local_pf(i,j,k) = ql(k,j,i) + qr(k,j,i)
                             ENDDO
@@ -501 +502 @@
                       DO  i = nxlg, nxrg
                          DO  j = nysg, nyng
-                            DO  k = nzb, nz_do3d
+                            DO  k = nzb, nzt+1
                                local_pf(i,j,k) = ql_av(k,j,i) + qr_av(k,j,i)
                             ENDDO