Changeset 3058

Timestamp:

Jun 5, 2018 9:21:14 AM (6 years ago)

Author:

raasch

Message:

bugfix: wrong error number in r3057 revised

File:

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

palm/trunk/SOURCE/init_pegrid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: wrong error number in r3057 revised
+! 
+! 3057 2018-06-05 09:03:41Z raasch
 ! bugfix: check that nz is even in case that optimized multigrid is used
 ! 
@@ -919 +922 @@
           IF (  mg_levels_z == 0 )  THEN
              message_string = 'optimized multigrid method requires nz to be even'
-             CALL message( 'init_pegrid', 'PA0028', 1, 2, 0, 6, 0 )
+             CALL message( 'init_pegrid', 'PA0495', 1, 2, 0, 6, 0 )
           ENDIF
        ENDIF