Changeset 311


Ignore:
Timestamp:
May 11, 2009 3:02:15 PM (13 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:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/DOC/app/index.html

    r238 r311  
    279279<p style="margin: 0cm 0cm 5.1pt 72pt;"><span style="font-family: Thorndale;"><a href="chapter_5.1.html">5.1</a>
    280280Installation of <span class="SpellE">new</span><span class="SpellE"></span> / other
    281 <span class="SpellE">versions, version update</span><o:p></o:p></span></p>
     281<span class="SpellE">versions, version update</span></span><span style="font-family: Thorndale;" lang="EN-GB"></span>
     282
     283</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>
    282284<font color="#000000">&nbsp;
    283285<br>
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r308 r311  
    4141Changed:
    4242-------
     43A Link to the website appendix_a.html is printed for further information
     44about the possible errors. (message.f90)
     45
    4346Temperature gradient criterion for estimating the boundary layer height
    4447replaced by the gradient criterion of Sullivan et al. (1998). (flow_statistics)
  • 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.