Changeset 4552 for palm

Timestamp:

Jun 2, 2020 8:33:29 PM (4 years ago)

Author:

moh.hefny

Message:

Bugfix: remove IF statement in the emissivity coupling parameter for radiation-RTM

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix in IF statement in the emissivity coupling parameter for radiation-RTM
+! 
+! 4535 2020-05-15 12:07:23Z raasch
 ! bugfix for restart data format query
 ! 
@@ -6641 +6644 @@
 !-    emissivity_urb weighted average of surface and PC emissivity
 !-    = absorbed LW in [surfaces + plant canopy] / pinlw
-     IF ( pinsw /= 0.0_wp )                                                         &
-          emissivity_urb = (pabs_surf_lwdif + pabs_pc_lwdif) / pinlw
+     emissivity_urb = (pabs_surf_lwdif + pabs_pc_lwdif) / pinlw
 
 !-    (3) temperature