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/progress_bar.f90

    r1683 r1808  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! routine local_flush replaced by FORTRAN statement
    2222!
    2323! Former revisions:
     
    148148          WRITE ( 117, FMT='(F5.2,1X,F5.2)' ) remaining_time_in_percent,       &
    149149                                              remaining_time_in_percent_total
    150           CALL local_flush( 117 )
     150          FLUSH( 117 )
    151151
    152152       ELSE
     
    170170                                  100.0_wp )
    171171#endif
    172           CALL local_flush( OUTPUT_UNIT )
     172          FLUSH( OUTPUT_UNIT )
    173173
    174174       ENDIF
Note: See TracChangeset for help on using the changeset viewer.