/[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

trunk/IOIPSL/Histcom/histsync.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC trunk/Sources/IOIPSL/Histcom/histsync.f revision 212 by guez, Thu Jan 12 12:31:31 2017 UTC
# Line 11  contains Line 11  contains
11    
12      ! file: optional argument for fileid      ! file: optional argument for fileid
13    
14      USE histcom_var, ONLY: nb_files, ncdf_ids      use histbeg_totreg_m, ONLY: nb_files
15      USE netcdf, ONLY: nf90_sync      USE histcom_var, ONLY: ncdf_ids
16        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 24  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 33  contains Line 33  contains
33    
34         IF (file_exists) THEN         IF (file_exists) THEN
35            ncid = ncdf_ids(ifile)            ncid = ncdf_ids(ifile)
36            iret = nf90_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.82  
changed lines
  Added in v.212
  ViewVC Help
Powered by ViewVC 1.1.21