Changeset 2773 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Jan 30, 2018 2:12:54 PM (6 years ago)

Author:

suehring

Message:

Nesting for chemical species implemented; Bugfix passive scalar boundary condition after anterpolation; Timeseries output of surface temperature; Enable initialization of 3D topography (was commented out so far)

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! - Nesting for chemical species
+! 
+! 2766 2018-01-22 17:17:47Z kanani
 ! Removed preprocessor directive __chem
 ! 
@@ -756 +759 @@
                 IF ( passive_scalar )  CALL exchange_horiz( s, nbgp )
                 IF ( .NOT. constant_diffusion )  CALL exchange_horiz( e, nbgp )
+
+                IF ( air_chemistry )  THEN
+                   DO  n = 1, nspec     
+                      CALL exchange_horiz( chem_species(n)%conc, nbgp ) 
+                   ENDDO
+                ENDIF
+
              ENDIF
 !