Changeset 3896

Timestamp:

Apr 15, 2019 10:10:17 AM (6 years ago)

Author:

suehring

Message:

Bugfix, wrong index used for accessing building_pars from PIDS

File:

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

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix, wrong index used for accessing building_pars from PIDS 
+! 
+! 3885 2019-04-11 11:29:34Z kanani
 ! Changes related to global restructuring of location messages and introduction 
 ! of additional debug messages
@@ -4533 +4536 @@
                                     building_pars_f%pars_xy(ind_tc3,j,i)    
                  
-              IF ( building_pars_f%pars_xy(ind_tc1_win_r,j,i) /=               &
+              IF ( building_pars_f%pars_xy(ind_tc1,j,i) /=                     &
                    building_pars_f%fill )  THEN
                  surf_usm_h%lambda_h_window(nzb_wall,m)   =                    &
-                                     building_pars_f%pars_xy(ind_tc1_win_r,j,i)         
+                                     building_pars_f%pars_xy(ind_tc1,j,i)         
                  surf_usm_h%lambda_h_window(nzb_wall+1,m) =                    &
-                                     building_pars_f%pars_xy(ind_tc1_win_r,j,i)        
+                                     building_pars_f%pars_xy(ind_tc1,j,i)        
               ENDIF
               IF ( building_pars_f%pars_xy(ind_tc2,j,i) /=                     &     
@@ -4825 +4828 @@
                                           building_pars_f%pars_xy(ind_tc3,j,i) 
                        
-                    IF ( building_pars_f%pars_xy(ind_tc1_win_r,j,i) /=         &
+                    IF ( building_pars_f%pars_xy(ind_tc1,j,i) /=         &
                          building_pars_f%fill )  THEN
                        surf_usm_v(l)%lambda_h_window(nzb_wall,m)   =           &
-                                     building_pars_f%pars_xy(ind_tc1_win_r,j,i)         
+                                     building_pars_f%pars_xy(ind_tc1,j,i)         
                        surf_usm_v(l)%lambda_h_window(nzb_wall+1,m) =           &
-                                     building_pars_f%pars_xy(ind_tc1_win_r,j,i)        
+                                     building_pars_f%pars_xy(ind_tc1,j,i)        
                     ENDIF
                     IF ( building_pars_f%pars_xy(ind_tc2,j,i) /=               &