Changeset 3034 for palm

Timestamp:

May 24, 2018 8:41:20 AM (6 years ago)

Author:

raasch

Message:

bugfix: check that initializing_actions has been set

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: check that initializing_actions has been set
+! 
+! 2980 2018-04-17 15:19:27Z suehring
 ! Further improvement for spinup checks.
 ! 
@@ -1345 +1348 @@
     IF ( collision_kernel(6:9) == 'fast' )  use_kernel_tables = .TRUE.
 
+!
+!-- Initializing actions must have been set by the user
+    IF ( TRIM( initializing_actions ) == '' )  THEN
+       message_string = 'no value specified for initializing_actions'
+       CALL message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 )
+    ENDIF
+
     IF ( TRIM( initializing_actions ) /= 'read_restart_data'  .AND.            &
          TRIM( initializing_actions ) /= 'cyclic_fill' )  THEN
@@ -1360 +1370 @@
 
              CASE DEFAULT
-                message_string = 'initializing_action = "' //                  &
-                                 TRIM( action ) // '" unkown or not allowed'
+                message_string = 'initializing_actions = "' //                 &
+                                 TRIM( action ) // '" unknown or not allowed'
                 CALL message( 'check_parameters', 'PA0030', 1, 2, 0, 6, 0 )