Changeset 2798 for palm/trunk/SOURCE/data_output_2d.f90

Timestamp:

Feb 9, 2018 5:16:39 PM (6 years ago)

Author:

suehring

Message:

Bugfix initialization of %pt_surface array; Output of surface temperature also for default-type surfaces

File:

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

palm/trunk/SOURCE/data_output_2d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Consider also default-type surfaces for surface temperature output. 
+! 
+! 2797 2018-02-08 13:24:35Z suehring
 ! Enable output of ground-heat flux also at urban surfaces.
 ! 
@@ -1037 +1040 @@
              CASE ( 'tsurf*_xy' )        ! 2d-array
                 IF ( av == 0 )  THEN
+                   DO  m = 1, surf_def_h(0)%ns
+                      i                   = surf_def_h(0)%i(m)            
+                      j                   = surf_def_h(0)%j(m)
+                      local_pf(i,j,nzb+1) = surf_def_h(0)%pt_surface(m)
+                   ENDDO
+
                    DO  m = 1, surf_lsm_h%ns
                       i                   = surf_lsm_h%i(m)