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

palm/trunk/SOURCE/buoyancy.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! i loop for u-component (sloping surface) is starting from nxlu (needed for
+! non-cyclic boundary conditions)
 !
 ! Former revisions:
@@ -105 +106 @@
           IF ( wind_component == 1 )  THEN
 
-             DO  i = nxl, nxr
+             DO  i = nxlu, nxr
                 DO  j = nys, nyn
                    DO  k = nzb_s_inner(j,i)+1, nzt-1