Ignore:
Timestamp:
Jan 12, 2018 2:59:47 PM (4 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

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

    r2735 r2742  
    2525! -----------------
    2626! $Id$
     27! Enable output of surface temperature
     28!
     29! 2735 2018-01-11 12:01:27Z suehring
    2730! output of r_a moved from land-surface to consider also urban-type surfaces
    2831!
     
    978981                resorted = .TRUE.
    979982                two_d = .TRUE.
     983                level_z(nzb+1) = zu(nzb+1)
     984
     985             CASE ( 'tsurf*_xy' )        ! 2d-array
     986                IF ( av == 0 )  THEN
     987                   DO  m = 1, surf_lsm_h%ns
     988                      i                   = surf_lsm_h%i(m)           
     989                      j                   = surf_lsm_h%j(m)
     990                      local_pf(i,j,nzb+1) = surf_lsm_h%pt_surface(m)
     991                   ENDDO
     992
     993                   DO  m = 1, surf_usm_h%ns
     994                      i   = surf_usm_h%i(m)           
     995                      j   = surf_usm_h%j(m)
     996                      local_pf(i,j,nzb+1) = surf_usm_h%pt_surface(m)
     997                   ENDDO
     998
     999                ELSE
     1000                   DO  i = nxl, nxr
     1001                      DO  j = nys, nyn
     1002                         local_pf(i,j,nzb+1) = tsurf_av(j,i)
     1003                      ENDDO
     1004                   ENDDO
     1005                ENDIF
     1006                resorted       = .TRUE.
     1007                two_d          = .TRUE.
    9801008                level_z(nzb+1) = zu(nzb+1)
    9811009
Note: See TracChangeset for help on using the changeset viewer.