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

palm/trunk/SOURCE/user_actions.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
-! 
+! Output of messages replaced by message handling routine.
+!
 !
 ! Former revisions:
@@ -113 +114 @@
 
           CASE DEFAULT
-             IF ( myid == 0 )  PRINT*, '+++ user_actions: unknown location "', &
-                                       location, '"'
-             CALL local_stop
+             message_string = 'unknown location "' // location // '"'
+             CALL message( 'user_actions', 'UI0001', 1, 2, 0, 6, 0 )
 
        END SELECT
@@ -168 +168 @@
 
           CASE ( 'before_timestep', 'after_integration', 'after_timestep' )
-             IF ( myid == 0 )  THEN
-                PRINT*, '+++ user_actions: location "', location, '" is not ', &
+             message_string = 'location "' // location // '" is not ' // &
                              'allowed to be called with parameters "i" and "j"'
-             ENDIF
-             CALL local_stop
+             CALL message( 'user_actions', 'UI0002', 1, 2, 0, 6, 0 )
 
 
           CASE DEFAULT
-             IF ( myid == 0 )  PRINT*, '+++ user_actions: unknown location "', &
-                                       location, '"'
-             CALL local_stop
-
+             message_string = 'unknown location "' // location // '"'
+             CALL message( 'user_actions', 'UI0001', 1, 2, 0, 6, 0 )
+             
 
        END SELECT