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_data_output_dvrp.f90

    r246 r258  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
     6! Output of messages replaced by message handling routine.
    67! Clipping implemented
    78!
     
    5859!--       wrong character string that is neither recognized in data_output_dvrp
    5960!--       nor here in user_data_output_dvrp.
    60           IF ( myid == 0 )  THEN
    61              PRINT*,'+++ (user_)data_output_dvrp: no output possible for: ', &
    62                   output_variable
    63           ENDIF
     61          WRITE( message_string, * ) 'no output possible for: ', &
     62                                     output_variable
     63          CALL message( 'user_data_output_dvrp', 'UI0003', 0, 0, 0, 6, 0 )
     64         
    6465
    6566    END SELECT
Note: See TracChangeset for help on using the changeset viewer.