Changeset 1330 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Mar 24, 2014 5:29:32 PM (11 years ago)

Author:

suehring

Message:

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

File:

• palm/trunk/SOURCE/prognostic_equations.f90 (modified) (2 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! In case of SGS-particle velocity advection of TKE is also allowed with 
+! dissipative 5th-order scheme.
 !
 ! Former revisions:
@@ -787 +788 @@
 !--          Tendency-terms for TKE
              tend(:,j,i) = 0.0
-             IF ( timestep_scheme(1:5) == 'runge'  &
-                 .AND.  .NOT. use_upstream_for_tke )  THEN
+             IF ( timestep_scheme(1:5) == 'runge' )  THEN
                  IF ( ws_scheme_sca )  THEN
                      CALL advec_s_ws( i, j, e, 'e', flux_s_e, diss_s_e, &