Ignore:
Timestamp:
Nov 20, 2017 3:35:52 PM (4 years ago)
Author:
schwenkel
Message:

bugfix in write statement

File:
1 edited

Legend:

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

    r2630 r2632  
    2525! -----------------
    2626! $Id$
     27! Bugfix in write statement
     28!
     29! 2630 2017-11-20 12:58:20Z schwenkel
    2730! Enabled particle advection with grid stretching. Furthermore, the CFL-
    2831! criterion is checked for every particle at every time step.
     
    11391142             particles => grid_particles(k,j,i)%particles(1:number_of_particles)         
    11401143             DO n = 1, number_of_particles
    1141    
    11421144                IF(ABS(particles(n)%speed_x) >                                 &
    11431145                   (dx/(particles(n)%age-particles(n)%age_m))  .OR.            &
     
    11461148                   ABS(particles(n)%speed_z) >                                 &
    11471149                   ((zw(k)-zw(k-1))/(particles(n)%age-particles(n)%age_m))) THEN
    1148                    WRITE( message_string, * ) 'PARTICLE VIOLATED CFL CRITERION'&
    1149                    ': particle with id ',particles(n)%id,' will be deleted!'   
     1150                   WRITE( message_string, * )                                  &
     1151                   'Particle violated CFL-criterion: particle with id ',       &
     1152                   particles(n)%id,' will be deleted!'   
    11501153                   CALL message( 'lpm_check_cfl', 'PA0475', 0, 1, 0, 6, 0 )
    11511154                   particles(n)%particle_mask= .FALSE.
Note: See TracChangeset for help on using the changeset viewer.