Ignore:
Timestamp:
Mar 5, 2015 4:43:04 PM (7 years ago)
Author:
suehring
Message:

Enable monotone advection for scalars in combination with fifth-order scheme using monotonic limiter.

File:
1 edited

Legend:

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

    r1552 r1557  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! output for monotonic limiter
    2323!
    2424! Former revisions:
     
    452452    ELSEIF ( scalar_advec == 'ws-scheme' )  THEN
    453453       WRITE ( io, 504 )
     454    ELSEIF ( scalar_advec == 'ws-scheme-mono' )  THEN
     455       WRITE ( io, 513 )
    454456    ELSE
    455457       WRITE ( io, 118 )
     
    23302332            ' Time:                 ',A8,6X,'Run-No.:   ',I2.2/     &
    23312333            ' Run on host:        ',A10,6X,'En-No.:    ',I2.2)
     2334513 FORMAT (' --> Scalar advection via Wicker-Skamarock-Scheme 5th order ' // &
     2335            '+ monotonic adjustment')
     2336
    23322337
    23332338 END SUBROUTINE header
Note: See TracChangeset for help on using the changeset viewer.