Changeset 1216 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Aug 26, 2013 9:31:42 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r1213 r1216 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! output for transpose_compute_overlap 23 23 ! 24 24 ! Former revisions: … … 332 332 IF ( psolver(1:7) == 'poisfft' ) THEN 333 333 WRITE ( io, 111 ) TRIM( fft_method ) 334 IF ( transpose_compute_overlap ) WRITE( io, 115 ) 334 335 ELSEIF ( psolver == 'sor' ) THEN 335 336 WRITE ( io, 112 ) nsor_ini, nsor, omega_sor … … 1653 1654 113 FORMAT (' --> Momentum advection via Piascek-Williams-Scheme (Form C3)', & 1654 1655 ' or Upstream') 1656 115 FORMAT (' FFT and transpositions are overlapping') 1655 1657 116 FORMAT (' --> Scalar advection via Piascek-Williams-Scheme (Form C3)', & 1656 1658 ' or Upstream')
Note: See TracChangeset
for help on using the changeset viewer.