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

    r4 r75  
    44! Actual revisions:
    55! -----------------
    6 !
     6! uxrp, vynp eliminated, 2nd+3rd argument removed from exchange horiz
    77!
    88! Former revisions:
     
    129129!
    130130!-- Exchange of boundary values for the velocities.
    131     CALL exchange_horiz( u, uxrp,    0 )
    132     CALL exchange_horiz( v,    0, vynp )
     131    CALL exchange_horiz( u )
     132    CALL exchange_horiz( v )
    133133!
    134134!-- Make velocity field nondivergent.
Note: See TracChangeset for help on using the changeset viewer.