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

    r4293 r4297  
    2525! -----------------
    2626! $Id$
     27! changed variable type of recycling_yshift from LOGICAL to INTEGER
     28!
     29! 4293 2019-11-12 14:44:01Z Giersch
    2730! Add origin_date_time
    2831!
     
    642645    INTEGER(iwp) ::  vg_vertical_gradient_level_ind(10) = -9999  !< grid index values of vg_vertical_gradient_level(s)
    643646    INTEGER(iwp) ::  subs_vertical_gradient_level_i(10) = -9999  !< grid index values of subs_vertical_gradient_level(s)
    644 
     647    INTEGER(iwp) ::  recycling_yshift = 0                        !< namelist parameter
    645648    INTEGER(iwp), DIMENSION(0:1) ::  ntdim_2d_xy  !< number of output intervals for 2d data (xy)
    646649    INTEGER(iwp), DIMENSION(0:1) ::  ntdim_2d_xz  !< number of output intervals for 2d data (xz)
     
    735738    LOGICAL ::  rans_tke_l = .FALSE.                             !< use TKE-l turbulence closure for RANS mode
    736739    LOGICAL ::  read_svf = .FALSE.                               !< ENVPAR namelist parameter to steer input of svf (ENVPAR is provided by palmrun)
    737     LOGICAL ::  recycling_yshift = .FALSE.                       !< namelist parameter
    738740    LOGICAL ::  run_control_header = .FALSE.                     !< onetime output of RUN_CONTROL header
    739741    LOGICAL ::  run_coupled = .TRUE.                             !< internal switch telling PALM to run in coupled mode (i.e. to exchange surface data) in case of atmosphere-ocean coupling
Note: See TracChangeset for help on using the changeset viewer.