Changeset 3175 for palm

Timestamp:

Jul 26, 2018 2:07:38 PM (6 years ago)

Author:

suehring

Message:

Bugfix for commit 3172

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix for commit 3172
+! 
+! 3173 2018-07-26 12:55:23Z suehring
 ! Revise output of surface radiation quantities in case of overhanging 
 ! structures
@@ -3110 +3113 @@
 !--       Solar radiation is zero during night
           ELSE
-             rad_sw_in(k,:,:)  = 0.0_wp
-             rad_sw_out(k,:,:) = 0.0_wp
+             rad_sw_in  = 0.0_wp
+             rad_sw_out = 0.0_wp
           ENDIF
 !
@@ -3555 +3558 @@
 !--             Solar radiation is zero during night
                 ELSE
-                   rad_sw_in(k,j,i)  = 0.0_wp
-                   rad_sw_out(k,j,i) = 0.0_wp
+                   rad_sw_in  = 0.0_wp
+                   rad_sw_out = 0.0_wp
                 ENDIF