Ignore:
Timestamp:
Feb 22, 2012 11:21:19 AM (10 years ago)
Author:
raasch
Message:

Bugfix: array diss can be used only in case of Wang kernel

File:
1 edited

Legend:

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

    r829 r835  
    44! Current revisions:
    55! -----------------
    6 !
     6! Bugfix: array diss can be used only in case of Wang kernel
    77!
    88! Former revisions:
     
    242242       radclass(1:radius_classes) = particles(pstart:pend)%radius * 100.0
    243243
    244        epsilon = diss(k1,j1,i1) * 1.0E4   ! dissipation rate in cm**2/s**-3
     244       IF ( wang_kernel )  THEN
     245          epsilon = diss(k1,j1,i1) * 1.0E4   ! dissipation rate in cm**2/s**-3
     246       ELSE
     247          epsilon = 0.0
     248       ENDIF
    245249       urms    = 202.0 * ( epsilon / 400.0 )**( 0.33333333333 )
    246250
Note: See TracChangeset for help on using the changeset viewer.