Changeset 51 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Mar 7, 2007 8:38:00 AM (17 years ago)

Author:

raasch

Message:

preliminary version, several changes to be explained later

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! "by_user" allowed as initializing action, -data_output_ts
+! "by_user" allowed as initializing action, -data_output_ts,
+! leapfrog with non-flat topography not allowed any more
 !
 ! Former revisions:
@@ -88 +89 @@
        IF ( momentum_advec /= 'pw-scheme' )  THEN
           WRITE( action, '(A,A)' )  'momentum_advec = ', momentum_advec
+       ENDIF
+       IF ( timestep_scheme(1:8) == 'leapfrog' )  THEN
+          WRITE( action, '(A,A)' )  'timestep_scheme = ', timestep_scheme
        ENDIF
        IF ( psolver == 'multigrid'  .OR.  psolver == 'sor' )  THEN