IOIPSL/Histcom/histsync.f

module histsync_m

  implicit none

contains

  SUBROUTINE histsync(file)

    ! This subroutine will synchronise all
    ! (or one if defined) opened files.

    ! file: optional argument for fileid

    use histbeg_totreg_m, ONLY: nb_files
    USE histcom_var, ONLY: ncdf_ids
    USE netcdf95, ONLY: nf95_sync

    INTEGER, INTENT(IN), OPTIONAL:: file

    INTEGER:: ifile, ncid

    LOGICAL:: file_exists
    !---------------------------------------------------------------------

    ! 1.The loop on files to synchronise

    DO ifile = 1, nb_files
       IF (present(file)) THEN
          file_exists = (ifile==file)
       ELSE
          file_exists = .TRUE.
       END IF

       IF (file_exists) THEN
          ncid = ncdf_ids(ifile)
          call nf95_sync(ncid)
       END IF
    END DO

  END SUBROUTINE histsync

end module histsync_m
1	guez	61	module histsync_m
2
3			implicit none
4
5			contains
6
7			SUBROUTINE histsync(file)
8
9			! This subroutine will synchronise all
10			! (or one if defined) opened files.
11
12			! file: optional argument for fileid
13
14	guez	138	use histbeg_totreg_m, ONLY: nb_files
15			USE histcom_var, ONLY: ncdf_ids
16	guez	168	USE netcdf95, ONLY: nf95_sync
17	guez	61
18			INTEGER, INTENT(IN), OPTIONAL:: file
19
20	guez	168	INTEGER:: ifile, ncid
21	guez	61
22			LOGICAL:: file_exists
23			!---------------------------------------------------------------------
24
25			! 1.The loop on files to synchronise
26
27			DO ifile = 1, nb_files
28			IF (present(file)) THEN
29			file_exists = (ifile==file)
30			ELSE
31			file_exists = .TRUE.
32			END IF
33
34			IF (file_exists) THEN
35			ncid = ncdf_ids(ifile)
36	guez	168	call nf95_sync(ncid)
37	guez	61	END IF
38			END DO
39
40			END SUBROUTINE histsync
41
42			end module histsync_m