Changeset 254 for palm/trunk/SOURCE/data_output_2d.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/data_output_2d.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_2d.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
-! 
+! Output of messages replaced by message handling routine.
+!
 !
 ! Former revisions:
@@ -158 +159 @@
        CASE DEFAULT
 
-          PRINT*,'+++ data_output_2d: unknown cross-section: ',mode
-          CALL local_stop
+          message_string = 'unknown cross-section: ' // TRIM( mode )
+          CALL message( 'data_output_2d', 'PA0180', 1, 2, 0, 6, 0 )
 
     END SELECT
@@ -518 +519 @@
 
                 IF ( .NOT. found )  THEN
-                   PRINT*, '+++ data_output_2d: no output provided for: ', &
-                                do2d(av,if)
+                   message_string =  'no output provided for: ' // TRIM( do2d(av,if) )
+                   CALL message( 'data_output_2d', 'PA0181', 0, 0, 0, 6, 0 )
                 ENDIF