eesupp/src/mds_flush.F

d44e11c489 Jean*0001 #include "CPP_EEOPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: MDS_FLUSH
                0005
                0006 C     !INTERFACE:
                0007       SUBROUTINE MDS_FLUSH( ioUnit, myThid )
                0008
                0009 C     !DESCRIPTION:
                0010 C     call the intrinsic subroutine FLUSH (if available) on the ioUnit argument
                0011
                0012 C     !USES:
                0013       IMPLICIT NONE
                0014 #include "EEPARAMS.h"
                0015
                0016 C     !INPUT PARAMETERS:
                0017 C     ioUnit (integer) :: unit number
                0018 C     myThid (integer) :: my Thread Id number
                0019       INTEGER ioUnit
                0020       INTEGER myThid
                0021
                0022 C     !LOCAL VARIABLES:
                0023 CEOP
                0024
                0025 #ifdef HAVE_FLUSH
                0026       CALL FLUSH( ioUnit )
                0027 #endif
                0028
                0029       RETURN
                0030       END