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

Timestamp:

Mar 6, 2015 10:48:54 AM (9 years ago)

Author:

keck

Message:

implemented possibility of adding a y shift to the recycled inflow turbulence

File:

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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! output for recycling y shift
 ! 
 ! Former revisions:
@@ -1101 +1101 @@
        WRITE ( io, 318 )  use_cmax, pt_damping_width, pt_damping_factor       
        IF ( turbulent_inflow )  THEN
-          WRITE ( io, 319 )  recycling_width, recycling_plane, &
-                             inflow_damping_height, inflow_damping_width
+          IF ( .NOT. recycling_yshift ) THEN
+             WRITE ( io, 319 )  recycling_width, recycling_plane, &
+                                inflow_damping_height, inflow_damping_width
+          ELSE
+             WRITE ( io, 322 )  recycling_width, recycling_plane, &
+                                inflow_damping_height, inflow_damping_width
+          END IF
        ENDIF
     ENDIF
@@ -2047 +2052 @@
 321 FORMAT (//' Initial profiles:'/ &
               ' ----------------')
+322 FORMAT ('       turbulence recycling at inflow switched on'/ &
+            '       y shift of the recycled inflow turbulence switched on'/ &
+            '       width of recycling domain: ',F7.1,' m   grid index: ',I4/ &
+            '       inflow damping height: ',F6.1,' m   width: ',F6.1,' m'/q)
 325 FORMAT (//' List output:'/ &
              ' -----------'//  &