Ignore:
Timestamp:
Feb 14, 2018 5:00:09 PM (6 years ago)
Author:
suehring
Message:

Bugfix in re-mapping surface-element data in case of restarts; bugfix in initialization of water-surface roughness; bugfix - uninitialized resistance at urban-type surfaces

File:
1 edited

Legend:

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

    r2797 r2805  
    2626! -----------------
    2727! $Id$
     28! Initialization of resistances.
     29!
     30! 2797 2018-02-08 13:24:35Z suehring
    2831! Comment concerning output of ground-heat flux added.
    2932!
     
    34733476                 surf_usm_v(l)%ground_level(m) = .TRUE.
    34743477
     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
    34753492           ENDDO
    34763493        ENDDO
Note: See TracChangeset for help on using the changeset viewer.