Changeset 1764 for palm/trunk/SOURCE/boundary_conds.f90

Timestamp:

Feb 28, 2016 12:45:19 PM (8 years ago)

Author:

raasch

Message:

update of the nested domain system + some bugfixes

File:

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

palm/trunk/SOURCE/boundary_conds.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! index bug for u_p at left outflow removed
 !
 ! Former revisions:
@@ -820 +820 @@
 !--       Top boundary at the outflow
           IF ( ibc_uv_t == 0 )  THEN
-             u_p(nzt+1,:,-1) = u_init(nzt+1)
+             u_p(nzt+1,:,0)  = u_init(nzt+1)
              v_p(nzt+1,:,-1) = v_init(nzt+1)
           ELSE
-             u_p(nzt+1,:,-1) = u_p(nzt,:,-1)
+             u_p(nzt+1,:,0)  = u_p(nzt,:,0)
              v_p(nzt+1,:,-1) = v_p(nzt,:,-1)
           ENDIF