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

Timestamp:

Mar 20, 2007 8:33:14 AM (17 years ago)

Author:

raasch

Message:

preliminary changes for radiation conditions

File:

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

palm/trunk/SOURCE/exchange_horiz_2d.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Neumann boundary conditions at inflow/outflow in case of non-cyclic boundary
+! conditions
 !
 ! Former revisions:
@@ -98 +99 @@
 #endif
 
+!
+!-- Neumann-conditions at inflow/outflow in case of non-cyclic boundary
+!-- conditions
+    IF ( inflow_l .OR. outflow_l )  ar(:,nxl-1) = ar(:,nxl)
+    IF ( inflow_r .OR. outflow_r )  ar(:,nxr+1) = ar(:,nxr)
+    IF ( inflow_s .OR. outflow_s )  ar(nys-1,:) = ar(nys,:)
+    IF ( inflow_n .OR. outflow_n )  ar(nyn+1,:) = ar(nyn,:)
+
     CALL cpu_log( log_point_s(13), 'exchange_horiz_2d', 'stop' )