Changeset 3833 for palm/trunk/SOURCE/time_integration.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/time_integration.f90 (modified) (5 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! added USE chem_gasphase_mod, replaced nspec by nvar since fixed compounds are not integrated
+! 
+! 3820 2019-03-27 11:53:41Z forkel
 ! renamed do_emiss to emissions_anthropogenic (ecc)
 ! 
@@ -489 +492 @@
         ONLY:  chem_emissions_setup
 
+    USE chem_gasphase_mod,                                                                         &
+        ONLY:  nvar
+
     USE chem_modules,                                                                              &
-        ONLY:  bc_cs_t_val, cs_name, emissions_anthropogenic, nspec, nspec_out
+        ONLY:  bc_cs_t_val, cs_name, emissions_anthropogenic, nspec_out
 
     USE chemistry_model_mod,                                                                       &
@@ -844 +850 @@
            bc_q_t_val  = ( q_init(nzt+1) - q_init(nzt) ) / dzu(nzt+1)
            IF ( air_chemistry )  THEN
-              DO  lsp = 1, nspec
+              DO  lsp = 1, nvar
                  bc_cs_t_val = (  chem_species(lsp)%conc_pr_init(nzt+1)                            &
                                 - chem_species(lsp)%conc_pr_init(nzt) )                            &
@@ -1007 +1013 @@
           IF ( passive_scalar )  CALL exchange_horiz( s_p, nbgp )
           IF ( air_chemistry )  THEN
-             DO  lsp = 1, nspec
+             DO  lsp = 1, nvar
                 CALL exchange_horiz( chem_species(lsp)%conc_p, nbgp )
 !
@@ -1110 +1116 @@
 
                 IF ( air_chemistry )  THEN
-                   DO  n = 1, nspec     
+                   DO  n = 1, nvar     
                       CALL exchange_horiz( chem_species(n)%conc, nbgp ) 
                    ENDDO