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

Timestamp:

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

Author:

kanani

Message:

Removal of chem directive, plus minor changes

File:

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

palm/trunk/SOURCE/data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed preprocessor directive __chem
+! 
+! 2756 2018-01-16 18:11:14Z suehring
 ! Fill values for 3D output of chemical species introduced.
 ! 
@@ -185 +188 @@
     USE averaging
         
-#if defined( __chem )
     USE chemistry_model_mod,                                                   &
         ONLY:  chem_data_output_3d
-#endif        
 
     USE cloud_parameters,                                                      &
@@ -680 +681 @@
 !
 !--          Chemistry model output
-#if defined( __chem )
              IF ( .NOT. found  .AND.  air_chemistry )  THEN
                 CALL chem_data_output_3d( av, do3d(av,if), found,              &
@@ -686 +686 @@
                 resorted = .TRUE.
              ENDIF
-#endif
 
 !