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

Removal of chem directive, plus minor changes

File:
1 edited

Legend:

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

    r2756 r2766  
    2525! -----------------
    2626! $Id$
     27! Removed preprocessor directive __chem
     28!
     29! 2756 2018-01-16 18:11:14Z suehring
    2730! Fill values for 3D output of chemical species introduced.
    2831!
     
    185188    USE averaging
    186189       
    187 #if defined( __chem )
    188190    USE chemistry_model_mod,                                                   &
    189191        ONLY:  chem_data_output_3d
    190 #endif       
    191192
    192193    USE cloud_parameters,                                                      &
     
    680681!
    681682!--          Chemistry model output
    682 #if defined( __chem )
    683683             IF ( .NOT. found  .AND.  air_chemistry )  THEN
    684684                CALL chem_data_output_3d( av, do3d(av,if), found,              &
     
    686686                resorted = .TRUE.
    687687             ENDIF
    688 #endif
    689688
    690689!
Note: See TracChangeset for help on using the changeset viewer.