Changeset 2271 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

Jun 9, 2017 12:34:55 PM (7 years ago)

Author:

sward

Message:

error messages and numbers updated

File:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error message changed
+! 
+! 2259 2017-06-08 09:09:11Z gronemeier
 ! Implemented synthetic turbulence generator
 !
@@ -938 +941 @@
                   mg_switch_to_pe0_level >= maximum_grid_level_l )  THEN
                 message_string = 'mg_switch_to_pe0_level ' // &
-                                 'out of range and reset to default (=0)'
+                                 'out of range and reset to 0'
                 CALL message( 'init_pegrid', 'PA0235', 0, 1, 0, 6, 0 )
                 mg_switch_to_pe0_level = 0