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

palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Removed preprocessor directive __chem
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -207 +210 @@
                drho_air_zw, rho_air_zw
 
-#if defined( __chem )
     USE chem_modules,                                                          &
         ONLY:  constant_csflux, nvar
-#endif
 
     USE cloud_parameters,                                                      &
@@ -1814 +1815 @@
 !
 !--    If required compute cs* (chemical species)
-#if defined( __chem )
        IF ( air_chemistry  )  THEN  
 !
@@ -1842 +1842 @@
           ENDIF
        ENDIF
-#endif
 
 !
@@ -2050 +2049 @@
 !
 !--       Compute the vertical chemical species' flux
-#if defined( __chem )
           DO  lsp = 1, nvar
              IF (  .NOT.  constant_csflux(lsp)  .AND.  air_chemistry  .AND.    &
@@ -2062 +2060 @@
              ENDIF   
           ENDDO
-#endif
 
 !