Changeset 729 for palm


Ignore:
Timestamp:
May 26, 2011 10:33:34 AM (13 years ago)
Author:
heinze
Message:

Exchange ghost layers for p regardless of used pressure solver (except SOR)

File:
1 edited

Legend:

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

    r692 r729  
    44! Current revisions:
    55! -----------------
     6! Exchange ghost layers for p regardless of used pressure solver (except SOR).
    67!
    78! Former revisions:
     
    246247
    247248             CASE ( 'p_xy', 'p_xz', 'p_yz' )
    248                 IF ( psolver == 'multigrid' .OR. psolver == 'sor' )           &
    249                    CALL exchange_horiz( p, nbgp )
    250                 IF ( av == 0 )  THEN
     249                IF ( av == 0 )  THEN
     250                   IF ( psolver /= 'sor' )  CALL exchange_horiz( p, nbgp )
    251251                   to_be_resorted => p
    252252                ELSE
     253                   IF ( psolver /= 'sor' )  CALL exchange_horiz( p_av, nbgp )
    253254                   to_be_resorted => p_av
    254255                ENDIF
Note: See TracChangeset for help on using the changeset viewer.