Changeset 4336 for palm/trunk/SOURCE


Ignore:
Timestamp:
Dec 13, 2019 10:12:05 AM (5 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

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

    r4329 r4336  
    2525! -----------------
    2626! $Id$
     27! bugfix: wrong header output of particle group features (density ratio) in case
     28! of restarts corrected
     29!
     30! 4329 2019-12-10 15:46:36Z motisi
    2731! Renamed wall_flags_0 to wall_flags_static_0
    2832!
     
    695699
    696700       DO  i = 1, number_of_particle_groups
    697           IF ( i == 1  .AND.  density_ratio(i) == 9999999.9_wp )  THEN
    698              WRITE ( io, 490 )  i, 0.0_wp
     701          WRITE ( io, 490 )  i, radius(i)
     702          IF ( density_ratio(i) /= 0.0_wp )  THEN
     703             WRITE ( io, 491 )  density_ratio(i)
     704          ELSE
    699705             WRITE ( io, 492 )
    700           ELSE
    701              WRITE ( io, 490 )  i, radius(i)
    702              IF ( density_ratio(i) /= 0.0_wp )  THEN
    703                 WRITE ( io, 491 )  density_ratio(i)
    704              ELSE
    705                 WRITE ( io, 492 )
    706              ENDIF
    707706          ENDIF
    708707          WRITE ( io, 493 )  psl(i), psr(i), pss(i), psn(i), psb(i), pst(i), &
Note: See TracChangeset for help on using the changeset viewer.