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

Timestamp:

May 11, 2009 3:02:15 PM (16 years ago)

Author:

heinze

Message:

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

File:

• palm/trunk/SOURCE/message.f90 (modified) (4 diffs)

palm/trunk/SOURCE/message.f90

@@ -32 +32 @@
     CHARACTER(LEN=6)   ::  message_identifier
     CHARACTER(LEN=*)   ::  routine_name
-    CHARACTER(LEN=200) ::  header_string
+    CHARACTER(LEN=200) ::  header_string, information_string_1,information_string_2
 
     INTEGER ::  file_id, flush, i, message_level, output_on_pe, requested_action
@@ -61 +61 @@
     header_string = TRIM( header_string ) // ' ' // message_identifier // &
                     '   generated by routine: ' // TRIM( routine_name )
+  
+    information_string_1 = 'Further information can be found at'
+    IF(message_identifier(1:2) == 'NC') THEN
+       information_string_2 = 'http://www.muk.uni-hannover.de/~raasch/PALM_group/doc' // &
+                              '/app/appendix_a.html#NC****'
+    ELSE
+       information_string_2 = 'http://www.muk.uni-hannover.de/~raasch/PALM_group/doc' // &
+                              '/app/appendix_a.html#' // message_identifier
+    END IF
+    
 
 !    print*, '#3'
@@ -105 +115 @@
           WRITE( *, '(4X,A)' )  TRIM( message_string )
 !    print*, '#8'
+          WRITE( *, '(4X,A)' )  ''
+          WRITE( *, '(4X,A)' )  TRIM( information_string_1 ) 
+          WRITE( *, '(4X,A)' )  TRIM( information_string_2 ) 
 
        ELSE
@@ -122 +135 @@
           ENDDO
           WRITE( file_id, '(4X,A)' )  TRIM( message_string )
-
+          WRITE( *, '(4X,A)' )  ''
+          WRITE( file_id, '(4X,A)' )  TRIM( information_string_1 ) 
+          WRITE( file_id, '(4X,A)' )  TRIM( information_string_2 ) 
 !
 !--       Flush buffer, if requested