Ignore:
Timestamp:
Aug 15, 2013 8:46:27 AM (8 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/header.f90

    r1182 r1212  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! output for poisfft_hybrid removed
    2323!
    2424! Former revisions:
     
    329329    IF ( psolver(1:7) == 'poisfft' )  THEN
    330330       WRITE ( io, 111 )  TRIM( fft_method )
    331        IF ( psolver == 'poisfft_hybrid' )  WRITE ( io, 138 )
    332331    ELSEIF ( psolver == 'sor' )  THEN
    333332       WRITE ( io, 112 )  nsor_ini, nsor, omega_sor
     
    16801679            '     gridpoints of coarsest domain (x,y,z):    (',I3,',',I3,',', &
    16811680                  I3,')')
    1682 138 FORMAT ('     Using hybrid version for 1d-domain-decomposition')
    16831681139 FORMAT (' --> Loop optimization method: ',A)
    16841682140 FORMAT ('     maximum residual allowed:                ',E10.3)
Note: See TracChangeset for help on using the changeset viewer.