Changeset 2766 for palm/trunk/SOURCE/boundary_conds.f90

Timestamp:

Jan 22, 2018 5:17:47 PM (6 years ago)

Author:

kanani

Message:

Removal of chem directive, plus minor changes

File:

• palm/trunk/SOURCE/boundary_conds.f90 (modified) (4 diffs)

palm/trunk/SOURCE/boundary_conds.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed preprocessor directive __chem
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -179 +182 @@
                w, w_p, w_m_l, w_m_n, w_m_r, w_m_s, pt_init
 
-#if defined( __chem )
     USE chemistry_model_mod,                                                   &
         ONLY:  chem_boundary_conds 
-#endif
               
     USE control_parameters,                                                    &
@@ -525 +526 @@
 !
 !-- Top/bottom boundary conditions for chemical species
-#if defined( __chem )
     IF ( air_chemistry )  CALL chem_boundary_conds( 'set_bc_bottomtop' )
-#endif
 !
 !-- In case of inflow or nest boundary at the south boundary the boundary for v
@@ -630 +629 @@
 !
 !-- Lateral boundary conditions for chemical species
-#if defined( __chem )
     IF ( air_chemistry )  CALL chem_boundary_conds( 'set_bc_lateral' )    
-#endif
-
 
 !