Changeset 1557 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Mar 5, 2015 4:43:04 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r1552 r1557 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! output for monotonic limiter 23 23 ! 24 24 ! Former revisions: … … 452 452 ELSEIF ( scalar_advec == 'ws-scheme' ) THEN 453 453 WRITE ( io, 504 ) 454 ELSEIF ( scalar_advec == 'ws-scheme-mono' ) THEN 455 WRITE ( io, 513 ) 454 456 ELSE 455 457 WRITE ( io, 118 ) … … 2330 2332 ' Time: ',A8,6X,'Run-No.: ',I2.2/ & 2331 2333 ' Run on host: ',A10,6X,'En-No.: ',I2.2) 2334 513 FORMAT (' --> Scalar advection via Wicker-Skamarock-Scheme 5th order ' // & 2335 '+ monotonic adjustment') 2336 2332 2337 2333 2338 END SUBROUTINE header
Note: See TracChangeset
for help on using the changeset viewer.