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

Timestamp:

Mar 25, 2020 9:04:07 PM (5 years ago)

Author:

gronemeier

Message:

revised naming of mixing length and some further cleaning of mixing-length calculation

File:

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

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! revised message if wall_adjustment is used
+! 
+! 4444 2020-03-05 15:59:50Z raasch
 ! bugfix: cpp-directives for serial mode added
 ! 
@@ -1539 +1542 @@
        IF ( e_init > 0.0_wp )  WRITE ( io, 455 )  e_init
        IF ( e_min > 0.0_wp )  WRITE ( io, 454 )  e_min
-       IF ( wall_adjustment )  WRITE ( io, 453 )  wall_adjustment_factor
+       IF ( wall_adjustment )  WRITE ( io, 453 )
     ENDIF
     IF ( rans_mode )  THEN
@@ -1884 +1887 @@
 451 FORMAT ('    Diffusion coefficients are constant:'/ &
             '    Km = ',F6.2,' m**2/s   Kh = ',F6.2,' m**2/s   Pr = ',F5.2)
-453 FORMAT ('    Mixing length is limited to',F5.2,' * z')
+453 FORMAT ('    Mixing length is limited close to surfaces')
 454 FORMAT ('    TKE is not allowed to fall below ',E9.2,' (m/s)**2')
 455 FORMAT ('    initial TKE is prescribed as ',E9.2,' (m/s)**2')