Line | |
---|
1 | MODULE 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 | !-------------------------------------------------------------------- |
---|
12 | CONTAINS |
---|
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 | |
---|
32 | END MODULE mod_oasis_flush |
---|
Note: See
TracBrowser
for help on using the repository browser.