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/check_parameters.f90

    r2045 r2050  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Implement turbulent outflow condition
    2323!
    2424! Former revisions:
     
    37033703    ENDIF
    37043704
     3705
     3706    IF ( turbulent_outflow )  THEN
     3707!
     3708!--    Turbulent outflow requires Dirichlet conditions at the respective inflow
     3709!--    boundary (so far, a turbulent outflow is realized at the right side only)
     3710       IF ( bc_lr /= 'dirichlet/radiation' )  THEN
     3711          message_string = 'turbulent_outflow = .T. requires ' //              &
     3712                           'bc_lr = "dirichlet/radiation"'
     3713          CALL message( 'check_parameters', 'PA0038', 1, 2, 0, 6, 0 )
     3714       ENDIF
     3715!
     3716!--    The ouflow-source plane must lay inside the model domain
     3717       IF ( outflow_source_plane < dx  .OR.  &
     3718            outflow_source_plane > nx * dx )  THEN
     3719          WRITE( message_string, * )  'illegal value for outflow_source'//     &
     3720                                      '_plane: ', outflow_source_plane
     3721          CALL message( 'check_parameters', 'PA0145', 1, 2, 0, 6, 0 )
     3722       ENDIF
     3723    ENDIF
     3724
    37053725!
    37063726!-- Determine damping level index for 1D model
Note: See TracChangeset for help on using the changeset viewer.