Changeset 3968 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

May 13, 2019 11:04:01 AM (4 years ago)

Author:

suehring

Message:

Updates from chemistriy branched merged into trunk: code cleaning and formatting, code structure optimizations

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (3 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! replace nspec_out with n_matched_vars
+! 
+! 3929 2019-04-24 12:52:08Z banzhafs
 ! Reverse changes back from revision 3878: use chem_boundary_conds instead of
 ! chem_boundary_conds_decycle
@@ -518 +521 @@
 
     USE chem_modules,                                                                              &
-        ONLY:  bc_cs_t_val, chem_species, cs_name, emissions_anthropogenic, nspec_out
+        ONLY:  bc_cs_t_val, chem_species, cs_name, emissions_anthropogenic, n_matched_vars
 
     USE chemistry_model_mod,                                                                       &
@@ -1448 +1451 @@
 !--       Call emission routine only once an hour
           IF (hour_of_year  .GT.  hour_call_emis )  THEN
-             CALL chem_emissions_setup( chem_emis_att, chem_emis, nspec_out )
+             CALL chem_emissions_setup( chem_emis_att, chem_emis, n_matched_vars )
              hour_call_emis = hour_of_year
           ENDIF