Changeset 106 for palm/trunk/SOURCE/diffusion_u.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_u.f90 (modified) (2 diffs)

palm/trunk/SOURCE/diffusion_u.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! Momentumflux at top (uswst) included as boundary condition
-! 
+! Momentumflux at top (uswst) included as boundary condition,
+! i loop is starting from nxlu (needed for non-cyclic boundary conditions)
+!
 ! Former revisions:
 ! -----------------
@@ -79 +80 @@
        ENDIF
 
-       DO  i = nxl, nxr
+       DO  i = nxlu, nxr
           DO  j = nys,nyn
 !