Changeset 1717 for palm

Timestamp:

Nov 11, 2015 3:09:47 PM (9 years ago)

Author:

raasch

Message:

bugfix of index error in outflow conditions for left boundary

File:

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

palm/trunk/SOURCE/boundary_conds.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: index error in outflow conditions for left boundary
 ! 
 ! Former revisions:
@@ -28 +28 @@
 ! Code annotations made doxygen readable
 ! 
-!1410 2014-05-23 12:16:18Z suehring
+! 1410 2014-05-23 12:16:18Z suehring
 ! Bugfix: set dirichlet boundary condition for passive_scalar at model domain 
 ! top 
@@ -669 +669 @@
 
        IF ( use_cmax )  THEN
-          u_p(:,:,-1) = u(:,:,0)
-          v_p(:,:,0)  = v(:,:,1)
+          u_p(:,:,0)  = u(:,:,1)
+          v_p(:,:,-1) = v(:,:,0)
           w_p(:,:,-1) = w(:,:,0)          
        ELSEIF ( .NOT. use_cmax )  THEN