Ignore:
Timestamp:
Apr 15, 2019 10:10:17 AM (2 years ago)
Author:
suehring
Message:

Bugfix, wrong index used for accessing building_pars from PIDS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r3885 r3896  
    2828! -----------------
    2929! $Id$
     30! Bugfix, wrong index used for accessing building_pars from PIDS
     31!
     32! 3885 2019-04-11 11:29:34Z kanani
    3033! Changes related to global restructuring of location messages and introduction
    3134! of additional debug messages
     
    45334536                                    building_pars_f%pars_xy(ind_tc3,j,i)   
    45344537                 
    4535               IF ( building_pars_f%pars_xy(ind_tc1_win_r,j,i) /=               &
     4538              IF ( building_pars_f%pars_xy(ind_tc1,j,i) /=                     &
    45364539                   building_pars_f%fill )  THEN
    45374540                 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)         
    45394542                 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)       
    45414544              ENDIF
    45424545              IF ( building_pars_f%pars_xy(ind_tc2,j,i) /=                     &     
     
    48254828                                          building_pars_f%pars_xy(ind_tc3,j,i)
    48264829                       
    4827                     IF ( building_pars_f%pars_xy(ind_tc1_win_r,j,i) /=         &
     4830                    IF ( building_pars_f%pars_xy(ind_tc1,j,i) /=         &
    48284831                         building_pars_f%fill )  THEN
    48294832                       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)         
    48314834                       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)       
    48334836                    ENDIF
    48344837                    IF ( building_pars_f%pars_xy(ind_tc2,j,i) /=               &     
Note: See TracChangeset for help on using the changeset viewer.