Ignore:
Timestamp:
Nov 21, 2019 10:37:50 AM (22 months 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:
1 edited

Legend:

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

    r4286 r4297  
    2525! -----------------
    2626! 4172 2019-08-20 11:55:33Z oliver.maas
     27! adjust message to the modified parameter recycling_yshift
     28!
     29! 11:55:33Z oliver.maas
    2730! Check if a cross section is specified if any output cross-section quantity
    2831! is given
     
    29712974       recycling_plane = recycling_width / dx
    29722975!
    2973 !--    Because the y-shift is done with a distance of INT( npey / 2 ) no shift
     2976!--    recycling_yshift will have no effect with only one pe in y-direction
    29742977!--    is possible if there is only one PE in y direction.
    2975        IF ( recycling_yshift .AND. pdims(2) < 2 )  THEN
    2976           WRITE( message_string, * )  'recycling_yshift = .T. requires more',  &
    2977                                       ' than one processor in y direction'
    2978           CALL message( 'check_parameters', 'PA0421', 1, 2, 0, 6, 0 )
     2978       IF ( ( recycling_yshift /= 0 ) .AND. pdims(2) < 2 )  THEN
     2979          WRITE( message_string, * )  'recycling_yshift will have no '  //     &
     2980                                      'effect with only one pe in y-direction.'
     2981          CALL message( 'check_parameters', 'PA0421', 0, 0, 0, 6, 0 )
    29792982       ENDIF
    29802983
Note: See TracChangeset for help on using the changeset viewer.