Changeset 725


Ignore:
Timestamp:
Apr 11, 2011 9:37:01 AM (14 years ago)
Author:
suehring
Message:

Bugfix in exchange of ghost layers for p.

File:
1 edited

Legend:

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

    r692 r725  
    44! Current revisions:
    55! -----------------
     6!
     7! Exchange ghost layers for p regardless of used pressure solver (except SOR).
    68!
    79! Former revisions:
     
    159161
    160162          CASE ( 'p' )
    161              IF ( psolver == 'multigrid' .OR. psolver == 'sor' )              &
    162                 CALL exchange_horiz( p, nbgp )
     163             IF ( psolver /= 'sor' )  CALL exchange_horiz( p, nbgp )
    163164             IF ( av == 0 )  THEN
    164165                to_be_resorted => p
Note: See TracChangeset for help on using the changeset viewer.