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

    r2743 r2766  
    2525! -----------------
    2626! $Id$
     27! Removed preprocessor directive __chem
     28!
     29! 2743 2018-01-12 16:03:39Z suehring
    2730! In case of natural- and urban-type surfaces output surfaces fluxes in W/m2.
    2831!
     
    172175               ts_av, tsurf_av, u_av, us_av, v_av, vpt_av, w_av, z0_av, z0h_av,&
    173176               z0q_av
    174 #if defined( __chem )
    175177    USE chemistry_model_mod,                                                   &
    176178        ONLY:  chem_3d_data_averaging, chem_integrate, chem_species, nspec                                   
    177 #endif
    178179
    179180    USE cloud_parameters,                                                      &
     
    10231024!
    10241025!--          Chemical quantity
    1025 #if defined( __chem )               
    10261026             IF ( air_chemistry  .AND.  trimvar(1:3) == 'kc_')  THEN
    10271027                CALL chem_3d_data_averaging( 'sum',doav(ii) )
    10281028             ENDIF
    1029 #endif
    10301029
    10311030!
Note: See TracChangeset for help on using the changeset viewer.