Changeset 254 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Mar 5, 2009 3:33:42 PM (15 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routine.

File:

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

palm/trunk/SOURCE/flow_statistics.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
-! 
+! Output of messages replaced by message handling routine.
+!
 !
 ! Former revisions:
@@ -93 +94 @@
 !-- called once after the current time step
     IF ( flow_statistics_called )  THEN
-       IF ( myid == 0 )  PRINT*, '+++ WARNING: flow_statistics is called two', &
-                                 ' times within one timestep'
-       CALL local_stop
+
+       message_string = 'flow_statistics is called two times within one timestep'
+       CALL message( 'flow_statistics', 'PA0190', 1, 2, 0, 6, 0 )
+      
     ENDIF