Changeset 729
- Timestamp:
- May 26, 2011 10:33:34 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_2d.f90
r692 r729 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! Exchange ghost layers for p regardless of used pressure solver (except SOR). 6 7 ! 7 8 ! Former revisions: … … 246 247 247 248 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 ) 251 251 to_be_resorted => p 252 252 ELSE 253 IF ( psolver /= 'sor' ) CALL exchange_horiz( p_av, nbgp ) 253 254 to_be_resorted => p_av 254 255 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.