Ignore:
Timestamp:
Aug 15, 2013 8:46:27 AM (12 years ago)
Author:
raasch
Message:

tridia-solver moved to seperate module; the tridiagonal matrix coefficients of array tri are calculated only once at the beginning

File:
1 edited

Legend:

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

    r1118 r1212  
    1919!
    2020! Current revisions:
    21 ! -----------------
     21! ------------------
     22! call of poisfft_hybrid removed
    2223!
    2324! Former revisions:
     
    131132    USE pegrid
    132133    USE poisfft_mod
    133     USE poisfft_hybrid_mod
    134134    USE statistics
    135135
     
    405405!--    Solve Poisson equation via FFT and solution of tridiagonal matrices
    406406       IF ( psolver == 'poisfft' )  THEN
    407 !
    408 !--       Solver for 2d-decomposition
     407
    409408          CALL poisfft( d, tend )
    410 
    411        ELSEIF ( psolver == 'poisfft_hybrid' )  THEN
    412 !
    413 !--       Solver for 1d-decomposition (using MPI and OpenMP).
    414 !--       The old hybrid-solver is still included here, as long as there
    415 !--       are some optimization problems in poisfft
    416           CALL poisfft_hybrid( d )
    417409
    418410       ENDIF
Note: See TracChangeset for help on using the changeset viewer.