Changeset 254 for palm/trunk/SOURCE/data_output_spectra.f90

Timestamp:

Mar 5, 2009 3:33:42 PM (15 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routine.

File:

• palm/trunk/SOURCE/data_output_spectra.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_spectra.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
-! 
+! Output of messages replaced by message handling routine.
+!
 !
 ! Former revisions:
@@ -92 +93 @@
 !--    If necessary, calculate time average and reset average counter
        IF ( average_count_sp == 0 )  THEN
-          PRINT*, '+++ data_output_spectra: no spectra data available'
+           message_string = 'no spectra data available'
+           CALL message( 'data_output_spectra', 'PA0186', 0, 0, 0, 6, 0 )
        ENDIF
        IF ( average_count_sp /= 1 )  THEN