Ignore:
Timestamp:
Nov 8, 2016 3:00:55 PM (5 years ago)
Author:
gronemeier
Message:

Implement turbulent outflow condition

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/header.f90

    r2038 r2050  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Implement turbulent outflow condition
    2323!
    2424! Former revisions:
     
    11211121                                inflow_damping_height, inflow_damping_width
    11221122          END IF
     1123       ENDIF
     1124       IF ( turbulent_outflow )  THEN
     1125          WRITE ( io, 323 )  outflow_source_plane, INT(outflow_source_plane/dx)
    11231126       ENDIF
    11241127    ENDIF
     
    20682071            '       width of recycling domain: ',F7.1,' m   grid index: ',I4/ &
    20692072            '       inflow damping height: ',F6.1,' m   width: ',F6.1,' m'/)
     2073323 FORMAT ('       turbulent outflow conditon switched on'/ &
     2074            '       position of outflow source plane: ',F7.1,' m   ', &
     2075                    'grid index: ', I4)
    20702076325 FORMAT (//' List output:'/ &
    20712077             ' -----------'//  &
Note: See TracChangeset for help on using the changeset viewer.