Changeset 4282


Ignore:
Timestamp:
Oct 29, 2019 4:18:46 PM (5 years ago)
Author:
schwenkel
Message:

Bugfix of particle timeseries in case of more than one particle group

File:
1 edited

Legend:

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

    r4277 r4282  
    2525! -----------------
    2626! $Id$
     27! Bugfix of particle timeseries in case of more than one particle group
     28!
     29! 4277 2019-10-28 16:53:23Z schwenkel
    2730! Bugfix: Added first_call_lpm in use statement
    2831!
     
    26742677                      ENDIF
    26752678                      pts_value_l(jg,15) = pts_value_l(jg,15) + particles(n)%radius
    2676                       pts_value_l(jg,16) = MIN( pts_value(jg,16), particles(n)%radius )
    2677                       pts_value_l(jg,17) = MAX( pts_value(jg,17), particles(n)%radius )
     2679                      pts_value_l(jg,16) = MIN( pts_value_l(jg,16), particles(n)%radius )
     2680                      pts_value_l(jg,17) = MAX( pts_value_l(jg,17), particles(n)%radius )
    26782681                      pts_value_l(jg,18) = pts_value_l(jg,18) + 1.0_wp
    26792682                      pts_value_l(jg,19) = pts_value_l(jg,19) + 1.0_wp
Note: See TracChangeset for help on using the changeset viewer.