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

Timestamp:

Jan 12, 2018 2:59:47 PM (6 years ago)

Author:

suehring

Message:

Output of surface temperature tsurf* at urban- and natural-type surfaces

File:

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

palm/trunk/SOURCE/average_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Enable output of surface temperature
+! 
+! 2735 2018-01-11 12:01:27Z suehring
 ! output of r_a moved from land-surface to consider also urban-type surfaces
 ! 
@@ -422 +425 @@
              CALL exchange_horiz_2d( ts_av, nbgp )
 
+         CASE ( 'tsurf*' )
+             DO  i = nxlg, nxrg
+                DO  j = nysg, nyng
+                   tsurf_av(j,i) = tsurf_av(j,i) / REAL( average_count_3d, KIND=wp )
+                ENDDO
+             ENDDO
+             CALL exchange_horiz_2d( tsurf_av, nbgp )
+
           CASE ( 'u' )
              DO  i = nxlg, nxrg