Changeset 1212 for palm/trunk/SOURCE/pres.f90
- Timestamp:
- Aug 15, 2013 8:46:27 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pres.f90
r1118 r1212 19 19 ! 20 20 ! Current revisions: 21 ! ----------------- 21 ! ------------------ 22 ! call of poisfft_hybrid removed 22 23 ! 23 24 ! Former revisions: … … 131 132 USE pegrid 132 133 USE poisfft_mod 133 USE poisfft_hybrid_mod134 134 USE statistics 135 135 … … 405 405 !-- Solve Poisson equation via FFT and solution of tridiagonal matrices 406 406 IF ( psolver == 'poisfft' ) THEN 407 ! 408 !-- Solver for 2d-decomposition 407 409 408 CALL poisfft( d, tend ) 410 411 ELSEIF ( psolver == 'poisfft_hybrid' ) THEN412 !413 !-- Solver for 1d-decomposition (using MPI and OpenMP).414 !-- The old hybrid-solver is still included here, as long as there415 !-- are some optimization problems in poisfft416 CALL poisfft_hybrid( d )417 409 418 410 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.