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

Timestamp:

Nov 8, 2016 3:00:55 PM (7 years ago)

Author:

gronemeier

Message:

Implement turbulent outflow condition

File:

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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Implement turbulent outflow condition
 ! 
 ! Former revisions:
@@ -1121 +1121 @@
                                 inflow_damping_height, inflow_damping_width
           END IF
+       ENDIF
+       IF ( turbulent_outflow )  THEN
+          WRITE ( io, 323 )  outflow_source_plane, INT(outflow_source_plane/dx)
        ENDIF
     ENDIF
@@ -2068 +2071 @@
             '       width of recycling domain: ',F7.1,' m   grid index: ',I4/ &
             '       inflow damping height: ',F6.1,' m   width: ',F6.1,' m'/)
+323 FORMAT ('       turbulent outflow conditon switched on'/ &
+            '       position of outflow source plane: ',F7.1,' m   ', &
+                    'grid index: ', I4)
 325 FORMAT (//' List output:'/ &
              ' -----------'//  &