Parent Directory | Revision Log
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 | 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 |
ViewVC Help | |
Powered by ViewVC 1.1.21 |