Ignore:
Timestamp:
Mar 5, 2009 3:33:42 PM (12 years ago)
Author:
heinze
Message:

Output of messages replaced by message handling routine.

File:
1 edited

Legend:

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

    r220 r254  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
     7!
    78!
    89! Former revisions:
     
    9394!-- called once after the current time step
    9495    IF ( flow_statistics_called )  THEN
    95        IF ( myid == 0 )  PRINT*, '+++ WARNING: flow_statistics is called two', &
    96                                  ' times within one timestep'
    97        CALL local_stop
     96
     97       message_string = 'flow_statistics is called two times within one timestep'
     98       CALL message( 'flow_statistics', 'PA0190', 1, 2, 0, 6, 0 )
     99     
    98100    ENDIF
    99101
Note: See TracChangeset for help on using the changeset viewer.