Changeset 3351 for palm/trunk/SOURCE/urban_surface_mod.f90

Timestamp:

Oct 15, 2018 6:40:42 PM (6 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:

• palm/trunk/SOURCE/urban_surface_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Set flag indicating that albedo at urban surfaces is already initialized
+! 
+! 3347 2018-10-15 14:21:08Z suehring
 ! Enable USM initialization with default building parameters in case no static
 ! input file exist. 
@@ -7067 +7070 @@
 !--     Assign the surface types to the respective data type. 
 !--     First, for horizontal upward-facing surfaces. 
+!--     Further, set flag indicating that albedo is initialized via ASCII
+!--     format, else it would be overwritten in the radiation model.
+        surf_usm_h%albedo_from_ascii = .TRUE.
         DO  m = 1, surf_usm_h%ns
            iw = surf_usm_h%i(m)
@@ -7193 +7199 @@
 !--     2 -- eastward-facing, 3 -- westward-facing )
         DO  l = 0, 3
+!
+!--        Set flag indicating that albedo is initialized via ASCII format. 
+!--        Else it would be overwritten in the radiation model.
+           surf_usm_v(l)%albedo_from_ascii = .TRUE.
            DO  m = 1, surf_usm_v(l)%ns
               i  = surf_usm_v(l)%i(m)
@@ -7390 +7400 @@
            ENDDO
         ENDDO 
+
 !
 !--     Initialize wall layer thicknesses. Please note, this will be removed