Changeset 3886 for palm/trunk


Ignore:
Timestamp:
Apr 11, 2019 5:21:03 PM (2 years ago)
Author:
suehring
Message:

bugfixes: uninitialized variable in dry deposition; emission output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/chemistry_model_mod.f90

    r3885 r3886  
    2727! -----------------
    2828! $Id: chemistry_model_mod.f90 3784 2019-03-05 14:16:20Z banzhafs
     29! Bugfix, uncomment erroneous commented variable used for dry deposition.
     30! Bugfix in 3D emission output.
     31!
     32! 3784 2019-03-05 14:16:20Z banzhafs
    2933! Changes related to global restructuring of location messages and introduction
    3034! of additional debug messages
     
    13991403    IF ( variable(1:3) == 'em_' )  THEN
    14001404
    1401        local_pf = 0.0_wp
    1402 
    14031405       DO  lsp = 1, nvar   !!! cssws - nvar species, chem_species - nspec species !!!
    14041406          IF ( TRIM( spec_name ) == TRIM( chem_species(lsp)%name) )  THEN
     1407         
     1408             local_pf = 0.0_wp
    14051409!
    14061410!--          no average for now
     
    40574061!--             Atmospheric concentration in DEPAC is requested in ug/m3:
    40584062!--                 ug/m3              ppm          (ug/m3)/ppm/(kg/mole)     kg/mole
    4059 !--             conc_ijk_ugm3 = conc_ijk(lsp)         * ppm2ugm3 *   specmolm(i_pspec)  ! in ug/m3
     4063                conc_ijk_ugm3 = conc_ijk(lsp)         * ppm2ugm3 *   specmolm(i_pspec)  ! in ug/m3
    40604064!
    40614065!--             Diffusivity for DEPAC relevant gases
Note: See TracChangeset for help on using the changeset viewer.