source: CPL/oasis3-mct/branches/OASIS3-MCT_2.0_branch/lib/scrip/src/mod_oasis_flush.F90 @ 4775

Last change on this file since 4775 was 4775, checked in by aclsce, 4 years ago
  • Imported oasis3-mct from Cerfacs svn server (not suppotred anymore).

The version has been extracted from https://oasis3mct.cerfacs.fr/svn/branches/OASIS3-MCT_2.0_branch/oasis3-mct@1818

File size: 890 bytes
Line 
1MODULE mod_oasis_flush
2
3  USE kinds_mod     ! defines common data types
4  !
5  IMPLICIT NONE
6
7   private
8
9   public oasis_flush_scrip
10
11!--------------------------------------------------------------------
12CONTAINS
13!--------------------------------------------------------------------
14
15!==========================================================================
16   SUBROUTINE oasis_flush_scrip(nu)
17
18   IMPLICIT NONE
19
20!--------------------------------------------------------------------
21   INTEGER(kind=int_kind),INTENT(in) :: nu
22!--------------------------------------------------------------------
23   character(len=*),parameter :: subname = 'oasis_flush_scrip'
24!--------------------------------------------------------------------
25
26   CALL FLUSH(nu)
27
28 END SUBROUTINE oasis_flush_scrip
29
30!==========================================================================
31
32END MODULE mod_oasis_flush
Note: See TracBrowser for help on using the repository browser.