Ignore:
Timestamp:
Aug 14, 2019 9:19:12 AM (22 months ago)
Author:
suehring
Message:

chem_emissions: Replace global arrays also in mode_emis branch; diagnostic output: restructure initialization in order to work also when data output during spin-up is enabled; radiation: give informative message on raytracing distance only by core zero not by all cores

File:
1 edited

Legend:

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

    r4154 r4157  
    2727! -----------------
    2828! $Id$
     29! Replace global arrays also in mode_emis branch
     30!
     31! 4154 2019-08-13 13:35:59Z suehring
    2932! Replace global arrays for emissions by local ones.
    3033!
     
    899902
    900903                IF  (  .NOT.  ALLOCATED( emis_distribution) )  THEN
    901                    ALLOCATE( emis_distribution(1,0:ny,0:nx,n_matched_vars) )
     904                   ALLOCATE( emis_distribution(1,nys:nyn,nxl:nxr,n_matched_vars) )
    902905                ENDIF
    903906
     
    907910
    908911                IF  (  .NOT.  ALLOCATED( emis_distribution) )  THEN
    909                    ALLOCATE( emis_distribution(1,0:ny,0:nx,n_matched_vars) )
     912                   ALLOCATE( emis_distribution(1,nys:nyn,nxl:nxr,n_matched_vars) )
    910913                ENDIF
    911914
     
    915918
    916919                IF  (  .NOT.  ALLOCATED( emis_distribution) )  THEN
    917                    ALLOCATE( emis_distribution(nzb:nzt+1,0:ny,0:nx,n_matched_vars) )
     920                   ALLOCATE( emis_distribution(nzb:nzt+1,nys:nyn,nxl:nxr,n_matched_vars) )
    918921                ENDIF
    919922 
Note: See TracChangeset for help on using the changeset viewer.