Ignore:
Timestamp:
Oct 15, 2018 6:40:42 PM (3 years ago)
Author:
suehring
Message:

Do not overwrite values of albedo in radiation_init in case albedo has been already initialized in the urban-surface model via ASCII input

File:
1 edited

Legend:

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

    r3347 r3351  
    2828! -----------------
    2929! $Id$
     30! Set flag indicating that albedo at urban surfaces is already initialized
     31!
     32! 3347 2018-10-15 14:21:08Z suehring
    3033! Enable USM initialization with default building parameters in case no static
    3134! input file exist.
     
    70677070!--     Assign the surface types to the respective data type.
    70687071!--     First, for horizontal upward-facing surfaces.
     7072!--     Further, set flag indicating that albedo is initialized via ASCII
     7073!--     format, else it would be overwritten in the radiation model.
     7074        surf_usm_h%albedo_from_ascii = .TRUE.
    70697075        DO  m = 1, surf_usm_h%ns
    70707076           iw = surf_usm_h%i(m)
     
    71937199!--     2 -- eastward-facing, 3 -- westward-facing )
    71947200        DO  l = 0, 3
     7201!
     7202!--        Set flag indicating that albedo is initialized via ASCII format.
     7203!--        Else it would be overwritten in the radiation model.
     7204           surf_usm_v(l)%albedo_from_ascii = .TRUE.
    71957205           DO  m = 1, surf_usm_v(l)%ns
    71967206              i  = surf_usm_v(l)%i(m)
     
    73907400           ENDDO
    73917401        ENDDO
     7402
    73927403!
    73937404!--     Initialize wall layer thicknesses. Please note, this will be removed
Note: See TracChangeset for help on using the changeset viewer.