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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed preprocessor directive __chem
+! 
+! 2746 2018-01-15 12:06:04Z suehring
 ! Move flag plant canopy to modules
 ! 
@@ -266 +269 @@
                w, w_p
 
-#if defined( __chem )
     USE chemistry_model_mod,                                                   &
         ONLY:  chem_integrate, chem_species,                                   &
@@ -276 +278 @@
     USE chem_modules,                                                          &
         ONLY:  call_chem_at_all_substeps, chem_gasphase_on
-#endif
 
     USE control_parameters,                                                    &
@@ -444 +445 @@
 !-- since exchange of ghost points is required after this update of the
 !-- concentrations of chemical species                                    
-#if defined( __chem )
     IF ( air_chemistry )  THEN
 !
@@ -478 +478 @@
 
     ENDIF       
-#endif     
 
 !
@@ -1298 +1297 @@
 !
 !--       If required, compute prognostic equation for chemical quantites
-#if defined( __chem )
           IF ( air_chemistry )  THEN
              CALL cpu_log( log_point(83), '(chem advec+diff+prog)', 'start' )
@@ -1317 +1315 @@
              CALL cpu_log( log_point(83), '(chem advec+diff+prog)', 'stop' )             
           ENDIF   ! Chemicals equations                     
-#endif
 
        ENDDO