Changeset 4154 for palm/trunk/SOURCE/chemistry_model_mod.f90

Timestamp:

Aug 13, 2019 1:35:59 PM (5 years ago)

Author:

suehring

Message:

Bugfix in chemistry decycling; Replace global arrays to setup chemical emissions by local ones

File:

• palm/trunk/SOURCE/chemistry_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Bugfix in decycling
+! 
+! 4115 2019-07-24 12:50:49Z suehring
 ! Fix faulty IF statement in decycling initialization
 ! 
@@ -2729 +2732 @@
           DO WHILE ( TRIM( cs_name( lsp_usr ) ) /= 'novalue' )
              IF ( TRIM(chem_species(lsp)%name) == TRIM(cs_name(lsp_usr)) )  THEN
-
-                CALL chem_boundary_conds( chem_species(lsp)%conc_p,                     &
-                                                  chem_species(lsp)%conc_pr_init ) 
+!
+!--             As chem_exchange_horiz_bounds is called at the beginning
+!--             of prognostic_equations, boundary conditions are set on 
+!--             %conc. 
+                CALL chem_boundary_conds( chem_species(lsp)%conc,              &
+                                          chem_species(lsp)%conc_pr_init ) 
              
              ENDIF
-             lsp_usr = lsp_usr +1
+             lsp_usr = lsp_usr + 1
           ENDDO