Ignore:
Timestamp:
Jan 11, 2018 12:01:27 PM (3 years ago)
Author:
suehring
Message:

Output of resistance also urban-type surfaces

File:
1 edited

Legend:

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

    r2718 r2735  
    2626! -----------------
    2727! $Id$
     28! +r_a_green, r_a_window
     29!
     30! 2718 2018-01-02 08:49:38Z maronga
    2831! Changes from last commit documented
    2932!
     
    264267       REAL(wp), DIMENSION(:), ALLOCATABLE ::  qsws_veg            !< surface flux of latent heat (vegetation portion)
    265268       REAL(wp), DIMENSION(:), ALLOCATABLE ::  r_a                 !< aerodynamic resistance
     269       REAL(wp), DIMENSION(:), ALLOCATABLE ::  r_a_green           !< aerodynamic resistance at green fraction
     270       REAL(wp), DIMENSION(:), ALLOCATABLE ::  r_a_window          !< aerodynamic resistance at window fraction
    266271       REAL(wp), DIMENSION(:), ALLOCATABLE ::  r_canopy            !< canopy resistance
    267272       REAL(wp), DIMENSION(:), ALLOCATABLE ::  r_soil              !< soil resistance
Note: See TracChangeset for help on using the changeset viewer.