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/average_3d_data.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!
     
    422425             CALL exchange_horiz_2d( ts_av, nbgp )
    423426
     427         CASE ( 'tsurf*' )
     428             DO  i = nxlg, nxrg
     429                DO  j = nysg, nyng
     430                   tsurf_av(j,i) = tsurf_av(j,i) / REAL( average_count_3d, KIND=wp )
     431                ENDDO
     432             ENDDO
     433             CALL exchange_horiz_2d( tsurf_av, nbgp )
     434
    424435          CASE ( 'u' )
    425436             DO  i = nxlg, nxrg
Note: See TracChangeset for help on using the changeset viewer.