Changeset 1214 for palm/trunk

Timestamp:

Aug 21, 2013 12:29:17 PM (11 years ago)

Author:

kanani

Message:

additional check for simultaneous use of vertical grid stretching

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! additional check for simultaneous use of vertical grid stretching
+! and particle advection
 !
 ! Former revisions:
@@ -568 +569 @@
 
     END SELECT
+
+!
+!-- Check if vertical grid stretching is used together with particles
+    IF ( dz_stretch_level < 100000.0 .AND. particle_advection )  THEN
+       message_string = 'Vertical grid stretching is not allowed together ' // &
+                        'with particle advection.'
+       CALL message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 )
+    ENDIF
 
 !