Ignore:
Timestamp:
Mar 6, 2015 10:48:54 AM (7 years ago)
Author:
keck
Message:

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

File:
1 edited

Legend:

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

    r1558 r1560  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! output for recycling y shift
    2323!
    2424! Former revisions:
     
    11011101       WRITE ( io, 318 )  use_cmax, pt_damping_width, pt_damping_factor       
    11021102       IF ( turbulent_inflow )  THEN
    1103           WRITE ( io, 319 )  recycling_width, recycling_plane, &
    1104                              inflow_damping_height, inflow_damping_width
     1103          IF ( .NOT. recycling_yshift ) THEN
     1104             WRITE ( io, 319 )  recycling_width, recycling_plane, &
     1105                                inflow_damping_height, inflow_damping_width
     1106          ELSE
     1107             WRITE ( io, 322 )  recycling_width, recycling_plane, &
     1108                                inflow_damping_height, inflow_damping_width
     1109          END IF
    11051110       ENDIF
    11061111    ENDIF
     
    20472052321 FORMAT (//' Initial profiles:'/ &
    20482053              ' ----------------')
     2054322 FORMAT ('       turbulence recycling at inflow switched on'/ &
     2055            '       y shift of the recycled inflow turbulence switched on'/ &
     2056            '       width of recycling domain: ',F7.1,' m   grid index: ',I4/ &
     2057            '       inflow damping height: ',F6.1,' m   width: ',F6.1,' m'/q)
    20492058325 FORMAT (//' List output:'/ &
    20502059             ' -----------'//  &
Note: See TracChangeset for help on using the changeset viewer.