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

Timestamp:

Oct 26, 2016 11:15:40 AM (7 years ago)

Author:

knoop

Message:

Anelastic approximation implemented

File:

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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Anelastic approximation implemented
 ! 
 ! Former revisions:
@@ -552 +552 @@
 !-- Numerical schemes
     WRITE ( io, 110 )
+    WRITE ( io, 121 )  TRIM( approximation )
     IF ( psolver(1:7) == 'poisfft' )  THEN
        WRITE ( io, 111 )  TRIM( fft_method )
@@ -1906 +1907 @@
 110 FORMAT (/' Numerical Schemes:'/ &
              ' -----------------'/)
+121 FORMAT (' --> Use the ',A,' approximation for the model equations.')
 111 FORMAT (' --> Solve perturbation pressure via FFT using ',A,' routines')
 112 FORMAT (' --> Solve perturbation pressure via SOR-Red/Black-Schema'/ &