Changeset 3858

Timestamp:

Apr 3, 2019 2:41:42 PM (6 years ago)

Author:

suehring

Message:

Avoid local communication in offline nesting when it is not necessary

File:

• palm/trunk/SOURCE/nesting_offl_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/nesting_offl_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Do local data exchange for chemistry variables only when boundary data is  
+! coming from dynamic file
+! 
+! 3737 2019-02-12 16:57:06Z suehring
 ! Introduce mesoscale nesting for chemical species
 ! 
@@ -691 +695 @@
        IF ( air_chemistry )  THEN
           DO  n = 1, UBOUND( chem_species, 1 )
-             CALL exchange_horiz( chem_species(n)%conc, nbgp )
+!
+!--          Do local exchange only when necessary, i.e. when data is coming 
+!--          from dynamic file.
+             IF ( nest_offl%chem_from_file_t(n) )                              &
+                CALL exchange_horiz( chem_species(n)%conc, nbgp )
           ENDDO
        ENDIF