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/advec_v_pw.f90

    r77 r106  
    44! Actual revisions:
    55! -----------------
    6 !
     6! j loop is starting from nysv (needed for non-cyclic boundary conditions)
    77!
    88! Former revisions:
     
    6060       gv = 2.0 * v_gtrans
    6161       DO  i = nxl, nxr
    62           DO  j = nys, nyn
     62          DO  j = nysv, nyn
    6363             DO  k = nzb_v_inner(j,i)+1, nzt
    6464                tend(k,j,i) = tend(k,j,i) - 0.25 * (                           &
Note: See TracChangeset for help on using the changeset viewer.