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

palm/trunk/SOURCE/palm.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed preprocessor directive __chem
+! 
+! 2720 2018-01-02 16:27:15Z kanani
 ! Version update to 5.0
 ! 
@@ -205 +208 @@
     USE arrays_3d
 
-#if defined( __chem )
     USE chemistry_model_mod,                                                   &
         ONLY:  chem_init, chem_last_actions
+
     USE chem_photolysis_mod,                                                   &
         ONLY:  photolysis_init
-#endif
 
     USE control_parameters,                                                    &
@@ -374 +376 @@
 !-- Initialize chemistry (called before check_parameters due to dependencies)
 !-- --> Needs to be moved!! What is the dependency about?
-#if defined( __chem )
 ! IF (  TRIM( initializing_actions ) /= 'read_restart_data' )  THEN
     IF ( air_chemistry )  THEN
@@ -381 +382 @@
     ENDIF
 ! END IF
-#endif
 !
 !-- Check control parameters and deduce further quantities
@@ -518 +518 @@
              CALL radiation_last_actions
           ENDIF
-#if defined( __chem )
           IF ( air_chemistry )  THEN
              CALL chem_last_actions
           ENDIF
-#endif
           
           CALL user_last_actions