Parent Directory | Revision Log | Patch
revision 168 by guez, Wed Sep 9 10:41:47 2015 UTC | revision 212 by guez, Thu Jan 12 12:31:31 2017 UTC | |
---|---|---|
# | Line 25 contains | Line 25 contains |
25 | ! 1.The loop on files to synchronise | ! 1.The loop on files to synchronise |
26 | ||
27 | DO ifile = 1, nb_files | DO ifile = 1, nb_files |
28 | IF (present(file)) THEN | IF (present(file)) THEN |
29 | file_exists = (ifile==file) | file_exists = (ifile==file) |
30 | ELSE | ELSE |
# | Line 36 contains | Line 35 contains |
35 | ncid = ncdf_ids(ifile) | ncid = ncdf_ids(ifile) |
36 | call nf95_sync(ncid) | call nf95_sync(ncid) |
37 | END IF | END IF |
38 | END DO | END DO |
39 | ||
40 | END SUBROUTINE histsync | END SUBROUTINE histsync |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |