Changeset 2766 for palm/trunk/SOURCE/init_3d_model.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/init_3d_model.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed preprocessor directive __chem
+! 
+! 2758 2018-01-17 12:55:21Z suehring
 ! In case of spinup of land- and urban-surface model, do not mask wind velocity
 ! at first computational grid level
@@ -411 +414 @@
     USE arrays_3d
 
-#if defined( __chem )
     USE chemistry_model_mod,                                                   &
         ONLY:  chem_emissions
-#endif
 
     USE cloud_parameters,                                                      &
@@ -2302 +2303 @@
 !-- If required, set chemical emissions
 !-- (todo(FK): This should later on be CALLed time-dependently in init_3d_model)
-#if defined( __chem )
     IF ( air_chemistry ) THEN
        CALL chem_emissions
     ENDIF
-#endif
 
 !