Changeset 4453 for palm

Timestamp:

Mar 11, 2020 8:10:13 AM (5 years ago)

Author:

raasch

Message:

obsolete IF check about nesting removed

Location:

palm/trunk/SOURCE

Files:

• Makefile (modified) (2 diffs)
• exchange_horiz_2d.f90 (modified) (3 diffs)

palm/trunk/SOURCE/Makefile

@@ -25 +25 @@
 # -----------------
 # $Id$
+# dependencies for exchange horiz modified
+# 
+# 4434 2020-03-03 10:02:18Z oliver.maas
 # Added output control for wind turbine model
 # 
@@ -584 +587 @@
         cpulog_mod.o \
         mod_kinds.o \
-        modules.o \
-        pmc_interface_mod.o
+        modules.o
 fft_xy_mod.o: \
         cuda_fft_interfaces.o \

palm/trunk/SOURCE/exchange_horiz_2d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! obsolete IF check about nesting removed
+! 
+! 4444 2020-03-05 15:59:50Z raasch
 ! bugfix: cpp-directives for serial mode added
 ! 
@@ -67 +70 @@
     USE pegrid
 
-    USE pmc_interface,                                                         &
-        ONLY : nesting_mode
-
 #if ! defined( __parallel )
     USE control_parameters,                                                    &
@@ -150 +150 @@
     ENDIF
 
-
 #endif
 
 !
 !-- Neumann-conditions at inflow/outflow/nested boundaries
-    IF ( nesting_mode /= 'vertical' )  THEN
-       IF ( bc_dirichlet_l  .OR.  bc_radiation_l )  THEN
-          DO  i = nbgp, 1, -1
-             ar(:,nxl-i) = ar(:,nxl)
-          ENDDO
-       ENDIF
-       IF ( bc_dirichlet_r  .OR.  bc_radiation_r )  THEN
-          DO  i = 1, nbgp
-             ar(:,nxr+i) = ar(:,nxr)
-          ENDDO
-       ENDIF
-       IF ( bc_dirichlet_s  .OR.  bc_radiation_s )  THEN
-          DO  i = nbgp, 1, -1
-             ar(nys-i,:) = ar(nys,:)
-          ENDDO
-       ENDIF
-       IF ( bc_dirichlet_n  .OR.  bc_radiation_n )  THEN
-          DO  i = 1, nbgp
-             ar(nyn+i,:) = ar(nyn,:)
-          ENDDO
-       ENDIF
+    IF ( bc_dirichlet_l  .OR.  bc_radiation_l )  THEN
+       DO  i = nbgp, 1, -1
+          ar(:,nxl-i) = ar(:,nxl)
+       ENDDO
+    ENDIF
+    IF ( bc_dirichlet_r  .OR.  bc_radiation_r )  THEN
+       DO  i = 1, nbgp
+          ar(:,nxr+i) = ar(:,nxr)
+       ENDDO
+    ENDIF
+    IF ( bc_dirichlet_s  .OR.  bc_radiation_s )  THEN
+       DO  i = nbgp, 1, -1
+          ar(nys-i,:) = ar(nys,:)
+       ENDDO
+    ENDIF
+    IF ( bc_dirichlet_n  .OR.  bc_radiation_n )  THEN
+       DO  i = 1, nbgp
+          ar(nyn+i,:) = ar(nyn,:)
+       ENDDO
     ENDIF