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

Bugfixes in indoor model and in chemical emissions

File:
1 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
Note: See TracChangeset for help on using the changeset viewer.