Changeset 693 for palm/trunk/SOURCE
- Timestamp:
- Mar 8, 2011 8:27:49 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pres.f90
r682 r693 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bugfix: weighting coefficient added to ibm branch 6 7 ! 7 8 ! Former revisions: … … 291 292 ENDDO 292 293 293 localsum = ( localsum + threadsum ) * dt_3d 294 localsum = ( localsum + threadsum ) * dt_3d * & 295 weight_pres(intermediate_timestep_count) 296 294 297 !$OMP END PARALLEL 295 298 #else
Note: See TracChangeset
for help on using the changeset viewer.