Ignore:
Timestamp:
Aug 13, 2019 1:35:59 PM (2 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

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

    r4115 r4154  
    2727! -----------------
    2828! $Id$
     29! Bugfix in decycling
     30!
     31! 4115 2019-07-24 12:50:49Z suehring
    2932! Fix faulty IF statement in decycling initialization
    3033!
     
    27292732          DO WHILE ( TRIM( cs_name( lsp_usr ) ) /= 'novalue' )
    27302733             IF ( TRIM(chem_species(lsp)%name) == TRIM(cs_name(lsp_usr)) )  THEN
    2731 
    2732                 CALL chem_boundary_conds( chem_species(lsp)%conc_p,                     &
    2733                                                   chem_species(lsp)%conc_pr_init )
     2734!
     2735!--             As chem_exchange_horiz_bounds is called at the beginning
     2736!--             of prognostic_equations, boundary conditions are set on
     2737!--             %conc.
     2738                CALL chem_boundary_conds( chem_species(lsp)%conc,              &
     2739                                          chem_species(lsp)%conc_pr_init )
    27342740             
    27352741             ENDIF
    2736              lsp_usr = lsp_usr +1
     2742             lsp_usr = lsp_usr + 1
    27372743          ENDDO
    27382744
Note: See TracChangeset for help on using the changeset viewer.