Changeset 3858 for palm


Ignore:
Timestamp:
Apr 3, 2019 2:41:42 PM (2 years ago)
Author:
suehring
Message:

Avoid local communication in offline nesting when it is not necessary

File:
1 edited

Legend:

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

    r3737 r3858  
    2525! -----------------
    2626! $Id$
     27! Do local data exchange for chemistry variables only when boundary data is 
     28! coming from dynamic file
     29!
     30! 3737 2019-02-12 16:57:06Z suehring
    2731! Introduce mesoscale nesting for chemical species
    2832!
     
    691695       IF ( air_chemistry )  THEN
    692696          DO  n = 1, UBOUND( chem_species, 1 )
    693              CALL exchange_horiz( chem_species(n)%conc, nbgp )
     697!
     698!--          Do local exchange only when necessary, i.e. when data is coming
     699!--          from dynamic file.
     700             IF ( nest_offl%chem_from_file_t(n) )                              &
     701                CALL exchange_horiz( chem_species(n)%conc, nbgp )
    694702          ENDDO
    695703       ENDIF
Note: See TracChangeset for help on using the changeset viewer.