Changeset 4355 for palm/trunk/SOURCE

Timestamp:

Dec 19, 2019 4:14:21 PM (4 years ago)

Author:

suehring

Message:

surface_mod: bugfix in message call and define appropriate error number

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Fix also remaining message calls.
+! 
+! 4354 2019-12-19 16:10:18Z suehring
 ! Bugfix in message call and specify error number
 ! 
@@ -875 +878 @@
                                           '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
@@ -909 +912 @@
                                           '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
@@ -943 +946 @@
                                           '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
@@ -977 +980 @@
                                           '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