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

Timestamp:

Feb 8, 2018 1:24:35 PM (6 years ago)

Author:

suehring

Message:

Output of ground-heat flux at natural- and urban-type surfaces in one output variable; enable restart data of _av variables that belong to both land- and urban-surface model

File:

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

palm/trunk/SOURCE/average_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Enable output of ground-heat flux also at urban surfaces.
+! 
+! 2766 2018-01-22 17:17:47Z kanani
 ! Removed preprocessor directive __chem
 ! 
@@ -200 +203 @@
              ENDDO
 
+          CASE ( 'ghf*' )
+             DO  i = nxl, nxr
+                DO  j = nys, nyn
+                   ghf_av(j,i) = ghf_av(j,i)                                   &
+                                 / REAL( average_count_3d, KIND=wp )
+                ENDDO
+             ENDDO
+             CALL exchange_horiz_2d( ghf_av, nbgp )
+
           CASE ( 'qsws*' )
              DO  i = nxlg, nxrg