Changeset 1416 for palm/trunk/SOURCE/lpm.f90
- Timestamp:
- Jun 4, 2014 4:04:03 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm.f90
r1360 r1416 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! user_lpm_advec is called for each gridpoint. 23 ! Bugfix: in order to prevent an infinite loop, time_loop_done is set .TRUE. 24 ! at the head of the do-loop. 23 25 ! 24 26 ! Former revisions: … … 223 225 CALL cpu_log( log_point_s(44), 'lpm_advec', 'start' ) 224 226 CALL cpu_log( log_point_s(44), 'lpm_advec', 'pause' ) 227 228 grid_particles(:,:,:)%time_loop_done = .TRUE. 225 229 ! 226 230 !-- If particle advection includes SGS velocity components, calculate the … … 287 291 !-- User-defined actions after the calculation of the new particle 288 292 !-- position 289 CALL user_lpm_advec 293 CALL user_lpm_advec(i,j,k) 290 294 ! 291 295 !-- Apply boundary conditions to those particles that have crossed
Note: See TracChangeset
for help on using the changeset viewer.