Ignore:
Timestamp:
Feb 9, 2018 5:16:39 PM (4 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_2d.f90

    r2797 r2798  
    2525! -----------------
    2626! $Id$
     27! Consider also default-type surfaces for surface temperature output.
     28!
     29! 2797 2018-02-08 13:24:35Z suehring
    2730! Enable output of ground-heat flux also at urban surfaces.
    2831!
     
    10371040             CASE ( 'tsurf*_xy' )        ! 2d-array
    10381041                IF ( av == 0 )  THEN
     1042                   DO  m = 1, surf_def_h(0)%ns
     1043                      i                   = surf_def_h(0)%i(m)           
     1044                      j                   = surf_def_h(0)%j(m)
     1045                      local_pf(i,j,nzb+1) = surf_def_h(0)%pt_surface(m)
     1046                   ENDDO
     1047
    10391048                   DO  m = 1, surf_lsm_h%ns
    10401049                      i                   = surf_lsm_h%i(m)           
Note: See TracChangeset for help on using the changeset viewer.