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

Output of messages replaced by message handling routine.

File:
1 edited

Legend:

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

    r226 r258  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
    77!
    88! Former revisions:
     
    2121
    2222    USE arrays_3d
     23    USE control_parameters
    2324    USE indices
    2425    USE spectrum
     
    5253       
    5354          CASE DEFAULT
    54              PRINT*, '+++ user_spectra/preprocess: Spectra of ', &
    55                   TRIM( data_output_sp(m) ), ' can not be calculated'
    56          
     55             message_string = 'Spectra of ' // &
     56                              TRIM( data_output_sp(m) ) // ' can not be calculated'
     57             CALL message( 'user_spectra', 'UI0010', 0, 0, 0, 6, 0 )
     58           
    5759       END SELECT
    5860
     
    6971
    7072          CASE DEFAULT
    71              PRINT*, '+++ user_spectra/data_output: Spectra of ', &
    72                           TRIM( data_output_sp(m) ), ' are not defined'
    73 
     73             message_string = 'Spectra of ' //  &
     74                              TRIM( data_output_sp(m) ) // ' are not defined'
     75             CALL message( 'user_spectra', 'UI0011', 0, 0, 0, 6, 0 )
     76             
    7477          END SELECT
    7578
Note: See TracChangeset for help on using the changeset viewer.