Ignore:
Timestamp:
Apr 5, 2016 7:44:00 PM (5 years ago)
Author:
raasch
Message:

preprocessor directives using machine dependent flags (lc, ibm, etc.) mostly removed from the code

File:
1 edited

Legend:

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

    r1765 r1808  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! routine local_flush replaced by FORTRAN statement
    2222!
    2323! Former revisions:
     
    6464!> output_on_pe: -1 - all, else - output on specified PE
    6565!> file_id: 6 - stdout (*)
    66 !> flush: 0 - no action, 1 - flush the respective output buffer
     66!> flush_file: 0 - no action, 1 - flush the respective output buffer
    6767!------------------------------------------------------------------------------!
    6868 SUBROUTINE message( routine_name, message_identifier, requested_action, &
    69                      message_level, output_on_pe, file_id, flush )
     69                     message_level, output_on_pe, file_id, flush_file )
    7070 
    7171    USE control_parameters,                                                    &
     
    8989
    9090    INTEGER(iwp) ::  file_id                             !<
    91     INTEGER(iwp) ::  flush                               !<
     91    INTEGER(iwp) ::  flush_file                          !<
    9292    INTEGER(iwp) ::  i                                   !<
    9393    INTEGER(iwp) ::  message_level                       !<
     
    203203!
    204204!--       Flush buffer, if requested
    205           IF ( flush == 1 )  CALL local_flush( file_id )
     205          IF ( flush_file == 1 )  FLUSH( file_id )
    206206       ENDIF
    207207
     
    261261                TRIM( location )
    262262       ENDIF
    263        CALL local_flush( OUTPUT_UNIT )
     263       FLUSH( OUTPUT_UNIT )
    264264    ENDIF
    265265
Note: See TracChangeset for help on using the changeset viewer.