Changeset 4336 for palm/trunk/SOURCE

Timestamp:

Dec 13, 2019 10:12:05 AM (4 years ago)

Author:

raasch

Message:

bugfix: wrong header output of particle group features (density ratio) in case of restarts corrected

File:

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

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: wrong header output of particle group features (density ratio) in case
+! of restarts corrected
+! 
+! 4329 2019-12-10 15:46:36Z motisi
 ! Renamed wall_flags_0 to wall_flags_static_0
 ! 
@@ -695 +699 @@
 
        DO  i = 1, number_of_particle_groups
-          IF ( i == 1  .AND.  density_ratio(i) == 9999999.9_wp )  THEN
-             WRITE ( io, 490 )  i, 0.0_wp
+          WRITE ( io, 490 )  i, radius(i)
+          IF ( density_ratio(i) /= 0.0_wp )  THEN
+             WRITE ( io, 491 )  density_ratio(i)
+          ELSE
              WRITE ( io, 492 )
-          ELSE
-             WRITE ( io, 490 )  i, radius(i)
-             IF ( density_ratio(i) /= 0.0_wp )  THEN
-                WRITE ( io, 491 )  density_ratio(i)
-             ELSE
-                WRITE ( io, 492 )
-             ENDIF
           ENDIF
           WRITE ( io, 493 )  psl(i), psr(i), pss(i), psn(i), psb(i), pst(i), &