Ignore:
Timestamp:
Jan 4, 2008 4:29:45 AM (16 years ago)
Author:
letzel
Message:

User-defined spectra.

Bugfix: extra '*' removed in user_statistics sample code (user_interface).

File:
1 edited

Legend:

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

    r4 r144  
    44! Actual revisions:
    55! -----------------
    6 !
     6! user-defined spectra
    77!
    88! Former revisions:
     
    117117
    118118             CASE DEFAULT
    119                 PRINT*, '+++ data_output_spectra: Spectra of ', &
    120                              TRIM( data_output_sp(m) ), ' are not defined'
     119!
     120!--             The DEFAULT case is reached either if the parameter
     121!--             data_output_sp(m) contains a wrong character string or if the
     122!--             user has coded a special case in the user interface. There, the
     123!--             subroutine user_spectra checks which of these two conditions
     124!--             applies.
     125                CALL user_spectra( 'data_output', m, pr )
    121126
    122127          END SELECT
Note: See TracChangeset for help on using the changeset viewer.