Changeset 3351 for palm/trunk/SOURCE/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/surface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! New flag indication that albedo at urban surfaces is initialized via ASCII
+! file
+! 
+! 3298 2018-10-02 12:21:11Z kanani
 ! - Minor formatting/clean-up (kanani)
 ! - Removed initialization of cssws with surface_csflux values. Only the value 0 
@@ -260 +264 @@
     TYPE surf_type
 
+       LOGICAL ::  albedo_from_ascii = .FALSE. !< flag indicating that albedo for urban surfaces is input via ASCII format (just for a workaround)
+    
        INTEGER(iwp) :: ioff                                !< offset value in x-direction, used to determine index of surface element
        INTEGER(iwp) :: joff                                !< offset value in y-direction, used to determine index of surface element