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/lpm_write_restart_file.f90

    r2718 r3560  
    2525! -----------------
    2626! $Id$
     27! time_prel replaced by last_particle_release_time
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    7578    USE particle_attributes,                                                   &
    7679        ONLY:  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t, grid_particles,       &
    77                number_of_particles, number_of_particle_groups,                 &
    78                particles, particle_groups, prt_count, time_prel,               &
    79                time_write_particle_data
     80               last_particle_release_time, number_of_particles,                &
     81               number_of_particle_groups, particles, particle_groups,          &
     82               prt_count, time_write_particle_data
    8083
    8184    USE pegrid
     
    119122!-- Write some particle parameters, the size of the particle arrays as
    120123!-- well as other dvrp-plot variables.
    121     WRITE ( 90 )  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,              &
    122                   number_of_particle_groups, particle_groups, time_prel, &
    123                   time_write_particle_data
     124    WRITE ( 90 )  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,                    &
     125                  last_particle_release_time, number_of_particle_groups,      &
     126                  particle_groups, time_write_particle_data
    124127
    125128    WRITE ( 90 )  prt_count
Note: See TracChangeset for help on using the changeset viewer.