SUBROUTINE local_flush( file_id ) !------------------------------------------------------------------------------! ! Current revisions: ! ----------------- ! ! ! Former revisions: ! ----------------- ! $Id: local_flush.f90 484 2010-02-05 07:36:54Z maronga $ ! 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