Changeset 87 for palm/trunk/SOURCE/header.f90

Timestamp:

May 22, 2007 3:46:47 PM (17 years ago)

Author:

raasch

Message:

Preliminary update for user defined profiles

File:

• palm/trunk/SOURCE/header.f90 (modified) (3 diffs)

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: output of use_upstream_for_tke
 !
 ! Former revisions:
@@ -224 +224 @@
        WRITE ( io, 122 )  timestep_scheme
     ENDIF
+    IF ( use_upstream_for_tke )  WRITE ( io, 143 )
     IF ( rayleigh_damping_factor /= 0.0 )  THEN
        WRITE ( io, 123 )  rayleigh_damping_height, rayleigh_damping_factor
@@ -1195 +1196 @@
 142 FORMAT ('     perturbation pressure is calculated at every Runge-Kutta ', &
                   'step')
+143 FORMAT ('     Euler/upstream scheme is used for the SGS turbulent ', &
+                  'kinetic energy')
 150 FORMAT (' --> Volume flow at the right and north boundary will be ', &
                   'conserved')