Changeset 106 for palm/trunk/SOURCE/diffusion_v.f90

Timestamp:

Aug 16, 2007 2:30:26 PM (17 years ago)

Author:

raasch

Message:

preliminary update of bugfixes and extensions for non-cyclic BCs

File:

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

palm/trunk/SOURCE/diffusion_v.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! Momentumflux at top (vswst) included as boundary condition
+! Momentumflux at top (vswst) included as boundary condition,
+! j loop is starting from nysv (needed for non-cyclic boundary conditions)
 !
 ! Former revisions:
@@ -78 +79 @@
 
        DO  i = nxl, nxr
-          DO  j = nys, nyn
+          DO  j = nysv, nyn
 !
 !--          Compute horizontal diffusion