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

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed preprocessor directive __chem
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -314 +317 @@
         ONLY:  calc_mean_profile
 
-#if defined( __chem )
     USE chemistry_model_mod,                                                   &
         ONLY:  chem_emissions, chem_species
@@ -320 +322 @@
     USE chem_modules,                                                          &
         ONLY:  nspec 
-#endif
 
     USE control_parameters,                                                    &
@@ -693 +694 @@
           ENDIF
           IF ( passive_scalar )  CALL exchange_horiz( s_p, nbgp )
-#if defined( __chem )
           IF ( air_chemistry )  THEN
              DO  n = 1, nspec     
@@ -699 +699 @@
              ENDDO
           ENDIF
-#endif
+
           CALL cpu_log( log_point(26), 'exchange-horiz-progn', 'stop' )
 
@@ -1005 +1005 @@
        ENDDO   ! Intermediate step loop
 !
-!--          If required, consider chemical emissions
-!--          (todo (FK): Implement hourly call of emissions, using time_utc from
-!--                      data_and_time_mod.f90;
-!--                      move the CALL to appropriate location)
-! #if defined( __chem )
-!              IF ( air_chemistry ) THEN
-!                 CALL chem_emissions
-!              ENDIF
-! #endif
+!--    If required, consider chemical emissions
+!--    (todo (FK): Implement hourly call of emissions, using time_utc from
+!--                data_and_time_mod.f90;
+!--                move the CALL to appropriate location)
+       IF ( air_chemistry ) THEN
+          CALL chem_emissions
+       ENDIF
 !
 !--    If required, do UV exposure calculations