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

Timestamp:

Nov 21, 2019 10:37:50 AM (4 years ago)

Author:

oliver.maas

Message:

In case of turbulent inflow: Adjusted recycling_yshift, so that y-shift can be given as multiples of PE (as in y_shift for cyclic BCs).

File:

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

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! adjusted message to the changed parameter recycling_yshift
+! 
+! 4227 2019-09-10 18:04:34Z gronemeier
 ! implement new palm_date_time_mod
 ! 
@@ -920 +923 @@
        WRITE ( io, 318 )  use_cmax, pt_damping_width, pt_damping_factor       
        IF ( turbulent_inflow )  THEN
-          IF ( .NOT. recycling_yshift ) THEN
+          IF ( recycling_yshift == 0 ) THEN
              WRITE ( io, 319 )  recycling_width, recycling_plane, &
                                 inflow_damping_height, inflow_damping_width
           ELSE
-             WRITE ( io, 322 )  recycling_width, recycling_plane, &
+             WRITE ( io, 322 )  recycling_yshift, recycling_width, recycling_plane, &
                                 inflow_damping_height, inflow_damping_width
           END IF
@@ -1737 +1740 @@
               ' ----------------')
 322 FORMAT ('       turbulence recycling at inflow switched on'/ &
-            '       y shift of the recycled inflow turbulence switched on'/ &
+            '       y shift of the recycled inflow turbulence is',I3,' PE'/ &
             '       width of recycling domain: ',F7.1,' m   grid index: ',I4/ &
             '       inflow damping height: ',F6.1,' m   width: ',F6.1,' m'/)