Changeset 3577
- Timestamp:
- Nov 29, 2018 1:11:15 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_init.f90
r3560 r3577 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changed number concentration unit to SI standard 28 ! 29 ! 3560 2018-11-23 09:20:21Z raasch 27 30 ! set the first particle release time 28 31 ! … … 751 754 !-- Calculate initial_weighting_factor diagnostically 752 755 IF ( number_concentration /= -1.0_wp .AND. number_concentration > 0.0_wp ) THEN 753 initial_weighting_factor = number_concentration * 1.0E6_wp *&756 initial_weighting_factor = number_concentration * & 754 757 pdx(1) * pdy(1) * pdz(1) 755 758 END IF
Note: See TracChangeset
for help on using the changeset viewer.