Changeset 1933 for palm/trunk/SOURCE/exchange_horiz_2d.f90

Timestamp:

Jun 13, 2016 7:12:51 AM (8 years ago)

Author:

hellstea

Message:

last commit documented

File:

• palm/trunk/SOURCE/exchange_horiz_2d.f90 (modified) (3 diffs)

palm/trunk/SOURCE/exchange_horiz_2d.f90

@@ -25 +25 @@
 ! $Id$
 !
+! 1818 2016-04-06 15:53:27Z maronga
+! Initial version of purely vertical nesting introduced. 
+! 
 ! 1804 2016-04-05 16:30:18Z maronga
 ! Removed code for parameter file check (__check)
@@ -81 +84 @@
     USE pegrid
 
+    USE pmc_interface,                                                         &
+        ONLY : nesting_mode
+
+
     IMPLICIT NONE
 
@@ -160 +167 @@
 !
 !-- Neumann-conditions at inflow/outflow/nested boundaries
-    IF ( inflow_l .OR. outflow_l .OR. nest_bound_l )  THEN
-       DO  i = nbgp, 1, -1
-         ar(:,nxl-i) = ar(:,nxl)
-       ENDDO
-    ENDIF
-    IF ( inflow_r .OR. outflow_r .OR. nest_bound_r )  THEN
-       DO  i = 1, nbgp
-          ar(:,nxr+i) = ar(:,nxr)
-       ENDDO
-    ENDIF
-    IF ( inflow_s .OR. outflow_s .OR. nest_bound_s )  THEN
-       DO  i = nbgp, 1, -1
-         ar(nys-i,:) = ar(nys,:)
-       ENDDO
-    ENDIF
-    IF ( inflow_n .OR. outflow_n .OR. nest_bound_n )  THEN
-       DO  i = 1, nbgp
-         ar(nyn+i,:) = ar(nyn,:)
-       ENDDO
+    IF ( nesting_mode /= 'vertical' )  THEN
+       IF ( inflow_l .OR. outflow_l .OR. nest_bound_l )  THEN
+          DO  i = nbgp, 1, -1
+             ar(:,nxl-i) = ar(:,nxl)
+          ENDDO
+       ENDIF
+       IF ( inflow_r .OR. outflow_r .OR. nest_bound_r )  THEN
+          DO  i = 1, nbgp
+             ar(:,nxr+i) = ar(:,nxr)
+          ENDDO
+       ENDIF
+       IF ( inflow_s .OR. outflow_s .OR. nest_bound_s )  THEN
+          DO  i = nbgp, 1, -1
+             ar(nys-i,:) = ar(nys,:)
+          ENDDO
+       ENDIF
+       IF ( inflow_n .OR. outflow_n .OR. nest_bound_n )  THEN
+          DO  i = 1, nbgp
+             ar(nyn+i,:) = ar(nyn,:)
+          ENDDO
+       ENDIF
     ENDIF