Parent Directory | Revision Log
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 |