Changeset 258 for palm/trunk/SOURCE/user_data_output_dvrp.f90

Timestamp:

Mar 13, 2009 12:36:03 PM (15 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routine.

File:

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

palm/trunk/SOURCE/user_data_output_dvrp.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
+! Output of messages replaced by message handling routine.
 ! Clipping implemented
 !
@@ -58 +59 @@
 !--       wrong character string that is neither recognized in data_output_dvrp
 !--       nor here in user_data_output_dvrp.
-          IF ( myid == 0 )  THEN
-             PRINT*,'+++ (user_)data_output_dvrp: no output possible for: ', &
-                  output_variable
-          ENDIF
+          WRITE( message_string, * ) 'no output possible for: ', &
+                                     output_variable
+          CALL message( 'user_data_output_dvrp', 'UI0003', 0, 0, 0, 6, 0 )
+          
 
     END SELECT