Changeset 725
- Timestamp:
- Apr 11, 2011 9:37:01 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_3d.f90
r692 r725 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 7 ! Exchange ghost layers for p regardless of used pressure solver (except SOR). 6 8 ! 7 9 ! Former revisions: … … 159 161 160 162 CASE ( 'p' ) 161 IF ( psolver == 'multigrid' .OR. psolver == 'sor' ) & 162 CALL exchange_horiz( p, nbgp ) 163 IF ( psolver /= 'sor' ) CALL exchange_horiz( p, nbgp ) 163 164 IF ( av == 0 ) THEN 164 165 to_be_resorted => p
Note: See TracChangeset
for help on using the changeset viewer.