SUBROUTINE local_flush( file_id ) !------------------------------------------------------------------------------! ! Actual revisions: ! ----------------- ! ! ! Former revisions: ! ----------------- ! $Id: local_flush.f90 82 2007-04-16 15:40:52Z raasch $ ! Initial revision (raasch 12/04/07) ! ! ! Description: ! ------------ ! Flush calls for different operating systems !------------------------------------------------------------------------------! INTEGER :: file_id #if defined( __ibm ) CALL FLUSH_( file_id ) #elif defined( __lc ) || defined( __nec ) CALL FLUSH( file_id ) #endif END SUBROUTINE local_flush