Changeset 2052 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Nov 8, 2016 3:14:59 PM (8 years ago)

Author:

gronemeier

Message:

Bugfix: remove setting of default value for recycling_width

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: remove setting of default value for recycling_width
 ! 
 ! Former revisions:
@@ -3682 +3682 @@
 !-- In case of turbulent inflow calculate the index of the recycling plane
     IF ( turbulent_inflow )  THEN
-       IF ( recycling_width == 9999999.9_wp )  THEN
-!
-!--       Set the default value for the width of the recycling domain
-          recycling_width = 0.1_wp * nx * dx
-       ELSE
-          IF ( recycling_width < dx  .OR.  recycling_width > nx * dx )  THEN
-             WRITE( message_string, * )  'illegal value for recycling_width:', &
-                                         ' ', recycling_width
-             CALL message( 'check_parameters', 'PA0134', 1, 2, 0, 6, 0 )
-          ENDIF
+       IF ( recycling_width < dx  .OR.  recycling_width > nx * dx )  THEN
+          WRITE( message_string, * )  'illegal value for recycling_width:', &
+                                      ' ', recycling_width
+          CALL message( 'check_parameters', 'PA0134', 1, 2, 0, 6, 0 )
        ENDIF
 !