--- trunk/Sources/IOIPSL/Histcom/histsync.f 2016/12/13 17:23:09 211 +++ 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