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

palm/trunk/SOURCE/data_output_3d.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
-! 
+! Output of messages replaced by message handling routine.
+!
 !
 ! Former revisions:
@@ -310 +311 @@
              resorted = .TRUE.
 
-             IF ( myid == 0  .AND.  .NOT. found )  THEN
-                PRINT*, '+++ data_output_3d: no output available for: ', &
-                             do3d(av,if)
+             IF ( .NOT. found )  THEN
+                message_string =  'no output available for: ' // TRIM( do3d(av,if) )
+                CALL message( 'data_output_3d', 'PA0182', 0, 0, 0, 6, 0 )
              ENDIF