Ignore:
Timestamp:
Mar 22, 2007 9:54:05 AM (15 years ago)
Author:
raasch
Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:
1 edited

Legend:

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

    r4 r75  
    44! Actual revisions:
    55! -----------------
    6 !
     6! uxrp, vynp eliminated
    77!
    88! Former revisions:
     
    5656!--       u-component
    5757          CASE ( 1 )
    58              DO  i = nxl, nxr+uxrp
     58             DO  i = nxl, nxr
    5959                DO  j = nys, nyn
    6060                   DO  k = nzb_u_inner(j,i)+1, nzt
     
    7474          CASE ( 2 )
    7575             DO  i = nxl, nxr
    76                 DO  j = nys, nyn+vynp
     76                DO  j = nys, nyn
    7777                   DO  k = nzb_v_inner(j,i)+1, nzt
    7878                      tend(k,j,i) = tend(k,j,i) - f *     ( 0.25 *          &
Note: See TracChangeset for help on using the changeset viewer.