Changeset 4242 for palm


Ignore:
Timestamp:
Sep 27, 2019 12:59:10 PM (4 years ago)
Author:
suehring
Message:

Bugfixes in indoor model and in chemical emissions

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r4230 r4242  
    2727! -----------------
    2828! $Id$
     29! Adjust index_hh access to new definition accompanied with new
     30! palm_date_time_mod. Note, this is just a preleminary fix. (E Chan)
     31!
     32! 4230 2019-09-11 13:58:14Z suehring
    2933! Bugfix, consider that time_since_reference_point can be also negative when
    3034! time indices are determined.
     
    11421146!-- Read-in the correspondant time factor
    11431147
    1144                 time_factor(:) = emt_att%hourly_emis_time_factor(:,index_hh)     
     1148                time_factor(:) = emt_att%hourly_emis_time_factor(:,index_hh+1)     
    11451149
    11461150!
     
    11911195                time_factor(:) = emt_att%mdh_emis_time_factor(:,index_mm) *    &
    11921196                                 emt_att%mdh_emis_time_factor(:,index_dd) *    &
    1193                                  emt_att%mdh_emis_time_factor(:,index_hh)
     1197                                 emt_att%mdh_emis_time_factor(:,index_hh+1)
    11941198
    11951199!
     
    12401244
    12411245          index_hh = hour_of_day
    1242           time_factor(1) = par_emis_time_factor(index_hh)
     1246          time_factor(1) = par_emis_time_factor(index_hh+1)
    12431247
    12441248       ENDIF  ! emiss_lod
     
    14701474             emis_distribution(1,nys:nyn,nxl:nxr,ispec) =                                &
    14711475                       emt(match_spec_input(ispec))%                                     &
    1472                            preproc_emission_data(index_hh,1,nys+1:nyn+1,nxl+1:nxr+1) *  &
     1476                           preproc_emission_data(index_hh+1,1,nys+1:nyn+1,nxl+1:nxr+1) * &
    14731477                       conversion_factor
    14741478
  • palm/trunk/SOURCE/indoor_model_mod.f90

    r4238 r4242  
    2626! -----------------
    2727! $Id$
     28! Bugfix in array index
     29!
     30! 4238 2019-09-25 16:06:01Z suehring
    2831! - Bugfix in determination of minimum facade height and in location message
    2932! - Bugfix, avoid division by zero
     
    949952         building_type ==  3  .OR.  building_type == 10  .OR.                  &
    950953         building_type == 11  .OR.  building_type == 12 )  THEN
    951        buildings(nb)%ventilation_int_loads = 1
     954       buildings(:)%ventilation_int_loads = 1
    952955!
    953956!-- Office, building with large windows
     
    955958             building_type ==  6  .OR.  building_type ==  7  .OR.              &
    956959             building_type ==  8  .OR.  building_type ==  9)  THEN
    957        buildings(nb)%ventilation_int_loads = 2
     960       buildings(:)%ventilation_int_loads = 2
    958961!
    959962!-- Industry, hospitals
     
    961964             building_type == 15  .OR.  building_type == 16  .OR.              &
    962965             building_type == 17  .OR.  building_type == 18 )  THEN
    963        buildings(nb)%ventilation_int_loads = 3
     966       buildings(:)%ventilation_int_loads = 3
    964967    ENDIF
    965968!
Note: See TracChangeset for help on using the changeset viewer.