Ignore:
Timestamp:
Mar 5, 2009 3:33:42 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/data_output_2d.f90

    r226 r254  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
     7!
    78!
    89! Former revisions:
     
    158159       CASE DEFAULT
    159160
    160           PRINT*,'+++ data_output_2d: unknown cross-section: ',mode
    161           CALL local_stop
     161          message_string = 'unknown cross-section: ' // TRIM( mode )
     162          CALL message( 'data_output_2d', 'PA0180', 1, 2, 0, 6, 0 )
    162163
    163164    END SELECT
     
    518519
    519520                IF ( .NOT. found )  THEN
    520                    PRINT*, '+++ data_output_2d: no output provided for: ', &
    521                                 do2d(av,if)
     521                   message_string =  'no output provided for: ' // TRIM( do2d(av,if) )
     522                   CALL message( 'data_output_2d', 'PA0181', 0, 0, 0, 6, 0 )
    522523                ENDIF
    523524
Note: See TracChangeset for help on using the changeset viewer.