Changeset 3900 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Apr 16, 2019 3:17:43 PM (5 years ago)

Author:

suehring

Message:

Bugfixes in initialization and STG

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Fixed initialization problem
+! 
+! 3885 2019-04-11 11:29:34Z kanani
 ! Changes related to global restructuring of location messages and introduction 
 ! of additional debug messages
@@ -2216 +2219 @@
                 ioff = surf_usm_v(l)%ioff
                 joff = surf_usm_v(l)%joff
-                DO  m = 1, surf_usm_h%ns
-                   i = surf_usm_h%i(m) + joff
-                   j = surf_usm_h%j(m) + joff
+                DO  m = 1, surf_usm_v(l)%ns
+                   i = surf_usm_v(l)%i(m) + joff
+                   j = surf_usm_v(l)%j(m) + joff
                    IF ( albedo_pars_f%pars_xy(0,j,i) /= albedo_pars_f%fill )  THEN
                       IF ( surf_usm_v(l)%albedo_type(ind_veg_wall,m) == 0 )    &
@@ -2225 +2228 @@
                          surf_usm_v(l)%albedo(ind_pav_green,m) = albedo_pars_f%pars_xy(0,j,i)
                       IF ( surf_usm_v(l)%albedo_type(ind_wat_win,m) == 0 )     &
-                         surf_lsm_v(l)%albedo(ind_wat_win,m) = albedo_pars_f%pars_xy(0,j,i)
+                         surf_usm_v(l)%albedo(ind_wat_win,m) = albedo_pars_f%pars_xy(0,j,i)
                    ENDIF
                 ENDDO