Changeset 2975 for palm/trunk/SOURCE/parin.f90

Timestamp:

Apr 16, 2018 3:22:20 PM (6 years ago)

Author:

suehring

Message:

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

File:

• palm/trunk/SOURCE/parin.f90 (modified) (4 diffs)

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! - Informative message when initializing_actions has been changed 
+!   to set_constant_profile in child domain 
+! - Change location in message call
+! 
+! 2967 2018-04-13 11:22:08Z raasch
 ! bugfix: missing parallel cpp-directives added
 ! 
@@ -925 +930 @@
                TRIM( initializing_actions ) == 'read_restart_data'  .OR.       &
                TRIM( initializing_actions ) == 'by_user' ) )  THEN
+             message_string = 'initializing_actions = ' //                     &
+                              TRIM( initializing_actions ) // ' has been ' //  &
+                              'changed to set_constant_profiles in child ' //  &
+                              'domain.' 
+             CALL message( 'parin', 'PA0492', 0, 0, 0, 6, 0 )
+
              initializing_actions = 'set_constant_profiles'
           ENDIF
@@ -937 +948 @@
              message_string = 'unknown boundary condition: bc_lr = "' // &
                               TRIM( bc_lr ) // '"'
-             CALL message( 'check_parameters', 'PA0049', 1, 2, 0, 6, 0 )
+             CALL message( 'parin', 'PA0049', 1, 2, 0, 6, 0 )
           ENDIF
           IF ( bc_ns /= 'cyclic'  .AND.  bc_ns /= 'dirichlet/radiation'  .AND. &
@@ -944 +955 @@
              message_string = 'unknown boundary condition: bc_ns = "' // &
                               TRIM( bc_ns ) // '"'
-             CALL message( 'check_parameters', 'PA0050', 1, 2, 0, 6, 0 )
+             CALL message( 'parin', 'PA0050', 1, 2, 0, 6, 0 )
           ENDIF
 !