Changeset 1992 for palm/trunk/SOURCE/sum_up_3d_data.f90

Timestamp:

Aug 12, 2016 3:14:59 PM (8 years ago)

Author:

suehring

Message:

Prescribing scalar flux at model top; several bugfixes concering data output of scalars and output of flight data

File:

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

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix in summation of passive scalar
 ! 
 ! Former revisions:
@@ -110 +110 @@
     USE arrays_3d,                                                             &
         ONLY:  dzw, e, nr, ol, p, pt, precipitation_rate, q, qc, ql, ql_c,     &
-               ql_v, qr, qsws, rho, sa, shf, ssws, ts, u, us, v, vpt, w, z0,   &
+               ql_v, qr, qsws, rho, s, sa, shf, ssws, ts, u, us, v, vpt, w, z0,&
                z0h, z0q
 
@@ -619 +619 @@
                 DO  j = nysg, nyng
                    DO  k = nzb, nzt+1
-                      s_av(k,j,i) = s_av(k,j,i) + q(k,j,i)
+                      s_av(k,j,i) = s_av(k,j,i) + s(k,j,i)
                    ENDDO
                 ENDDO