Changeset 3034


Ignore:
Timestamp:
May 24, 2018 8:41:20 AM (4 years ago)
Author:
raasch
Message:

bugfix: check that initializing_actions has been set

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_parameters.f90

    r2980 r3034  
    2525! -----------------
    2626! $Id$
     27! bugfix: check that initializing_actions has been set
     28!
     29! 2980 2018-04-17 15:19:27Z suehring
    2730! Further improvement for spinup checks.
    2831!
     
    13451348    IF ( collision_kernel(6:9) == 'fast' )  use_kernel_tables = .TRUE.
    13461349
     1350!
     1351!-- Initializing actions must have been set by the user
     1352    IF ( TRIM( initializing_actions ) == '' )  THEN
     1353       message_string = 'no value specified for initializing_actions'
     1354       CALL message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 )
     1355    ENDIF
     1356
    13471357    IF ( TRIM( initializing_actions ) /= 'read_restart_data'  .AND.            &
    13481358         TRIM( initializing_actions ) /= 'cyclic_fill' )  THEN
     
    13601370
    13611371             CASE DEFAULT
    1362                 message_string = 'initializing_action = "' //                  &
    1363                                  TRIM( action ) // '" unkown or not allowed'
     1372                message_string = 'initializing_actions = "' //                 &
     1373                                 TRIM( action ) // '" unknown or not allowed'
    13641374                CALL message( 'check_parameters', 'PA0030', 1, 2, 0, 6, 0 )
    13651375
Note: See TracChangeset for help on using the changeset viewer.