Ignore:
Timestamp:
Jun 4, 2014 4:04:03 PM (7 years ago)
Author:
suehring
Message:

Bugfixes concerning new particle structure

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lpm.f90

    r1360 r1416  
    2020! Current revisions:
    2121! ------------------
    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. 
    2325!
    2426! Former revisions:
     
    223225       CALL cpu_log( log_point_s(44), 'lpm_advec', 'start' )
    224226       CALL cpu_log( log_point_s(44), 'lpm_advec', 'pause' )
     227       
     228       grid_particles(:,:,:)%time_loop_done = .TRUE.
    225229!
    226230!--    If particle advection includes SGS velocity components, calculate the
     
    287291!--             User-defined actions after the calculation of the new particle
    288292!--             position
    289                 CALL user_lpm_advec
     293                CALL user_lpm_advec(i,j,k)
    290294!
    291295!--             Apply boundary conditions to those particles that have crossed
Note: See TracChangeset for help on using the changeset viewer.