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

Timestamp:

Feb 2, 2009 7:39:34 AM (15 years ago)

Author:

raasch

Message:

preparations for the next release

File:

• palm/trunk/SOURCE/message.f90 (moved) (moved from palm/trunk/SOURCE/handle_palm_message.f90) (3 diffs)

palm/trunk/SOURCE/message.f90

@@ -1 @@
- SUBROUTINE handle_palm_message( routine_name, message_identifier,             &
-                                 requested_action, message_level, output_on_pe,&
-                                 file_id, flush )
+ SUBROUTINE message( routine_name, message_identifier, requested_action, &
+                     message_level, output_on_pe, file_id, flush )
 
 !------------------------------------------------------------------------------!
 ! Actual revisions:
 ! -----------------
-! Initial revision
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 213 2008-11-13 10:26:18Z raasch
+! Initial revision
 !
 ! Description:
@@ -128 +130 @@
 
        IF ( pe_out_of_range )  THEN
-          WRITE ( *, '(A)' )  '+++ WARNING from handle_palm_message:'
+          WRITE ( *, '(A)' )  '+++ WARNING from routine message:'
           WRITE ( *, '(A,I6,A)' )  '    PE ', output_on_pe, &
                                    ' choosed for output is larger '
@@ -148 +150 @@
 !    print*, '#13'
 
- END SUBROUTINE handle_palm_message
+ END SUBROUTINE message