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

Timestamp:

Nov 23, 2018 9:20:21 AM (5 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/lpm_read_restart_file.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_read_restart_file.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! time_prel replaced by last_particle_release_time
+! 
+! 3049 2018-05-29 13:52:36Z Giersch
 ! Error messages revised
 ! 
@@ -93 +96 @@
     USE kinds
 
-    USE lpm_pack_and_sort_mod,                                                   &
+    USE lpm_pack_and_sort_mod,                                                 &
         ONLY:  lpm_sort_in_subboxes
 
     USE particle_attributes,                                                   &
         ONLY:  alloc_factor, bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,         &
-               grid_particles, min_nr_particle, number_of_particles,           &
-               number_of_particle_groups, particle_groups, particle_type,      &
-               prt_count, time_prel, time_write_particle_data, zero_particle
+               grid_particles, last_particle_release_time, min_nr_particle,    &
+               number_of_particles, number_of_particle_groups, particle_groups,&
+               particle_type, prt_count, time_write_particle_data, zero_particle
 
     USE pegrid
@@ -153 +156 @@
 !-- allocate them and read their contents.
     READ ( 90 )  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,                     &
-                 number_of_particle_groups, particle_groups, time_prel,        &
-                 time_write_particle_data
+                 last_particle_release_time, number_of_particle_groups,        &
+                 particle_groups, time_write_particle_data
 
     ALLOCATE( prt_count(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                        &