/[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 167 by guez, Fri May 22 23:13:19 2015 UTC revision 168 by guez, Wed Sep 9 10:41:47 2015 UTC
# Line 13  contains Line 13  contains
13    
14      use histbeg_totreg_m, ONLY: nb_files      use histbeg_totreg_m, ONLY: nb_files
15      USE histcom_var, ONLY: ncdf_ids      USE histcom_var, ONLY: ncdf_ids
16      USE netcdf, ONLY: nf90_sync      USE netcdf95, ONLY: nf95_sync
17    
18      INTEGER, INTENT(IN), OPTIONAL:: file      INTEGER, INTENT(IN), OPTIONAL:: file
19    
20      INTEGER:: ifile, ncid, iret      INTEGER:: ifile, ncid
21    
22      LOGICAL:: file_exists      LOGICAL:: file_exists
23      !---------------------------------------------------------------------      !---------------------------------------------------------------------
# Line 34  contains Line 34  contains
34    
35         IF (file_exists) THEN         IF (file_exists) THEN
36            ncid = ncdf_ids(ifile)            ncid = ncdf_ids(ifile)
37            iret = nf90_sync(ncid)            call nf95_sync(ncid)
38         END IF         END IF
39    
40      END DO      END DO
Legend:
Removed from v.167  
changed lines
  Added in v.168
  ViewVC Help
Powered by ViewVC 1.1.21