Changeset 4242 for palm/trunk/SOURCE/chem_emissions_mod.f90

Timestamp:

Sep 27, 2019 12:59:10 PM (3 years ago)

Author:

suehring

Message:

Bugfixes in indoor model and in chemical emissions

File:

• palm/trunk/SOURCE/chem_emissions_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/chem_emissions_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Adjust index_hh access to new definition accompanied with new 
+! palm_date_time_mod. Note, this is just a preleminary fix. (E Chan)
+! 
+! 4230 2019-09-11 13:58:14Z suehring
 ! Bugfix, consider that time_since_reference_point can be also negative when 
 ! time indices are determined.
@@ -1142 +1146 @@
 !-- Read-in the correspondant time factor
 
-                time_factor(:) = emt_att%hourly_emis_time_factor(:,index_hh)      
+                time_factor(:) = emt_att%hourly_emis_time_factor(:,index_hh+1)      
 
 !
@@ -1191 +1195 @@
                 time_factor(:) = emt_att%mdh_emis_time_factor(:,index_mm) *    &
                                  emt_att%mdh_emis_time_factor(:,index_dd) *    &
-                                 emt_att%mdh_emis_time_factor(:,index_hh)
+                                 emt_att%mdh_emis_time_factor(:,index_hh+1)
 
 !
@@ -1240 +1244 @@
 
           index_hh = hour_of_day
-          time_factor(1) = par_emis_time_factor(index_hh)
+          time_factor(1) = par_emis_time_factor(index_hh+1)
 
        ENDIF  ! emiss_lod
@@ -1470 +1474 @@
              emis_distribution(1,nys:nyn,nxl:nxr,ispec) =                                &
                        emt(match_spec_input(ispec))%                                     &
-                           preproc_emission_data(index_hh,1,nys+1:nyn+1,nxl+1:nxr+1) *   &
+                           preproc_emission_data(index_hh+1,1,nys+1:nyn+1,nxl+1:nxr+1) * &
                        conversion_factor