Changeset 75 for palm/trunk/SOURCE/advec_v_pw.f90

Timestamp:

Mar 22, 2007 9:54:05 AM (18 years ago)

Author:

raasch

Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:

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

palm/trunk/SOURCE/advec_v_pw.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! vynp eliminated
 !
 ! Former revisions:
@@ -56 +56 @@
        gv = 2.0 * v_gtrans
        DO  i = nxl, nxr
-          DO  j = nys, nyn+vynp
+          DO  j = nys, nyn
              DO  k = nzb_v_inner(j,i)+1, nzt
                 tend(k,j,i) = tend(k,j,i) - 0.25 * (                           &