Changeset 2975 for palm


Ignore:
Timestamp:
Apr 16, 2018 3:22:20 PM (7 years ago)
Author:
suehring
Message:

Give informative message in case initialization_actions has been changed in nested child domain.

File:
1 edited

Legend:

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

    r2967 r2975  
    2525! -----------------
    2626! $Id$
     27! - Informative message when initializing_actions has been changed
     28!   to set_constant_profile in child domain
     29! - Change location in message call
     30!
     31! 2967 2018-04-13 11:22:08Z raasch
    2732! bugfix: missing parallel cpp-directives added
    2833!
     
    925930               TRIM( initializing_actions ) == 'read_restart_data'  .OR.       &
    926931               TRIM( initializing_actions ) == 'by_user' ) )  THEN
     932             message_string = 'initializing_actions = ' //                     &
     933                              TRIM( initializing_actions ) // ' has been ' //  &
     934                              'changed to set_constant_profiles in child ' //  &
     935                              'domain.'
     936             CALL message( 'parin', 'PA0492', 0, 0, 0, 6, 0 )
     937
    927938             initializing_actions = 'set_constant_profiles'
    928939          ENDIF
     
    937948             message_string = 'unknown boundary condition: bc_lr = "' // &
    938949                              TRIM( bc_lr ) // '"'
    939              CALL message( 'check_parameters', 'PA0049', 1, 2, 0, 6, 0 )
     950             CALL message( 'parin', 'PA0049', 1, 2, 0, 6, 0 )
    940951          ENDIF
    941952          IF ( bc_ns /= 'cyclic'  .AND.  bc_ns /= 'dirichlet/radiation'  .AND. &
     
    944955             message_string = 'unknown boundary condition: bc_ns = "' // &
    945956                              TRIM( bc_ns ) // '"'
    946              CALL message( 'check_parameters', 'PA0050', 1, 2, 0, 6, 0 )
     957             CALL message( 'parin', 'PA0050', 1, 2, 0, 6, 0 )
    947958          ENDIF
    948959!
Note: See TracChangeset for help on using the changeset viewer.