Ignore:
Timestamp:
Feb 23, 2007 4:53:48 AM (15 years ago)
Author:
raasch
Message:

preliminary version of modified boundary conditions at top

File:
1 edited

Legend:

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

    r4 r19  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Calculation extended for gridpoint nzt
    77!
    88! Former revisions:
     
    5858       DO  i = nxl, nxr
    5959          DO  j = nys, nyn
    60              DO  k = nzb_s_inner(j,i)+1, nzt-1
     60             DO  k = nzb_s_inner(j,i)+1, nzt
    6161                tend(k,j,i) = tend(k,j,i)                                      &
    6262              -0.5 * ( ( u(k,j,i+1) - u_gtrans ) * ( sk(k,j,i+1) - sk(k,j,i) ) &
     
    9393
    9494
    95        DO  k = nzb_s_inner(j,i)+1, nzt-1
     95       DO  k = nzb_s_inner(j,i)+1, nzt
    9696          tend(k,j,i) = tend(k,j,i)                                            &
    9797              -0.5 * ( ( u(k,j,i+1) - u_gtrans ) * ( sk(k,j,i+1) - sk(k,j,i) ) &
Note: See TracChangeset for help on using the changeset viewer.