Ignore:
Timestamp:
Jan 22, 2018 5:17:47 PM (3 years ago)
Author:
kanani
Message:

Removal of chem directive, plus minor changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

    r2718 r2766  
    2626! -----------------
    2727! $Id$
     28! Removed preprocessor directive __chem
     29!
     30! 2718 2018-01-02 08:49:38Z maronga
    2831! Corrected "Former revisions" section
    2932!
     
    207210               drho_air_zw, rho_air_zw
    208211
    209 #if defined( __chem )
    210212    USE chem_modules,                                                          &
    211213        ONLY:  constant_csflux, nvar
    212 #endif
    213214
    214215    USE cloud_parameters,                                                      &
     
    18141815!
    18151816!--    If required compute cs* (chemical species)
    1816 #if defined( __chem )
    18171817       IF ( air_chemistry  )  THEN 
    18181818!
     
    18421842          ENDIF
    18431843       ENDIF
    1844 #endif
    18451844
    18461845!
     
    20502049!
    20512050!--       Compute the vertical chemical species' flux
    2052 #if defined( __chem )
    20532051          DO  lsp = 1, nvar
    20542052             IF (  .NOT.  constant_csflux(lsp)  .AND.  air_chemistry  .AND.    &
     
    20622060             ENDIF   
    20632061          ENDDO
    2064 #endif
    20652062
    20662063!
Note: See TracChangeset for help on using the changeset viewer.