Changeset 4336 for palm/trunk/SOURCE
- Timestamp:
- Dec 13, 2019 10:12:05 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lagrangian_particle_model_mod.f90
r4329 r4336 25 25 ! ----------------- 26 26 ! $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 27 31 ! Renamed wall_flags_0 to wall_flags_static_0 28 32 ! … … 695 699 696 700 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 699 705 WRITE ( io, 492 ) 700 ELSE701 WRITE ( io, 490 ) i, radius(i)702 IF ( density_ratio(i) /= 0.0_wp ) THEN703 WRITE ( io, 491 ) density_ratio(i)704 ELSE705 WRITE ( io, 492 )706 ENDIF707 706 ENDIF 708 707 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.