source: palm/trunk/SOURCE/local_flush.f90 @ 674

Last change on this file since 674 was 484, checked in by raasch, 15 years ago

typo in file headers removed

  • Property svn:keywords set to Id
File size: 592 bytes
Line 
1 SUBROUTINE local_flush( file_id )
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: local_flush.f90 484 2010-02-05 07:36:54Z suehring $
11! Initial revision (raasch 12/04/07)
12!
13!
14! Description:
15! ------------
16! Flush calls for different operating systems
17!------------------------------------------------------------------------------!
18
19    INTEGER ::  file_id
20
21#if defined( __ibm )
22    CALL FLUSH_( file_id )
23#elif defined( __lc )  ||  defined( __nec )
24    CALL FLUSH( file_id )
25#endif
26
27 END SUBROUTINE local_flush   
Note: See TracBrowser for help on using the repository browser.