Changeset 790 for palm/trunk/SOURCE/sum_up_3d_data.f90
- Timestamp:
- Nov 29, 2011 3:11:20 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/sum_up_3d_data.f90
r772 r790 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bugfix: calculation of 'pr' must depend on the particle weighting factor 6 7 ! 7 8 ! Former revisions: … … 295 296 s_r4 = 0.0 296 297 DO n = psi, psi+prt_count(k,j,i)-1 297 s_r3 = s_r3 + particles(n)%radius**3 298 s_r4 = s_r4 + particles(n)%radius**4 298 s_r3 = s_r3 + particles(n)%radius**3 * & 299 particles(n)%weight_factor 300 s_r4 = s_r4 + particles(n)%radius**4 * & 301 particles(n)%weight_factor 299 302 ENDDO 300 303 IF ( s_r3 /= 0.0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.