Changeset 3230

Timestamp:

Sep 5, 2018 9:29:05 AM (6 years ago)

Author:

schwenkel

Message:

Bugfix in radiation_constant_surf

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix in radiation_constant_surf: changed (10.0 - emissivity_urb) to 
+! (1.0 - emissivity_urb)
+! 
+! 3226 2018-08-31 12:27:09Z suehring
 ! Bugfixes in calculation of sky-view factors and canopy-sink factors.
 ! 
@@ -2566 +2570 @@
 
                 surf%rad_lw_out = emissivity_urb * sigma_sb * (t_rad_urb)**4   &
-                                    + ( 10.0_wp - emissivity_urb )             & ! shouldn't be this a bulk value -- emissivity_urb?
+                                    + ( 1.0_wp - emissivity_urb )             & ! shouldn't be this a bulk value -- emissivity_urb?
                                     * surf%rad_lw_in