Changeset 1557 for palm/trunk/SOURCE/header.f90

Timestamp:

Mar 5, 2015 4:43:04 PM (9 years ago)

Author:

suehring

Message:

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

File:

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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! output for monotonic limiter
 ! 
 ! Former revisions:
@@ -452 +452 @@
     ELSEIF ( scalar_advec == 'ws-scheme' )  THEN
        WRITE ( io, 504 )
+    ELSEIF ( scalar_advec == 'ws-scheme-mono' )  THEN
+       WRITE ( io, 513 )
     ELSE
        WRITE ( io, 118 )
@@ -2330 +2332 @@
             ' Time:                 ',A8,6X,'Run-No.:   ',I2.2/     &
             ' Run on host:        ',A10,6X,'En-No.:    ',I2.2)
+513 FORMAT (' --> Scalar advection via Wicker-Skamarock-Scheme 5th order ' // & 
+            '+ monotonic adjustment')
+
 
  END SUBROUTINE header