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

Timestamp:

Jan 18, 2021 11:15:37 AM (4 years ago)

Author:

raasch

Message:

maximum phase velocities are alwasy used for radiation boundary conditions, parameter use_cmax removed

File:

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

palm/trunk/SOURCE/header.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! output of use_cmax removed
+!
+! 4828 2021-01-05 11:21:41Z Giersch
 ! file re-formatted to follow the PALM coding standard
 !
@@ -940 +943 @@
     WRITE ( io, 317 )  bc_lr, bc_ns
     IF ( .NOT. bc_lr_cyc  .OR.  .NOT. bc_ns_cyc )  THEN
-       WRITE ( io, 318 )  use_cmax, pt_damping_width, pt_damping_factor
+       WRITE ( io, 318 )  pt_damping_width, pt_damping_factor
        IF ( turbulent_inflow )  THEN
           IF ( y_shift == 0 )  THEN
@@ -1726 +1729 @@
             '       left/right:  ',A/                                                              &
             '       north/south: ',A)
-318 FORMAT (/'       use_cmax: ',L1 /                                                              &
-            '       pt damping layer width = ',F8.2,' m, pt ','damping factor =',F7.4)
+318 FORMAT (/'       pt damping layer width = ',F8.2,' m, pt ','damping factor =',F7.4)
 319 FORMAT ('       turbulence recycling at inflow switched on'/                                   &
             '       width of recycling domain: ',F7.1,' m   grid index: ',I4/                      &