/[lmdze]/trunk/src_gcm
ViewVC logotype

Contents of /trunk/src_gcm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 191 - (show annotations)
Mon May 9 19:56:28 2016 UTC (8 years ago) by guez
File size: 3276 byte(s)
Extracted the call to read_comdissnew out of conf_gcm.

Made ok_instan a variable of module clesphys, itau_phy a variable of
module phyetat0_m, nid_ins a variable of module ini_histins_m, itap a
variable of new module time_phylmdz, so that histwrite_phy can be
called from any procedure without the need to cascade those variables
into that procedure. Made itau_w a variable of module time_phylmdz so
that it is computed only once per time step of physics.

Extracted variables of module clesphys which were in namelist
conf_phys_nml into their own namelist, clesphys_nml, and created
procedure read_clesphys reading clesphys_nml, to avoid side effect.

No need for double precision in procedure getso4fromfile. Assume there
is a single variable for the whole year in the NetCDF file instead of
one variable per month.

Created generic procedure histwrite_phy and removed procedure
write_histins, following LMDZ. histwrite_phy has only two arguments,
can be called from anywhere, and should manage the logic of writing or
not writing into various history files with various operations. So the
test on ok_instan goes inside histwrite_phy.

Test for raz_date in phyetat0 instead of physiq to avoid side effect.

Created procedure increment_itap to avoid side effect.

Removed unnecessary differences between procedures readsulfate and
readsulfate_pi.

1 aaam_bud.f
2 abort_gcm.f
3 academic.f
4 adaptdt.f
5 addfi.f
6 advect.f
7 advn.f
8 advtrac.f
9 aeropt.f
10 ajsec.f
11 alboc_cd.f
12 alboc.f
13 albsno.f
14 bernoui.f
15 bilan_dyn.f
16 buildop.f
17 caladvtrac.f
18 calbeta.f
19 calcul_fluxs.f
20 caldyn.f
21 calendar.f
22 calfis.f
23 calltherm.f
24 chem.f
25 clcdrag.f
26 cleanstr.f
27 clesphys2.f
28 clesphys.f
29 clmain.f
30 clouds_gno.f
31 clqh.f
32 cltrac.f
33 cltracrn.f
34 clvent.f
35 coefcdrag.f
36 coefkz2.f
37 coefkz.f
38 coefkzmin.f
39 coefpoly.f
40 comconst.f
41 comdissnew.f
42 comfisrtilp.f
43 comgeom.f
44 comgeomphy.f
45 com_io_dyn.f
46 concvl.f
47 conema3_m.f
48 conf_gcm.f
49 conf_guide.f
50 conflx.f
51 conf_phys.f
52 convflu.f
53 convmas.f
54 coordij.f
55 covcont.f
56 covnat.f
57 createnewfield.f
58 ctherm.f
59 cv30_closure.f
60 cv30_compress.f
61 cv30_feed.f
62 cv30_mixing.f
63 cv30_param.f
64 cv30_prelim.f
65 cv30_tracer.f
66 cv30_trigger.f
67 cv30_uncompress.f
68 cv30_undilute1.f
69 cv30_undilute2.f
70 cv30_unsat.f
71 cv30_yield.f
72 cv_driver.f
73 cvltr.f
74 cv_thermo.f
75 decoop.f
76 diagcld1.f
77 diagcld2.f
78 diagetpq.f
79 diagphy.f
80 dimens_m.f
81 dimphy.f
82 dimsoil.f
83 dissip.f
84 disvert.f
85 divergf.f
86 diverg_gam.f
87 divgrad2.f
88 dqthermcell2.f
89 dqthermcell.f
90 drag_noro.f
91 dteta1.f
92 dudv1.f
93 dudv2.f
94 dvthermcell2.f
95 dynetat0.f
96 dynredem0.f
97 dynredem1.f
98 enercin.f
99 ener.f
100 errioipsl.f
101 exner_hyb.f
102 FCTTRE.f
103 filtreg_hemisph.f
104 filtreg_scal.f
105 filtreg_v.f
106 findsep.f
107 find_str.f
108 fisrtilp.f
109 flumass.f
110 fluxstokenc.f
111 flxadjtq.f
112 flxasc.f
113 flxbase.f
114 flxddraf.f
115 flxdlfs.f
116 flxdtdq.f
117 flxflux.f
118 flxini.f
119 flxmain.f
120 fonte_neige.f
121 gcm.f
122 geopot.f
123 getfieldindex.f
124 getso4fromfile.f
125 grad.f
126 gradiv2.f
127 gradsdef.f
128 grid_change.f
129 groupe.f
130 groupeun.f
131 gr_phy_write.f
132 gr_u_scal.f
133 gr_v_scal.f
134 guide.f
135 gwprofil.f
136 gwstress.f
137 hbtm.f
138 heavyside.f
139 hgardfou.f
140 histbeg_totreg.f
141 histclo.f
142 histcom_var.f
143 histdef.f
144 histend.f
145 histhori_regular.f
146 histsync.f
147 histvar_seq.f
148 histvert.f
149 histwrite.f
150 histwrite_phy.f
151 histwrite_real.f
152 indicesol.f
153 iniadvtrac.f
154 inidissip.f
155 inifgn.f
156 inifilr.f
157 inifilr_hemisph.f
158 ini_histins.f
159 initdynav.f
160 init_dynzon.f
161 initfluxsto.f
162 inithist.f
163 initial0.f
164 initphysto.f
165 initrrnpb.f
166 init_tau2alpha.f
167 integrd.f
168 interface_surf.f
169 interfoce_lim.f
170 interfsurf_hq.f
171 interfsur_lim.f
172 invert_zoom_x.f
173 ioconf_calendar.f
174 ioget_calendar.f
175 isittime.f
176 ismax.f
177 ismin.f
178 itau2date.f
179 ju2ymds.f
180 laplacien.f
181 laplacien_gam.f
182 laplacien_rot.f
183 laplacien_rotgam.f
184 leapfrog.f
185 lift_noro.f
186 lwb.f
187 lwbv.f
188 lwc.f
189 lw.f
190 lwtt.f
191 lwttm.f
192 lwu.f
193 lwvb.f
194 lwvd.f
195 lwv.f
196 lwvn.f
197 massbar.f
198 massbarxy.f
199 massdair.f
200 mathelp.f
201 mathop2.f
202 mathop.f
203 minmax.f
204 minmaxqfi.f
205 moycum.f
206 nat2gcm.f
207 newmicro.f
208 nflxtr.f
209 nuage.f
210 nxgrad.f
211 nxgrad_gam.f
212 nxgraro2.f
213 o3_chem.f
214 orbite.f
215 orodrag.f
216 orolift.f
217 orosetup.f
218 ozonecm.f
219 paramet_m.f
220 phyetat0.f
221 phyredem0.f
222 phyredem.f
223 physiq.f
224 phystokenc.f
225 phytrac.f
226 pres2lev.f
227 press_coefoz.f
228 principal_cshift.f
229 qcheck.f
230 qminimum.f
231 q_sat.f
232 raddim.f
233 raddimlw.f
234 radepsi.f
235 radiornpb.f
236 radlwsw.f
237 radopt.f
238 read_reanalyse.f
239 readsulfate.f
240 readsulfate_preind.f
241 reanalyse2nat.f
242 regr_pr_av.f
243 regr_pr_comb_coefoz.f
244 regr_pr_int.f
245 rotatf.f
246 rotat_nfil.f
247 scopy.f
248 screenc.f
249 screenp.f
250 soil.f
251 sortvarc.f
252 ssum.f
253 stdlevvar.f
254 strlowercase.f
255 suphec.f
256 sw1s.f
257 sw2s.f
258 swclr.f
259 swde.f
260 sw.f
261 swr.f
262 swtt1.f
263 swtt.f
264 swu.f
265 tau2alpha.f
266 temps.f
267 thermcell.f
268 time_phylmdz.f
269 tourpot.f
270 tracstoke.f
271 trans_buff.f
272 transp.f
273 transp_lay.f
274 unit_nml_m.f
275 ustarhb.f
276 vdif_kcay.f
277 vitvert.f
278 vlsplt.f
279 vlspltqs.f
280 vlx.f
281 vlxqs.f
282 vly.f
283 vlyqs.f
284 vlz.f
285 writedynav.f
286 writefield.f
287 writehist.f
288 yamada4.f
289 yamada.f
290 ymds2ju.f
291 YOECUMF.f
292 YOEGWD.f
293 yoethf.f
294 YOMCST.f
295 zenang.f

  ViewVC Help
Powered by ViewVC 1.1.21