Ignore:
Timestamp:
Mar 13, 2009 12:36:03 PM (13 years ago)
Author:
heinze
Message:

Output of messages replaced by message handling routine.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/user_actions.f90

    r226 r258  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
     7!
    78!
    89! Former revisions:
     
    113114
    114115          CASE DEFAULT
    115              IF ( myid == 0 )  PRINT*, '+++ user_actions: unknown location "', &
    116                                        location, '"'
    117              CALL local_stop
     116             message_string = 'unknown location "' // location // '"'
     117             CALL message( 'user_actions', 'UI0001', 1, 2, 0, 6, 0 )
    118118
    119119       END SELECT
     
    168168
    169169          CASE ( 'before_timestep', 'after_integration', 'after_timestep' )
    170              IF ( myid == 0 )  THEN
    171                 PRINT*, '+++ user_actions: location "', location, '" is not ', &
     170             message_string = 'location "' // location // '" is not ' // &
    172171                             'allowed to be called with parameters "i" and "j"'
    173              ENDIF
    174              CALL local_stop
     172             CALL message( 'user_actions', 'UI0002', 1, 2, 0, 6, 0 )
    175173
    176174
    177175          CASE DEFAULT
    178              IF ( myid == 0 )  PRINT*, '+++ user_actions: unknown location "', &
    179                                        location, '"'
    180              CALL local_stop
    181 
     176             message_string = 'unknown location "' // location // '"'
     177             CALL message( 'user_actions', 'UI0001', 1, 2, 0, 6, 0 )
     178             
    182179
    183180       END SELECT
Note: See TracChangeset for help on using the changeset viewer.