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

Timestamp:

Feb 4, 2011 11:16:06 PM (14 years ago)

Author:

gryschka

Message:

message string

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (1 diff)

palm/trunk/SOURCE/check_parameters.f90

@@ -677 +677 @@
     ENDIF
 
+    IF ( TRIM( initializing_actions ) == 'initialize_vortex' .AND. &
+         conserve_volume_flow ) THEN
+         message_string = 'initializing_actions = "initialize_vortex"' // &
+                        ' ist not allowed with conserve_volume_flow = .T.'
+       CALL message( 'check_parameters', 'PA0343', 1, 2, 0, 6, 0 )
+    ENDIF       
+
+
     IF ( INDEX( initializing_actions, 'set_constant_profiles' ) /= 0  .AND. &
          INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 )  THEN