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

Timestamp:

Mar 28, 2019 3:04:04 PM (6 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/chem_modules.f90 (modified) (3 diffs)

palm/trunk/SOURCE/chem_modules.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! removed USE chem_gasphase_mod
+! 
+! 3827 2019-03-27 17:20:32Z forkel
 ! some formatting  and reordering (ecc) 
 ! 
@@ -75 +78 @@
  MODULE chem_modules
 
-    USE chem_gasphase_mod,                                                     &   
-        ONLY: cs_mech, nspec, nvar, spc_names
-
     USE control_parameters,                                                    &
         ONLY: varnamelength
@@ -84 +84 @@
 
     IMPLICIT NONE
-
-    PUBLIC cs_mech
-    PUBLIC nspec
-    PUBLIC nvar
-    PUBLIC spc_names
 
     CHARACTER (LEN=20)                ::  bc_cs_b             = 'dirichlet'         !< namelist parameter