Changeset 311 for palm/trunk

Timestamp:

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

Author:

heinze

Message:

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

Location:

palm/trunk

Files:

• DOC/app/appendix_a.html (added)
• DOC/app/index.html (modified) (1 diff)
• SOURCE/CURRENT_MODIFICATIONS (modified) (1 diff)
• SOURCE/message.f90 (modified) (4 diffs)

palm/trunk/DOC/app/index.html

@@ -279 +279 @@
 <p style="margin: 0cm 0cm 5.1pt 72pt;"><span style="font-family: Thorndale;"><a href="chapter_5.1.html">5.1</a>
 Installation of <span class="SpellE">new</span><span class="SpellE"></span> / other
-<span class="SpellE">versions, version update</span><o:p></o:p></span></p>
+<span class="SpellE">versions, version update</span></span><span style="font-family: Thorndale;" lang="EN-GB"></span>
+
+</p><p style="margin: 12pt 0cm 0.0001pt 36pt;"><span style="font-family: Thorndale;"><a href="appendix_a.html"><span style="" lang="EN-GB">Appendix A</span></a></span><span style="font-family: Thorndale;" lang="EN-GB"> PALM error messages</span></p>
 <font color="#000000">&nbsp;
 <br>

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -41 +41 @@
 Changed:
 -------
+A Link to the website appendix_a.html is printed for further information
+about the possible errors. (message.f90)
+
 Temperature gradient criterion for estimating the boundary layer height
 replaced by the gradient criterion of Sullivan et al. (1998). (flow_statistics)

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