Changeset 2735 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Jan 11, 2018 12:01:27 PM (6 years ago)

Author:

suehring

Message:

Output of resistance also urban-type surfaces

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! +r_a_green, r_a_window
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Changes from last commit documented
 ! 
@@ -264 +267 @@
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  qsws_veg            !< surface flux of latent heat (vegetation portion)
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  r_a                 !< aerodynamic resistance 
+       REAL(wp), DIMENSION(:), ALLOCATABLE ::  r_a_green           !< aerodynamic resistance at green fraction
+       REAL(wp), DIMENSION(:), ALLOCATABLE ::  r_a_window          !< aerodynamic resistance at window fraction
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  r_canopy            !< canopy resistance
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  r_soil              !< soil resistance