Changeset 1212 for palm/trunk/SOURCE/init_pegrid.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/init_pegrid.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! error message for poisfft_hybrid removed
 !
 ! Former revisions:
@@ -232 +232 @@
        CALL message( 'init_pegrid', 'PA0222', 1, 2, 0, 6, 0 )
 
-    ENDIF
-
-!
-!-- The hybrid solver can only be used in case of a 1d-decomposition along x
-    IF ( pdims(2) /= 1  .AND.  psolver == 'poisfft_hybrid' )  THEN
-       message_string = 'psolver = "poisfft_hybrid" can only be' // &
-                        '& used in case of a 1d-decomposition along x'
-       CALL message( 'init_pegrid', 'PA0223', 1, 2, 0, 6, 0 )
     ENDIF