Changeset 335 for palm/trunk


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r333 r335  
    9393Errors:
    9494------
     95Bugfix: error in formatting the output (message.f90)
     96
    9597Bugfix: avoid that ngp_2dh_s_inner becomes zero (init_3_model)
    9698
  • palm/trunk/SOURCE/message.f90

    r329 r335  
    118118          WRITE( *, '(4X,A)' )  TRIM( information_string_1 )
    119119          WRITE( *, '(4X,A)' )  TRIM( information_string_2 )
     120          WRITE( *, '(4X,A)' )  ''
    120121
    121122       ELSE
     
    135136          ENDDO
    136137          WRITE( file_id, '(4X,A)' )  TRIM( message_string )
    137           WRITE( *, '(4X,A)' )  ''
     138          WRITE( file_id, '(4X,A)' )  ''
    138139          WRITE( file_id, '(4X,A)' )  TRIM( information_string_1 )
    139140          WRITE( file_id, '(4X,A)' )  TRIM( information_string_2 )
    140           WRITE( *, '(4X,A)' )  ''
     141          WRITE( file_id, '(4X,A)' )  ''
    141142!
    142143!--       Flush buffer, if requested
Note: See TracChangeset for help on using the changeset viewer.