Changeset 719

Timestamp:

Apr 6, 2011 1:05:23 PM (14 years ago)

Author:

gryschka

Message:

Bugfix in volume flow control for double cyclic boundary conditions

File:

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

palm/trunk/SOURCE/pres.f90

@@ -5 +5 @@
 ! -----------------
 ! 
+! gryschka
+! Bugfix in volume flow control for double cyclic boundary conditions
 !
 ! Former revisions:
@@ -644 +646 @@
              DO  k = nzb_u_inner(j,i) + 1, nzt
                 u(k,j,i) = u(k,j,i) + volume_flow_offset(1)
+             ENDDO
+             DO k = nzb_v_inner(j,i) + 1, nzt
                 v(k,j,i) = v(k,j,i) + volume_flow_offset(2)
              ENDDO