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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 212 - (hide 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 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