Changeset 1742


Ignore:
Timestamp:
Jan 13, 2016 9:50:06 AM (6 years ago)
Author:
raasch
Message:

bugfix for outflow Neumann boundary conditions at bottom and top

File:
1 edited

Legend:

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

    r1718 r1742  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! bugfix for outflow Neumann boundary conditions at bottom and top
    2222!
    2323! Former revisions:
     
    521521             v_p(nzt+1,0,:)  = v_init(nzt+1)
    522522          ELSE
    523              u_p(nzt+1,-1,:) = u(nzt,-1,:)
    524              v_p(nzt+1,0,:)  = v(nzt,0,:)
     523             u_p(nzt+1,-1,:) = u_p(nzt,-1,:)
     524             v_p(nzt+1,0,:)  = v_p(nzt,0,:)
    525525          ENDIF
    526526          w_p(nzt:nzt+1,-1,:) = 0.0_wp
     
    941941             v_p(nzt+1,:,nx+1) = v_p(nzt,:,nx+1)
    942942          ENDIF
    943           w(nzt:nzt+1,:,nx+1) = 0.0_wp
     943          w_p(nzt:nzt+1,:,nx+1) = 0.0_wp
    944944
    945945       ENDIF
Note: See TracChangeset for help on using the changeset viewer.