Ignore:
Timestamp:
Jun 9, 2017 1:27:48 PM (4 years ago)
Author:
Giersch
Message:

Changed error messages

File:
1 edited

Legend:

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

    r2123 r2274  
    2020! Current revisions:
    2121! ------------------
    22 !
    23 !
     22! 
     23! 
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Changed error messages
     28!
     29! 2123 2017-01-18 12:34:59Z hoffmann
    2730!
    2831! 2122 2017-01-18 12:22:54Z hoffmann
     
    330333
    331334          IF ( ANY(weight < 0.0_wp) )  THEN
    332                 WRITE( message_string, * ) 'negative weighting'
     335                WRITE( message_string, * ) 'negative weighting factor'
    333336                CALL message( 'lpm_droplet_collision', 'PA0028',      &
    334337                               2, 2, -1, 6, 1 )
     
    498501
    499502          IF ( ANY(weight < 0.0_wp) )  THEN
    500                 WRITE( message_string, * ) 'negative weighting'
     503                WRITE( message_string, * ) 'negative weighting factor'
    501504                CALL message( 'lpm_droplet_collision', 'PA0028',      &
    502505                               2, 2, -1, 6, 1 )
Note: See TracChangeset for help on using the changeset viewer.