Changeset 1330


Ignore:
Timestamp:
Mar 24, 2014 5:29:32 PM (10 years ago)
Author:
suehring
Message:

In case of SGS-particle velocity advection of TKE is also allowed with 5th-order scheme.

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r1329 r1330  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! In case of SGS-particle velocity advection of TKE is also allowed with
     23! dissipative 5th-order scheme.
    2324!
    2425! Former revisions:
     
    681682    ENDIF
    682683
    683     IF ( use_sgs_for_particles  .AND.  .NOT. use_upstream_for_tke )  THEN
     684    IF ( use_sgs_for_particles  .AND.  .NOT. use_upstream_for_tke .AND.       &
     685         scalar_advec /= 'ws-scheme' )  THEN
    684686       use_upstream_for_tke = .TRUE.
    685687       message_string = 'use_upstream_for_tke set .TRUE. because ' // &
    686                         'use_sgs_for_particles = .TRUE.'
     688                        'use_sgs_for_particles = .TRUE. '          // &
     689                        'and scalar_advec /= ws-scheme'
    687690       CALL message( 'check_parameters', 'PA0025', 0, 1, 0, 6, 0 )
    688691    ENDIF
  • palm/trunk/SOURCE/prognostic_equations.f90

    r1321 r1330  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! In case of SGS-particle velocity advection of TKE is also allowed with
     23! dissipative 5th-order scheme.
    2324!
    2425! Former revisions:
     
    787788!--          Tendency-terms for TKE
    788789             tend(:,j,i) = 0.0
    789              IF ( timestep_scheme(1:5) == 'runge'  &
    790                  .AND.  .NOT. use_upstream_for_tke )  THEN
     790             IF ( timestep_scheme(1:5) == 'runge' )  THEN
    791791                 IF ( ws_scheme_sca )  THEN
    792792                     CALL advec_s_ws( i, j, e, 'e', flux_s_e, diss_s_e, &
Note: See TracChangeset for help on using the changeset viewer.