Changeset 3058


Ignore:
Timestamp:
Jun 5, 2018 9:21:14 AM (6 years ago)
Author:
raasch
Message:

bugfix: wrong error number in r3057 revised

File:
1 edited

Legend:

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

    r3057 r3058  
    2525! -----------------
    2626! $Id$
     27! bugfix: wrong error number in r3057 revised
     28!
     29! 3057 2018-06-05 09:03:41Z raasch
    2730! bugfix: check that nz is even in case that optimized multigrid is used
    2831!
     
    919922          IF (  mg_levels_z == 0 )  THEN
    920923             message_string = 'optimized multigrid method requires nz to be even'
    921              CALL message( 'init_pegrid', 'PA0028', 1, 2, 0, 6, 0 )
     924             CALL message( 'init_pegrid', 'PA0495', 1, 2, 0, 6, 0 )
    922925          ENDIF
    923926       ENDIF
Note: See TracChangeset for help on using the changeset viewer.