source: palm/tags/release-3.2b/SOURCE/local_flush.f90 @ 237

Last change on this file since 237 was 82, checked in by raasch, 17 years ago

vorlaeufige Standalone-Version fuer Linux-Cluster

  • Property svn:keywords set to Id
File size: 591 bytes
Line 
1 SUBROUTINE local_flush( file_id )
2
3!------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: local_flush.f90 82 2007-04-16 15:40:52Z raasch $
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.