|
||||
File indexing completed on 2018-03-02 18:36:11 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTCd44e11c489 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
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |