Ignore:
Timestamp:
Apr 11, 2017 11:37:51 AM (5 years ago)
Author:
suehring
Message:

Bugfixes in radiation_model; monotonic limiter in 5th order advection scheme removed

File:
1 edited

Legend:

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

    r2179 r2200  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! monotonic_adjustment removed
    2323!
    2424! Former revisions:
     
    804804       action = ' '
    805805       IF ( scalar_advec /= 'pw-scheme' .AND. scalar_advec /= 'ws-scheme'      &
    806       .AND. scalar_advec /= 'ws-scheme-mono' )  THEN
     806          )  THEN
    807807          WRITE( action, '(A,A)' )  'scalar_advec = ', scalar_advec
    808808       ENDIF
     
    10021002       CALL message( 'check_parameters', 'PA0022', 1, 2, 0, 6, 0 )
    10031003    ENDIF
    1004     IF ( ( momentum_advec == 'ws-scheme' .OR.  scalar_advec == 'ws-scheme'     &
    1005            .OR. scalar_advec == 'ws-scheme-mono' )                             &
     1004    IF ( ( momentum_advec == 'ws-scheme' .OR.  scalar_advec == 'ws-scheme' )   &
    10061005           .AND. ( timestep_scheme == 'euler' .OR.                             &
    10071006                   timestep_scheme == 'runge-kutta-2' ) )                      &
     
    10131012    ENDIF
    10141013    IF ( scalar_advec /= 'pw-scheme'  .AND.  scalar_advec /= 'ws-scheme' .AND. &
    1015          scalar_advec /= 'ws-scheme-mono' .AND. scalar_advec /= 'bc-scheme' )  &
     1014         scalar_advec /= 'bc-scheme' )                                         &
    10161015    THEN
    10171016       message_string = 'unknown advection scheme: scalar_advec = "' //        &
     
    10271026    ENDIF
    10281027
    1029     IF ( use_sgs_for_particles  .AND.  .NOT. cloud_droplets  .AND.               &
    1030          .NOT. use_upstream_for_tke  .AND.                                       &
    1031          ( scalar_advec /= 'ws-scheme'  .AND.  scalar_advec /= 'ws-scheme-mono' )&
     1028    IF ( use_sgs_for_particles  .AND.  .NOT. cloud_droplets  .AND.             &
     1029         .NOT. use_upstream_for_tke  .AND.                                     &
     1030         scalar_advec /= 'ws-scheme'                                           &
    10321031       )  THEN
    10331032       use_upstream_for_tke = .TRUE.
     
    10461045!
    10471046!-- Set LOGICAL switches to enhance performance
    1048     IF ( momentum_advec == 'ws-scheme' )       ws_scheme_mom = .TRUE.
    1049     IF ( scalar_advec   == 'ws-scheme' .OR.                                    &
    1050          scalar_advec   == 'ws-scheme-mono' )  ws_scheme_sca = .TRUE.
    1051     IF ( scalar_advec   == 'ws-scheme-mono' )  monotonic_adjustment = .TRUE.
     1047    IF ( momentum_advec == 'ws-scheme' )  ws_scheme_mom = .TRUE.
     1048    IF ( scalar_advec   == 'ws-scheme' )  ws_scheme_sca = .TRUE.
    10521049
    10531050
     
    16241621       ENDIF
    16251622       IF ( momentum_advec /= 'pw-scheme'  .AND.                               &
    1626           ( momentum_advec /= 'ws-scheme'  .AND.                               &
    1627             momentum_advec /= 'ws-scheme-mono' )                               &
    1628           )  THEN
     1623            momentum_advec /= 'ws-scheme' )  THEN
    16291624
    16301625          message_string = 'non-cyclic lateral boundaries do not allow ' //    &
     
    16331628       ENDIF
    16341629       IF ( scalar_advec /= 'pw-scheme'  .AND.                                 &
    1635           ( scalar_advec /= 'ws-scheme'  .AND.                                 &
    1636             scalar_advec /= 'ws-scheme-mono' )                                 &
    1637           )  THEN
     1630            scalar_advec /= 'ws-scheme' )  THEN
    16381631          message_string = 'non-cyclic lateral boundaries do not allow ' //    &
    16391632                           'scalar_advec = "' // TRIM( scalar_advec ) // '"'
Note: See TracChangeset for help on using the changeset viewer.