Changeset 2274 for palm/trunk/SOURCE/lpm_droplet_collision.f90

Timestamp:

Jun 9, 2017 1:27:48 PM (7 years ago)

Author:

Giersch

Message:

Changed error messages

File:

• palm/trunk/SOURCE/lpm_droplet_collision.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_droplet_collision.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
-!
+! 
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Changed error messages
+!
+! 2123 2017-01-18 12:34:59Z hoffmann
 !
 ! 2122 2017-01-18 12:22:54Z hoffmann
@@ -330 +333 @@
 
           IF ( ANY(weight < 0.0_wp) )  THEN
-                WRITE( message_string, * ) 'negative weighting'
+                WRITE( message_string, * ) 'negative weighting factor'
                 CALL message( 'lpm_droplet_collision', 'PA0028',      &
                                2, 2, -1, 6, 1 )
@@ -498 +501 @@
 
           IF ( ANY(weight < 0.0_wp) )  THEN
-                WRITE( message_string, * ) 'negative weighting'
+                WRITE( message_string, * ) 'negative weighting factor'
                 CALL message( 'lpm_droplet_collision', 'PA0028',      &
                                2, 2, -1, 6, 1 )