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

Timestamp:

Nov 21, 2019 10:37:50 AM (5 years ago)

Author:

oliver.maas

Message:

In case of turbulent inflow: Adjusted recycling_yshift, so that y-shift can be given as multiples of PE (as in y_shift for cyclic BCs).

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! 4172 2019-08-20 11:55:33Z oliver.maas
+! adjust message to the modified parameter recycling_yshift
+! 
+! 11:55:33Z oliver.maas
 ! Check if a cross section is specified if any output cross-section quantity
 ! is given
@@ -2971 +2974 @@
        recycling_plane = recycling_width / dx
 !
-!--    Because the y-shift is done with a distance of INT( npey / 2 ) no shift
+!--    recycling_yshift will have no effect with only one pe in y-direction
 !--    is possible if there is only one PE in y direction.
-       IF ( recycling_yshift .AND. pdims(2) < 2 )  THEN
-          WRITE( message_string, * )  'recycling_yshift = .T. requires more',  &
-                                      ' than one processor in y direction'
-          CALL message( 'check_parameters', 'PA0421', 1, 2, 0, 6, 0 )
+       IF ( ( recycling_yshift /= 0 ) .AND. pdims(2) < 2 )  THEN
+          WRITE( message_string, * )  'recycling_yshift will have no '  //     &
+                                      'effect with only one pe in y-direction.'
+          CALL message( 'check_parameters', 'PA0421', 0, 0, 0, 6, 0 )
        ENDIF