Changeset 4282

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:

• palm/trunk/SOURCE/lagrangian_particle_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix of particle timeseries in case of more than one particle group
+! 
+! 4277 2019-10-28 16:53:23Z schwenkel
 ! Bugfix: Added first_call_lpm in use statement
 ! 
@@ -2674 +2677 @@
                       ENDIF
                       pts_value_l(jg,15) = pts_value_l(jg,15) + particles(n)%radius
-                      pts_value_l(jg,16) = MIN( pts_value(jg,16), particles(n)%radius )
-                      pts_value_l(jg,17) = MAX( pts_value(jg,17), particles(n)%radius )
+                      pts_value_l(jg,16) = MIN( pts_value_l(jg,16), particles(n)%radius )
+                      pts_value_l(jg,17) = MAX( pts_value_l(jg,17), particles(n)%radius )
                       pts_value_l(jg,18) = pts_value_l(jg,18) + 1.0_wp
                       pts_value_l(jg,19) = pts_value_l(jg,19) + 1.0_wp