Ignore:
Timestamp:
Aug 13, 2019 1:35:59 PM (23 months 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/chem_emissions_mod.f90

    r4144 r4154  
    2727! -----------------
    2828! $Id$
     29! Replace global arrays for emissions by local ones.
     30!
     31! 4144 2019-08-06 09:11:47Z raasch
    2932! relational operators .EQ., .NE., etc. replaced by ==, /=, etc.
    3033!
     
    860863
    861864                IF  (  .NOT.  ALLOCATED( emis_distribution) )  THEN
    862                    ALLOCATE( emis_distribution(1,0:ny,0:nx,n_matched_vars) )
     865                   ALLOCATE( emis_distribution(1,nys:nyn,nxl:nxr,n_matched_vars) )
    863866                ENDIF
    864867
     
    868871
    869872                IF  (  .NOT.  ALLOCATED( emis_distribution) )  THEN
    870                    ALLOCATE( emis_distribution(1,0:ny,0:nx,n_matched_vars) )
     873                   ALLOCATE( emis_distribution(1,nys:nyn,nxl:nxr,n_matched_vars) )
    871874                ENDIF
    872875
     
    876879
    877880                IF  (  .NOT.  ALLOCATED( emis_distribution) )  THEN
    878                    ALLOCATE( emis_distribution(nzb:nzt+1,0:ny,0:nx,n_matched_vars) )
     881!
     882!--                Note, at the moment emissions are considered only by surface fluxes
     883!--                rather than by volume sources. Therefore, no vertical dimension is
     884!--                required and is thus allocated with 1. Later when volume sources
     885!--                are considered, the vertical dimension will increase.                 
     886                   !ALLOCATE( emis_distribution(nzb:nzt+1,nys:nyn,nxl:nxr,n_matched_vars) )
     887                   ALLOCATE( emis_distribution(1,nys:nyn,nxl:nxr,n_matched_vars) )
    879888                ENDIF
    880889 
Note: See TracChangeset for help on using the changeset viewer.