Ignore:
Timestamp:
Feb 2, 2009 7:39:34 AM (12 years ago)
Author:
raasch
Message:

preparations for the next release

File:
1 moved

Legend:

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

    r225 r226  
    1  SUBROUTINE handle_palm_message( routine_name, message_identifier,             &
    2                                  requested_action, message_level, output_on_pe,&
    3                                  file_id, flush )
     1 SUBROUTINE message( routine_name, message_identifier, requested_action, &
     2                     message_level, output_on_pe, file_id, flush )
    43
    54!------------------------------------------------------------------------------!
    65! Actual revisions:
    76! -----------------
    8 ! Initial revision
     7!
    98!
    109! Former revisions:
    1110! -----------------
    1211! $Id$
     12!
     13! 213 2008-11-13 10:26:18Z raasch
     14! Initial revision
    1315!
    1416! Description:
     
    128130
    129131       IF ( pe_out_of_range )  THEN
    130           WRITE ( *, '(A)' )  '+++ WARNING from handle_palm_message:'
     132          WRITE ( *, '(A)' )  '+++ WARNING from routine message:'
    131133          WRITE ( *, '(A,I6,A)' )  '    PE ', output_on_pe, &
    132134                                   ' choosed for output is larger '
     
    148150!    print*, '#13'
    149151
    150  END SUBROUTINE handle_palm_message
     152 END SUBROUTINE message
Note: See TracChangeset for help on using the changeset viewer.