Ignore:
Timestamp:
Jun 19, 2018 2:03:12 PM (3 years ago)
Author:
gronemeier
Message:

merge with branch rans

Location:
palm/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk

  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/header.f90

    r3065 r3083  
    2525! -----------------
    2626! $Id$
     27! Print RANS-mode constants
     28!
     29! 3065 2018-06-12 07:03:02Z Giersch
    2730! Header output concerning stretching revised
    2831!
     
    450453    USE synthetic_turbulence_generator_mod,                                    &
    451454        ONLY:  stg_header
     455
     456    USE turbulence_closure_mod,                                                &
     457        ONLY:  rans_const_c, rans_const_sigma
    452458
    453459    IMPLICIT NONE
     
    19461952       IF ( wall_adjustment )  WRITE ( io, 453 )  wall_adjustment_factor
    19471953    ENDIF
    1948 
     1954    IF ( rans_mode )  THEN
     1955       WRITE ( io, 457 )  rans_const_c, rans_const_sigma
     1956    ENDIF
    19491957!
    19501958!-- Special actions during the run
     
    23882396456 FORMAT ('    Day of the year at model start :   day_init = ',I3             &
    23892397            /'    UTC time at model start        :   time_utc_init = ',F7.1' s')
     2398457 FORMAT ('    RANS-mode constants: c_0 = ',F9.5/         &
     2399            '                         c_1 = ',F9.5/         &
     2400            '                         c_2 = ',F9.5/         &
     2401            '                         c_3 = ',F9.5/         &
     2402            '                         c_4 = ',F9.5/         &
     2403            '                         sigma_e    = ',F9.5/  &
     2404            '                         sigma_diss = ',F9.5)
    23902405470 FORMAT (//' Actions during the simulation:'/ &
    23912406              ' -----------------------------'/)
Note: See TracChangeset for help on using the changeset viewer.