Changeset 4453


Ignore:
Timestamp:
Mar 11, 2020 8:10:13 AM (14 months ago)
Author:
raasch
Message:

obsolete IF check about nesting removed

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/Makefile

    r4434 r4453  
    2525# -----------------
    2626# $Id$
     27# dependencies for exchange horiz modified
     28#
     29# 4434 2020-03-03 10:02:18Z oliver.maas
    2730# Added output control for wind turbine model
    2831#
     
    584587        cpulog_mod.o \
    585588        mod_kinds.o \
    586         modules.o \
    587         pmc_interface_mod.o
     589        modules.o
    588590fft_xy_mod.o: \
    589591        cuda_fft_interfaces.o \
  • palm/trunk/SOURCE/exchange_horiz_2d.f90

    r4444 r4453  
    2525! -----------------
    2626! $Id$
     27! obsolete IF check about nesting removed
     28!
     29! 4444 2020-03-05 15:59:50Z raasch
    2730! bugfix: cpp-directives for serial mode added
    2831!
     
    6770    USE pegrid
    6871
    69     USE pmc_interface,                                                         &
    70         ONLY : nesting_mode
    71 
    7272#if ! defined( __parallel )
    7373    USE control_parameters,                                                    &
     
    150150    ENDIF
    151151
    152 
    153152#endif
    154153
    155154!
    156155!-- Neumann-conditions at inflow/outflow/nested boundaries
    157     IF ( nesting_mode /= 'vertical' )  THEN
    158        IF ( bc_dirichlet_l  .OR.  bc_radiation_l )  THEN
    159           DO  i = nbgp, 1, -1
    160              ar(:,nxl-i) = ar(:,nxl)
    161           ENDDO
    162        ENDIF
    163        IF ( bc_dirichlet_r  .OR.  bc_radiation_r )  THEN
    164           DO  i = 1, nbgp
    165              ar(:,nxr+i) = ar(:,nxr)
    166           ENDDO
    167        ENDIF
    168        IF ( bc_dirichlet_s  .OR.  bc_radiation_s )  THEN
    169           DO  i = nbgp, 1, -1
    170              ar(nys-i,:) = ar(nys,:)
    171           ENDDO
    172        ENDIF
    173        IF ( bc_dirichlet_n  .OR.  bc_radiation_n )  THEN
    174           DO  i = 1, nbgp
    175              ar(nyn+i,:) = ar(nyn,:)
    176           ENDDO
    177        ENDIF
     156    IF ( bc_dirichlet_l  .OR.  bc_radiation_l )  THEN
     157       DO  i = nbgp, 1, -1
     158          ar(:,nxl-i) = ar(:,nxl)
     159       ENDDO
     160    ENDIF
     161    IF ( bc_dirichlet_r  .OR.  bc_radiation_r )  THEN
     162       DO  i = 1, nbgp
     163          ar(:,nxr+i) = ar(:,nxr)
     164       ENDDO
     165    ENDIF
     166    IF ( bc_dirichlet_s  .OR.  bc_radiation_s )  THEN
     167       DO  i = nbgp, 1, -1
     168          ar(nys-i,:) = ar(nys,:)
     169       ENDDO
     170    ENDIF
     171    IF ( bc_dirichlet_n  .OR.  bc_radiation_n )  THEN
     172       DO  i = 1, nbgp
     173          ar(nyn+i,:) = ar(nyn,:)
     174       ENDDO
    178175    ENDIF
    179176
Note: See TracChangeset for help on using the changeset viewer.