Changeset 4208 for palm

Timestamp:

Sep 2, 2019 9:01:07 AM (5 years ago)

Author:

suehring

Message:

Bugfix in accessing albedo_pars in the clear-sky branch (merge from branch)

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix in accessing albedo_pars in the clear-sky branch (merge from branch) 
+! 
+! 4198 2019-08-29 15:17:48Z gronemeier
 ! Prohibit execution of radiation model if rotation_angle is not zero
 ! 
@@ -1847 +1850 @@
                 joff = surf_usm_v(l)%joff
                 DO  m = 1, surf_usm_v(l)%ns
-                   i = surf_usm_v(l)%i(m) + joff
+                   i = surf_usm_v(l)%i(m) + ioff
                    j = surf_usm_v(l)%j(m) + joff
                    IF ( albedo_pars_f%pars_xy(0,j,i) /= albedo_pars_f%fill )  THEN