Changeset 335 for palm/trunk/SOURCE

Timestamp:

Jun 10, 2009 8:07:50 AM (15 years ago)

Author:

heinze

Message:

error in formatting of the output of message

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• message.f90 (modified) (2 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -93 +93 @@
 Errors:
 ------
+Bugfix: error in formatting the output (message.f90)
+
 Bugfix: avoid that ngp_2dh_s_inner becomes zero (init_3_model)
 

palm/trunk/SOURCE/message.f90

@@ -118 +118 @@
           WRITE( *, '(4X,A)' )  TRIM( information_string_1 ) 
           WRITE( *, '(4X,A)' )  TRIM( information_string_2 ) 
+          WRITE( *, '(4X,A)' )  ''
 
        ELSE
@@ -135 +136 @@
           ENDDO
           WRITE( file_id, '(4X,A)' )  TRIM( message_string )
-          WRITE( *, '(4X,A)' )  ''
+          WRITE( file_id, '(4X,A)' )  ''
           WRITE( file_id, '(4X,A)' )  TRIM( information_string_1 ) 
           WRITE( file_id, '(4X,A)' )  TRIM( information_string_2 ) 
-          WRITE( *, '(4X,A)' )  ''
+          WRITE( file_id, '(4X,A)' )  ''
 !
 !--       Flush buffer, if requested