C $Header: /u/gcmpack/MITgcm/eesupp/src/mds_flush.F,v 1.1 2012/10/11 19:15:18 jmc Exp $ C $Name: $ #include "CPP_EEOPTIONS.h" CBOP C !ROUTINE: MDS_FLUSH C !INTERFACE: SUBROUTINE MDS_FLUSH( ioUnit, myThid ) C !DESCRIPTION: C call the intrinsic subroutine FLUSH (if available) on the ioUnit argument C !USES: IMPLICIT NONE #include "EEPARAMS.h" C !INPUT PARAMETERS: C ioUnit (integer) :: unit number C myThid (integer) :: my Thread Id number INTEGER ioUnit INTEGER myThid C !LOCAL VARIABLES: CEOP #ifdef HAVE_FLUSH CALL FLUSH( ioUnit ) #endif RETURN END