Changeset 3560 for palm/trunk/SOURCE/mod_particle_attributes.f90

Timestamp:

Nov 23, 2018 9:20:21 AM (6 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/mod_particle_attributes.f90 (modified) (3 diffs)

palm/trunk/SOURCE/mod_particle_attributes.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! time_prel replaced by last_particle_release_time
+! 
+! 3405 2018-10-23 15:34:41Z raasch
 ! bugfix: BIND attribute added to derived type particle_type
 ! 
@@ -186 +189 @@
     REAL(wp) ::  end_time_prel = 9999999.9_wp              !< namelist parameter (see documentation)
     REAL(wp) ::  initial_weighting_factor = 1.0_wp         !< namelist parameter (see documentation)
+    REAL(wp) ::  last_particle_release_time = 0.0_wp       !< last time of particle release
     REAL(wp) ::  log_sigma(3) = 1.0_wp                     !< namelist parameter (see documentation)
     REAL(wp) ::  na(3) = 0.0_wp                            !< namelist parameter (see documentation)
@@ -194 +198 @@
     REAL(wp) ::  rm(3) = 1.0E-6_wp                         !< namelist parameter (see documentation)
     REAL(wp) ::  sgs_wf_part                               !< parameter for sgs
-    REAL(wp) ::  time_prel = 0.0_wp                        !< time for particle release
     REAL(wp) ::  time_write_particle_data = 0.0_wp         !< write particle data at current time on file
     REAL(wp) ::  weight_factor_merge = -1.0_wp             !< namelist parameter (see documentation)