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

Timestamp:

Jun 19, 2018 2:03:12 PM (6 years ago)

Author:

gronemeier

Message:

merge with branch rans

Location:

palm/trunk

Files:

• . (modified) (1 prop)
• SOURCE (modified) (1 prop)
• SOURCE/header.f90 (modified) (4 diffs)

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Print RANS-mode constants
+! 
+! 3065 2018-06-12 07:03:02Z Giersch
 ! Header output concerning stretching revised
 ! 
@@ -450 +453 @@
     USE synthetic_turbulence_generator_mod,                                    &
         ONLY:  stg_header
+
+    USE turbulence_closure_mod,                                                &
+        ONLY:  rans_const_c, rans_const_sigma
 
     IMPLICIT NONE
@@ -1946 +1952 @@
        IF ( wall_adjustment )  WRITE ( io, 453 )  wall_adjustment_factor
     ENDIF
-
+    IF ( rans_mode )  THEN
+       WRITE ( io, 457 )  rans_const_c, rans_const_sigma
+    ENDIF
 !
 !-- Special actions during the run
@@ -2388 +2396 @@
 456 FORMAT ('    Day of the year at model start :   day_init = ',I3             &
             /'    UTC time at model start        :   time_utc_init = ',F7.1' s')
+457 FORMAT ('    RANS-mode constants: c_0 = ',F9.5/         &
+            '                         c_1 = ',F9.5/         &
+            '                         c_2 = ',F9.5/         &
+            '                         c_3 = ',F9.5/         &
+            '                         c_4 = ',F9.5/         &
+            '                         sigma_e    = ',F9.5/  &
+            '                         sigma_diss = ',F9.5)
 470 FORMAT (//' Actions during the simulation:'/ &
               ' -----------------------------'/)