Changeset 3833 for palm/trunk/SOURCE/multi_agent_system_mod.f90

Timestamp:

Mar 28, 2019 3:04:04 PM (5 years ago)

Author:

forkel

Message:

removed USE chem_gasphase_mod from chem_modules, apply USE chem_gasphase for nvar, nspec, cs_mech and spc_names instead

File:

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

palm/trunk/SOURCE/multi_agent_system_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! replaced nspec by nvar: only variable species should bconsidered, fixed species are not relevant 
+! 
+! 3766 2019-02-26 16:23:41Z raasch
 ! save attribute added to local targets to avoid outlive pointer target warning
 ! 
@@ -3015 +3018 @@
 
 !       USE chem_gasphase_mod,                                                  &
-!           ONLY:  nspec
+!           ONLY:  nvar
 
 !       USE chemistry_model_mod,                                                &
@@ -3108 +3111 @@
 ! !--    Get indices of PM10 and PM2.5 species, if active
 !        IF ( air_chemistry ) THEN
-!           DO il = 1, nspec
+!           DO il = 1, nvar
 ! print*,chem_species(il)%name
 ! !              IF ( spec_name(1:4) == 'PM10' ) THEN