Changeset 3560 for palm/trunk/SOURCE/lpm_write_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_write_restart_file.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_write_restart_file.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! time_prel replaced by last_particle_release_time
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -75 +78 @@
     USE particle_attributes,                                                   &
         ONLY:  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t, grid_particles,       &
-               number_of_particles, number_of_particle_groups,                 &
-               particles, particle_groups, prt_count, time_prel,               &
-               time_write_particle_data
+               last_particle_release_time, number_of_particles,                &
+               number_of_particle_groups, particles, particle_groups,          &
+               prt_count, time_write_particle_data
 
     USE pegrid
@@ -119 +122 @@
 !-- Write some particle parameters, the size of the particle arrays as
 !-- well as other dvrp-plot variables.
-    WRITE ( 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
+    WRITE ( 90 )  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,                    &
+                  last_particle_release_time, number_of_particle_groups,       &
+                  particle_groups, time_write_particle_data
 
     WRITE ( 90 )  prt_count