Changeset 354 for palm/trunk/SOURCE/sum_up_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/sum_up_3d_data.f90 (modified) (2 diffs)

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -129 +129 @@
                 ql_vp_av = 0.0
 
+             CASE ( 'qsws*' )
+                IF ( .NOT. ALLOCATED( qsws_av ) )  THEN
+                   ALLOCATE( qsws_av(nys-1:nyn+1,nxl-1:nxr+1) )
+                ENDIF
+                qsws_av = 0.0
+
              CASE ( 'qv' )
                 IF ( .NOT. ALLOCATED( qv_av ) )  THEN
@@ -152 +158 @@
                 ENDIF
                 sa_av = 0.0
+
+             CASE ( 'shf*' )
+                IF ( .NOT. ALLOCATED( shf_av ) )  THEN
+                   ALLOCATE( shf_av(nys-1:nyn+1,nxl-1:nxr+1) )
+                ENDIF
+                shf_av = 0.0
 
              CASE ( 't*' )