Changeset 2052


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

Bugfix: remove setting of default value for recycling_width

File:
1 edited

Legend:

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

    r2051 r2052  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: remove setting of default value for recycling_width
    2323!
    2424! Former revisions:
     
    36823682!-- In case of turbulent inflow calculate the index of the recycling plane
    36833683    IF ( turbulent_inflow )  THEN
    3684        IF ( recycling_width == 9999999.9_wp )  THEN
    3685 !
    3686 !--       Set the default value for the width of the recycling domain
    3687           recycling_width = 0.1_wp * nx * dx
    3688        ELSE
    3689           IF ( recycling_width < dx  .OR.  recycling_width > nx * dx )  THEN
    3690              WRITE( message_string, * )  'illegal value for recycling_width:', &
    3691                                          ' ', recycling_width
    3692              CALL message( 'check_parameters', 'PA0134', 1, 2, 0, 6, 0 )
    3693           ENDIF
     3684       IF ( recycling_width < dx  .OR.  recycling_width > nx * dx )  THEN
     3685          WRITE( message_string, * )  'illegal value for recycling_width:', &
     3686                                      ' ', recycling_width
     3687          CALL message( 'check_parameters', 'PA0134', 1, 2, 0, 6, 0 )
    36943688       ENDIF
    36953689!
Note: See TracChangeset for help on using the changeset viewer.