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

    r2765 r2766  
    2525! -----------------
    2626! $Id$
     27! Removed preprocessor directive __chem
     28!
     29! 2765 2018-01-22 11:34:58Z maronga
    2730! Renamed simulation_time_since_reference to
    2831! time_to_be_simulated_from_reference_point
     
    578581
    579582    USE arrays_3d
    580 #if defined( __chem )
    581583    USE chemistry_model_mod,                                                   &
    582584        ONLY:  chem_boundary_conds, chem_check_data_output,                    &
    583585               chem_check_data_output_pr, chem_species                 
    584586    USE chem_modules
    585 #endif
    586587    USE cloud_parameters
    587588    USE constants
     
    14011402       IF ( ocean          )  sa_init = sa_surface
    14021403       IF ( passive_scalar )  s_init  = s_surface
    1403 #if defined(__chem )                             
    14041404       IF ( air_chemistry )  THEN
    14051405         DO lsp = 1, nvar
     
    14071407         ENDDO
    14081408       ENDIF
    1409 #endif
    14101409!
    14111410!--
     
    16191618!
    16201619!--    Compute initial chemistry profile using the given chemical species gradients
    1621 #if defined( __chem )
    16221620       IF ( air_chemistry )  THEN                                                         
    16231621         DO lsp = 1, nvar
     
    16291627         ENDDO
    16301628       ENDIF
    1631 #endif
    16321629!
    16331630!
     
    21132110!
    21142111!-- Boundary conditions for chemical species
    2115 #if defined( __chem )
    21162112    IF ( air_chemistry )  CALL chem_boundary_conds( 'init' )
    2117 #endif
    21182113
    21192114!
     
    30703065             ENDIF
    30713066
    3072 #if defined( __chem )
    30733067             IF ( unit == 'illegal' )  THEN                                       
    30743068                CALL chem_check_data_output_pr( data_output_pr(i), i,          &
    30753069                                                unit, dopr_unit(i) )
    30763070             ENDIF
    3077 #endif
    30783071
    30793072             IF ( unit == 'illegal' )  THEN
     
    33863379!
    33873380!--          Block of chemistry model outputs
    3388 #if defined( __chem )
    33893381             IF ( unit == 'illegal'  .AND.  air_chemistry                      &
    33903382                                     .AND.  var(1:3) == 'kc_' )  THEN
    33913383                CALL chem_check_data_output( var, unit, i, ilen, k )
    33923384             ENDIF
    3393 #endif
    33943385
    33953386!
Note: See TracChangeset for help on using the changeset viewer.