Changeset 3886

Timestamp:

Apr 11, 2019 5:21:03 PM (5 years ago)

Author:

suehring

Message:

bugfixes: uninitialized variable in dry deposition; emission output

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id: chemistry_model_mod.f90 3784 2019-03-05 14:16:20Z banzhafs
+! Bugfix, uncomment erroneous commented variable used for dry deposition. 
+! Bugfix in 3D emission output. 
+! 
+! 3784 2019-03-05 14:16:20Z banzhafs
 ! Changes related to global restructuring of location messages and introduction 
 ! of additional debug messages
@@ -1399 +1403 @@
     IF ( variable(1:3) == 'em_' )  THEN
 
-       local_pf = 0.0_wp
-
        DO  lsp = 1, nvar   !!! cssws - nvar species, chem_species - nspec species !!!
           IF ( TRIM( spec_name ) == TRIM( chem_species(lsp)%name) )  THEN
+          
+             local_pf = 0.0_wp
 !
 !--          no average for now
@@ -4057 +4061 @@
 !--             Atmospheric concentration in DEPAC is requested in ug/m3:
 !--                 ug/m3              ppm          (ug/m3)/ppm/(kg/mole)     kg/mole
-!--             conc_ijk_ugm3 = conc_ijk(lsp)         * ppm2ugm3 *   specmolm(i_pspec)  ! in ug/m3
+                conc_ijk_ugm3 = conc_ijk(lsp)         * ppm2ugm3 *   specmolm(i_pspec)  ! in ug/m3
 !
 !--             Diffusivity for DEPAC relevant gases