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_dvrp_coltab.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:
     
    1718! Definition of the colour table to be used by the dvrp software.
    1819!------------------------------------------------------------------------------!
    19 
     20   
     21    USE control_parameters
    2022    USE dvrp_variables
    2123    USE pegrid
     
    3739
    3840       CASE DEFAULT
    39           IF ( myid == 0 )  PRINT*, '+++ user_dvrp_coltab: unknown mode "', &
    40                                     mode, '"'
    41           CALL local_stop
     41          message_string = 'unknown mode "' // mode // '"'
     42          CALL message( 'user_dvrp_coltab', 'UI0004', 1, 2, 0, 6, 0 )
     43
    4244
    4345    END SELECT
Note: See TracChangeset for help on using the changeset viewer.