/[lmdze]/trunk/Sources/IOIPSL/Histcom/histsync.f
ViewVC logotype

Diff of /trunk/Sources/IOIPSL/Histcom/histsync.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 211 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
Legend:
Removed from v.211  
changed lines
  Added in v.212
  ViewVC Help
Powered by ViewVC 1.1.21