Changeset 354 for palm/trunk/SOURCE/average_3d_data.f90

Timestamp:

Jul 13, 2009 1:14:25 PM (15 years ago)

Author:

maronga

Message:

xy cross section output of sensible and latent heatflux is now available

File:

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

palm/trunk/SOURCE/average_3d_data.f90

@@ -63 +63 @@
              ENDDO
 
+          CASE ( 'qsws*' )
+             DO  i = nxl-1, nxr+1
+                DO  j = nys-1, nyn+1
+                   qsws_av(j,i) = qsws_av(j,i) / REAL( average_count_3d )
+                ENDDO
+             ENDDO
+
           CASE ( 'lwp*' )
              DO  i = nxl-1, nxr+1
@@ -168 +175 @@
                 ENDDO
              ENDDO
-             
+          
           CASE ( 'rho' )
              DO  i = nxl-1, nxr+1
@@ -193 +200 @@
                       sa_av(k,j,i) = sa_av(k,j,i) / REAL( average_count_3d )
                    ENDDO
+                ENDDO
+             ENDDO
+             
+         CASE ( 'shf*' )
+             DO  i = nxl-1, nxr+1
+                DO  j = nys-1, nyn+1
+                   shf_av(j,i) = shf_av(j,i) / REAL( average_count_3d )
                 ENDDO
              ENDDO