Changeset 2805 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Feb 14, 2018 5:00:09 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r2797 r2805 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Initialization of resistances. 29 ! 30 ! 2797 2018-02-08 13:24:35Z suehring 28 31 ! Comment concerning output of ground-heat flux added. 29 32 ! … … 3473 3476 surf_usm_v(l)%ground_level(m) = .TRUE. 3474 3477 3478 ENDDO 3479 ENDDO 3480 ! 3481 !-- Initialization of resistances. 3482 DO m = 1, surf_usm_h%ns 3483 surf_usm_h%r_a(m) = 50.0_wp 3484 surf_usm_h%r_a_green(m) = 50.0_wp 3485 surf_usm_h%r_a_window(m) = 50.0_wp 3486 ENDDO 3487 DO l = 0, 3 3488 DO m = 1, surf_usm_v(l)%ns 3489 surf_usm_v(l)%r_a(m) = 50.0_wp 3490 surf_usm_v(l)%r_a_green(m) = 50.0_wp 3491 surf_usm_v(l)%r_a_window(m) = 50.0_wp 3475 3492 ENDDO 3476 3493 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.