Changeset 1573 for palm/trunk/SOURCE


Ignore:
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:
1 edited

Legend:

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

    r1558 r1573  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: check for advection schemes in case of non-cyclic boundary conditions
    2323!
    2424! Former revisions:
     
    17171717          CALL message( 'check_parameters', 'PA0051', 1, 2, 0, 6, 0 )
    17181718       ENDIF
    1719        IF ( scalar_advec /= 'pw-scheme' .AND.                                 &
    1720           ( scalar_advec /= 'ws-scheme' .OR.                                  &
    1721             scalar_advec /= 'ws-scheme-mono' )                                &
     1719       IF ( momentum_advec /= 'pw-scheme' .AND.                               &
     1720          ( momentum_advec /= 'ws-scheme' .AND.                               &
     1721            momentum_advec /= 'ws-scheme-mono' )                              &
    17221722          )  THEN
    17231723
     
    17271727       ENDIF
    17281728       IF ( scalar_advec /= 'pw-scheme' .AND.                                  &
    1729           ( scalar_advec /= 'ws-scheme' .OR.                                   &
     1729          ( scalar_advec /= 'ws-scheme' .AND.                                  &
    17301730            scalar_advec /= 'ws-scheme-mono' )                                 &
    17311731          )  THEN
Note: See TracChangeset for help on using the changeset viewer.