Ignore:
Timestamp:
Oct 30, 2018 7:05:21 PM (3 years ago)
Author:
suehring
Message:

Branch salsa @3446 re-integrated into trunk

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/swap_timelevel.f90

    r3303 r3467  
    2525! -----------------
    2626! $Id$
     27! Implementation of a new aerosol module salsa.
     28!
     29! 3303 2018-10-03 12:04:15Z raasch
    2730! bugfix for swapping in case of ocean mode
    2831!
     
    158161    USE control_parameters,                                                    &
    159162        ONLY:  air_chemistry, humidity, land_surface, neutral, ocean_mode,     &
    160                passive_scalar, timestep_count, urban_surface
     163               passive_scalar, simulated_time, timestep_count, urban_surface,  &
     164               time_since_reference_point
    161165
    162166    USE gust_mod,                                                              &
     
    176180    USE pmc_interface,                                                         &
    177181        ONLY: nested_run, pmci_set_swaplevel
     182         
     183    USE salsa_mod,                                                             &
     184        ONLY:  salsa, salsa_swap_timelevel, skip_time_do_salsa             
    178185
    179186    USE turbulence_closure_mod,                                                &
     
    285292       CALL ocean_swap_timelevel( MOD( timestep_count, 2 ) )
    286293    ENDIF
     294   
     295    IF ( salsa  .AND.  simulated_time >= time_since_reference_point )  THEN
     296       CALL salsa_swap_timelevel(  MOD( timestep_count, 2 ) )
     297    ENDIF 
    287298
    288299    CALL tcm_swap_timelevel( MOD( timestep_count, 2) )
Note: See TracChangeset for help on using the changeset viewer.