Ignore:
Timestamp:
Aug 16, 2007 2:30:26 PM (14 years ago)
Author:
raasch
Message:

preliminary update of bugfixes and extensions for non-cyclic BCs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/buoyancy.f90

    r98 r106  
    44! Actual revisions:
    55! -----------------
    6 !
     6! i loop for u-component (sloping surface) is starting from nxlu (needed for
     7! non-cyclic boundary conditions)
    78!
    89! Former revisions:
     
    105106          IF ( wind_component == 1 )  THEN
    106107
    107              DO  i = nxl, nxr
     108             DO  i = nxlu, nxr
    108109                DO  j = nys, nyn
    109110                   DO  k = nzb_s_inner(j,i)+1, nzt-1
Note: See TracChangeset for help on using the changeset viewer.