Changeset 1573

Timestamp:

Mar 23, 2015 5:53:37 PM (10 years ago)

Author:

suehring

Message:

Bugfix: check for advection schemes in case of non-cyclic boundary conditions

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: check for advection schemes in case of non-cyclic boundary conditions
 ! 
 ! Former revisions:
@@ -1717 +1717 @@
           CALL message( 'check_parameters', 'PA0051', 1, 2, 0, 6, 0 )
        ENDIF
-       IF ( scalar_advec /= 'pw-scheme' .AND.                                 &
-          ( scalar_advec /= 'ws-scheme' .OR.                                  &
-            scalar_advec /= 'ws-scheme-mono' )                                &
+       IF ( momentum_advec /= 'pw-scheme' .AND.                               &
+          ( momentum_advec /= 'ws-scheme' .AND.                               &
+            momentum_advec /= 'ws-scheme-mono' )                              &
           )  THEN
 
@@ -1727 +1727 @@
        ENDIF
        IF ( scalar_advec /= 'pw-scheme' .AND.                                  &
-          ( scalar_advec /= 'ws-scheme' .OR.                                   &
+          ( scalar_advec /= 'ws-scheme' .AND.                                  &
             scalar_advec /= 'ws-scheme-mono' )                                 &
           )  THEN