Changeset 1212 for palm/trunk/SOURCE/header.f90

Timestamp:

Aug 15, 2013 8:46:27 AM (11 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:

• palm/trunk/SOURCE/header.f90 (modified) (3 diffs)

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! output for poisfft_hybrid removed
 !
 ! Former revisions:
@@ -329 +329 @@
     IF ( psolver(1:7) == 'poisfft' )  THEN
        WRITE ( io, 111 )  TRIM( fft_method )
-       IF ( psolver == 'poisfft_hybrid' )  WRITE ( io, 138 )
     ELSEIF ( psolver == 'sor' )  THEN
        WRITE ( io, 112 )  nsor_ini, nsor, omega_sor
@@ -1680 +1679 @@
             '     gridpoints of coarsest domain (x,y,z):    (',I3,',',I3,',', &
                   I3,')')
-138 FORMAT ('     Using hybrid version for 1d-domain-decomposition')
 139 FORMAT (' --> Loop optimization method: ',A)
 140 FORMAT ('     maximum residual allowed:                ',E10.3)