Changeset 329 for palm/trunk/SOURCE/message.f90

Timestamp:

Jun 2, 2009 2:16:11 PM (15 years ago)

Author:

heinze

Message:

Small change in formatting in message.f90. Bugfix in cross_sections.ncl in case of normalizing.

File:

• palm/trunk/SOURCE/message.f90 (modified) (1 diff)

palm/trunk/SOURCE/message.f90

@@ -138 +138 @@
           WRITE( file_id, '(4X,A)' )  TRIM( information_string_1 ) 
           WRITE( file_id, '(4X,A)' )  TRIM( information_string_2 ) 
+          WRITE( *, '(4X,A)' )  ''
 !
 !--       Flush buffer, if requested