Changeset 144 for palm/trunk/SOURCE/data_output_spectra.f90
- Timestamp:
- Jan 4, 2008 4:29:45 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_spectra.f90
r4 r144 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! user-defined spectra 7 7 ! 8 8 ! Former revisions: … … 117 117 118 118 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 ) 121 126 122 127 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.