Changeset 4354 for palm

Timestamp:

Dec 19, 2019 4:10:18 PM (5 years ago)

Author:

suehring

Message:

surface_mod: bugfix in message call and define appropriate error number

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix in message call and specify error number
+! 
+! 4346 2019-12-18 11:55:56Z motisi
 ! Introduction of wall_flags_total_0, which currently sets bits based on static
 ! topography information used in wall_flags_static_0
@@ -816 +819 @@
                                           'surface element at '//             &
                                           'grid point (k,j,i) = ', k, j, i
-                         CALL message( 'surface_mod', 'PA0999', 1, 2, 0, 6, 0 )
+                         CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 )
                       ENDIF