 Timestamp:
 Apr 15, 2019 10:10:17 AM (2 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/urban_surface_mod.f90
r3885 r3896 28 28 !  29 29 ! $Id$ 30 ! Bugfix, wrong index used for accessing building_pars from PIDS 31 ! 32 ! 3885 20190411 11:29:34Z kanani 30 33 ! Changes related to global restructuring of location messages and introduction 31 34 ! of additional debug messages … … 4533 4536 building_pars_f%pars_xy(ind_tc3,j,i) 4534 4537 4535 IF ( building_pars_f%pars_xy(ind_tc1 _win_r,j,i) /=&4538 IF ( building_pars_f%pars_xy(ind_tc1,j,i) /= & 4536 4539 building_pars_f%fill ) THEN 4537 4540 surf_usm_h%lambda_h_window(nzb_wall,m) = & 4538 building_pars_f%pars_xy(ind_tc1 _win_r,j,i)4541 building_pars_f%pars_xy(ind_tc1,j,i) 4539 4542 surf_usm_h%lambda_h_window(nzb_wall+1,m) = & 4540 building_pars_f%pars_xy(ind_tc1 _win_r,j,i)4543 building_pars_f%pars_xy(ind_tc1,j,i) 4541 4544 ENDIF 4542 4545 IF ( building_pars_f%pars_xy(ind_tc2,j,i) /= & … … 4825 4828 building_pars_f%pars_xy(ind_tc3,j,i) 4826 4829 4827 IF ( building_pars_f%pars_xy(ind_tc1 _win_r,j,i) /= &4830 IF ( building_pars_f%pars_xy(ind_tc1,j,i) /= & 4828 4831 building_pars_f%fill ) THEN 4829 4832 surf_usm_v(l)%lambda_h_window(nzb_wall,m) = & 4830 building_pars_f%pars_xy(ind_tc1 _win_r,j,i)4833 building_pars_f%pars_xy(ind_tc1,j,i) 4831 4834 surf_usm_v(l)%lambda_h_window(nzb_wall+1,m) = & 4832 building_pars_f%pars_xy(ind_tc1 _win_r,j,i)4835 building_pars_f%pars_xy(ind_tc1,j,i) 4833 4836 ENDIF 4834 4837 IF ( building_pars_f%pars_xy(ind_tc2,j,i) /= &
Note: See TracChangeset
for help on using the changeset viewer.