Ignore:
Timestamp:
May 11, 2009 3:02:15 PM (12 years ago)
Author:
heinze
Message:

Website appendix_a.html added and printing of the link to the site in message.f90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/message.f90

    r226 r311  
    3232    CHARACTER(LEN=6)   ::  message_identifier
    3333    CHARACTER(LEN=*)   ::  routine_name
    34     CHARACTER(LEN=200) ::  header_string
     34    CHARACTER(LEN=200) ::  header_string, information_string_1,information_string_2
    3535
    3636    INTEGER ::  file_id, flush, i, message_level, output_on_pe, requested_action
     
    6161    header_string = TRIM( header_string ) // ' ' // message_identifier // &
    6262                    '   generated by routine: ' // TRIM( routine_name )
     63 
     64    information_string_1 = 'Further information can be found at'
     65    IF(message_identifier(1:2) == 'NC') THEN
     66       information_string_2 = 'http://www.muk.uni-hannover.de/~raasch/PALM_group/doc' // &
     67                              '/app/appendix_a.html#NC****'
     68    ELSE
     69       information_string_2 = 'http://www.muk.uni-hannover.de/~raasch/PALM_group/doc' // &
     70                              '/app/appendix_a.html#' // message_identifier
     71    END IF
     72   
    6373
    6474!    print*, '#3'
     
    105115          WRITE( *, '(4X,A)' )  TRIM( message_string )
    106116!    print*, '#8'
     117          WRITE( *, '(4X,A)' )  ''
     118          WRITE( *, '(4X,A)' )  TRIM( information_string_1 )
     119          WRITE( *, '(4X,A)' )  TRIM( information_string_2 )
    107120
    108121       ELSE
     
    122135          ENDDO
    123136          WRITE( file_id, '(4X,A)' )  TRIM( message_string )
    124 
     137          WRITE( *, '(4X,A)' )  ''
     138          WRITE( file_id, '(4X,A)' )  TRIM( information_string_1 )
     139          WRITE( file_id, '(4X,A)' )  TRIM( information_string_2 )
    125140!
    126141!--       Flush buffer, if requested
Note: See TracChangeset for help on using the changeset viewer.