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/palm.f90

    r2720 r2766  
    2525! -----------------
    2626! $Id$
     27! Removed preprocessor directive __chem
     28!
     29! 2720 2018-01-02 16:27:15Z kanani
    2730! Version update to 5.0
    2831!
     
    205208    USE arrays_3d
    206209
    207 #if defined( __chem )
    208210    USE chemistry_model_mod,                                                   &
    209211        ONLY:  chem_init, chem_last_actions
     212
    210213    USE chem_photolysis_mod,                                                   &
    211214        ONLY:  photolysis_init
    212 #endif
    213215
    214216    USE control_parameters,                                                    &
     
    374376!-- Initialize chemistry (called before check_parameters due to dependencies)
    375377!-- --> Needs to be moved!! What is the dependency about?
    376 #if defined( __chem )
    377378! IF (  TRIM( initializing_actions ) /= 'read_restart_data' )  THEN
    378379    IF ( air_chemistry )  THEN
     
    381382    ENDIF
    382383! END IF
    383 #endif
    384384!
    385385!-- Check control parameters and deduce further quantities
     
    518518             CALL radiation_last_actions
    519519          ENDIF
    520 #if defined( __chem )
    521520          IF ( air_chemistry )  THEN
    522521             CALL chem_last_actions
    523522          ENDIF
    524 #endif
    525523         
    526524          CALL user_last_actions
Note: See TracChangeset for help on using the changeset viewer.