/[lmdze]/trunk/Sources/IOIPSL/Histcom/histsync.f
ViewVC logotype

Contents of /trunk/Sources/IOIPSL/Histcom/histsync.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 212 - (show annotations)
Thu Jan 12 12:31:31 2017 UTC (7 years, 5 months ago) by guez
File size: 848 byte(s)
Moved variables from module com_io_dyn to module inithist_m, where
they are defined.

Split grid_atob.f into grille_m.f and dist_sphe.f. Extracted ASCCI art
to documentation. In grille_m, use automatic arrays instead of maximum
size. In grille_m, instead of printing data for every problematic
point, print a single diagnostic message.

Removed variables top_height, overlap, lev_histhf, lev_histday,
lev_histmth, type_run, ok_isccp, ok_regdyn, lonmin_ins, lonmax_ins,
latmin_ins, latmax_ins of module clesphys, not used.

Removed variable itap of module histwrite_phy_m, not used. There is a
variable itap in module time_phylmdz.

Added output of tro3.

In physiq, no need to compute wo at every time-step, since we only use
it in radlwsw.

1 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 use histbeg_totreg_m, ONLY: nb_files
15 USE histcom_var, ONLY: ncdf_ids
16 USE netcdf95, ONLY: nf95_sync
17
18 INTEGER, INTENT(IN), OPTIONAL:: file
19
20 INTEGER:: ifile, ncid
21
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 call nf95_sync(ncid)
37 END IF
38 END DO
39
40 END SUBROUTINE histsync
41
42 end module histsync_m

  ViewVC Help
Powered by ViewVC 1.1.21