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

    r77 r106  
    44! Actual revisions:
    55! -----------------
    6 !
     6! loops for u and v are starting from index nxlu, nysv, respectively (needed
     7! for non-cyclic boundary conditions)
    78!
    89! Former revisions:
     
    6061!--       u-component
    6162          CASE ( 1 )
    62              DO  i = nxl, nxr
     63             DO  i = nxlu, nxr
    6364                DO  j = nys, nyn
    6465                   DO  k = nzb_u_inner(j,i)+1, nzt
     
    7879          CASE ( 2 )
    7980             DO  i = nxl, nxr
    80                 DO  j = nys, nyn
     81                DO  j = nysv, nyn
    8182                   DO  k = nzb_v_inner(j,i)+1, nzt
    8283                      tend(k,j,i) = tend(k,j,i) - f *     ( 0.25 *          &
Note: See TracChangeset for help on using the changeset viewer.