Ignore:
Timestamp:
Nov 23, 2018 9:20:21 AM (3 years ago)
Author:
raasch
Message:

bugfix to guarantee correct particle releases in case that the release interval is smaller than the model timestep

File:
1 edited

Legend:

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

    r3405 r3560  
    2525! -----------------
    2626! $Id$
     27! time_prel replaced by last_particle_release_time
     28!
     29! 3405 2018-10-23 15:34:41Z raasch
    2730! bugfix: BIND attribute added to derived type particle_type
    2831!
     
    186189    REAL(wp) ::  end_time_prel = 9999999.9_wp              !< namelist parameter (see documentation)
    187190    REAL(wp) ::  initial_weighting_factor = 1.0_wp         !< namelist parameter (see documentation)
     191    REAL(wp) ::  last_particle_release_time = 0.0_wp       !< last time of particle release
    188192    REAL(wp) ::  log_sigma(3) = 1.0_wp                     !< namelist parameter (see documentation)
    189193    REAL(wp) ::  na(3) = 0.0_wp                            !< namelist parameter (see documentation)
     
    194198    REAL(wp) ::  rm(3) = 1.0E-6_wp                         !< namelist parameter (see documentation)
    195199    REAL(wp) ::  sgs_wf_part                               !< parameter for sgs
    196     REAL(wp) ::  time_prel = 0.0_wp                        !< time for particle release
    197200    REAL(wp) ::  time_write_particle_data = 0.0_wp         !< write particle data at current time on file
    198201    REAL(wp) ::  weight_factor_merge = -1.0_wp             !< namelist parameter (see documentation)
Note: See TracChangeset for help on using the changeset viewer.