--- trunk/Sources/IOIPSL/Histcom/histsync.f 2015/09/09 10:41:47 168 +++ trunk/Sources/IOIPSL/Histcom/histsync.f 2017/01/12 12:31:31 212 @@ -25,7 +25,6 @@ ! 1.The loop on files to synchronise DO ifile = 1, nb_files - IF (present(file)) THEN file_exists = (ifile==file) ELSE @@ -36,7 +35,6 @@ ncid = ncdf_ids(ifile) call nf95_sync(ncid) END IF - END DO END SUBROUTINE histsync