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

    r4 r75  
    88! Actual revisions:
    99! -----------------
    10 !
     10! 2nd+3rd argument removed from exchange horiz
    1111!
    1212! Former revisions:
     
    5959!
    6060!-- Some boundaries have to be added to divergence array
    61     CALL exchange_horiz( d, 0, 0 )
     61    CALL exchange_horiz( d )
    6262    d(nzb,:,:) = d(nzb+1,:,:)
    6363
     
    164164!
    165165!-- Horizontal boundary conditions
    166     CALL exchange_horiz( r, 0, 0 )
     166    CALL exchange_horiz( r )
    167167
    168168    IF ( bc_lr /= 'cyclic' )  THEN
     
    257257!
    258258!-- Horizontal boundary conditions
    259     CALL exchange_horiz( f_mg, 0, 0 )
     259    CALL exchange_horiz( f_mg )
    260260
    261261    IF ( bc_lr /= 'cyclic' )  THEN
     
    355355!
    356356!-- Horizontal boundary conditions
    357     CALL exchange_horiz( temp, 0, 0 )
     357    CALL exchange_horiz( temp )
    358358
    359359    IF ( bc_lr /= 'cyclic' )  THEN
     
    627627!
    628628!--       Horizontal boundary conditions
    629           CALL exchange_horiz( p_mg, 0, 0 )
     629          CALL exchange_horiz( p_mg )
    630630
    631631          IF ( bc_lr /= 'cyclic' )  THEN
Note: See TracChangeset for help on using the changeset viewer.