Parent Directory | Revision Log
Split ppm3d.f into files containing a single procedure. Factorized computations of filtering matrices into a procedure inifilr_hemisph. Had then to change the matrices from allocatable to pointer and from customized lower bound to lower bound 1. The change in lower bounds does not matter because the matrices are only used as a whole as actual arguments. Also, in infilr, instead of finding jfilt[ns][uv] from approximately jjm /2, start at index j1 that corresponds to the equator. This is not the same if there is a zoom in latitude. Also, the test (rlamda(modfrst[ns][uv](j)) * cos(rlat[uv](j)) < 1) in the loops on filtered latitudes is not useful now that we start from j1: it is necessarily true. See notes. Just encapsulated lwvn into a module and removed unused argument ktraer.
1 | guez | 166 | a2c.f |
2 | guez | 123 | aaam_bud.f |
3 | abort_gcm.f | ||
4 | academic.f | ||
5 | acc.f | ||
6 | adaptdt.f | ||
7 | addfi.f | ||
8 | advect.f | ||
9 | advn.f | ||
10 | advtrac.f | ||
11 | advx.f | ||
12 | advxp.f | ||
13 | advy.f | ||
14 | advyp.f | ||
15 | advz.f | ||
16 | advzp.f | ||
17 | aeropt.f | ||
18 | ajsec.f | ||
19 | alboc_cd.f | ||
20 | alboc.f | ||
21 | albsno.f | ||
22 | bernoui.f | ||
23 | bilan_dyn.f | ||
24 | buildop.f | ||
25 | caladvtrac.f | ||
26 | calbeta.f | ||
27 | calcul_fluxs.f | ||
28 | caldyn.f | ||
29 | calendar.f | ||
30 | calfis.f | ||
31 | calltherm.f | ||
32 | chem.f | ||
33 | clcdrag.f | ||
34 | cleanstr.f | ||
35 | clesphys2.f | ||
36 | clesphys.f | ||
37 | clmain.f | ||
38 | clouds_gno.f | ||
39 | clqh.f | ||
40 | cltrac.f | ||
41 | cltracrn.f | ||
42 | clvent.f | ||
43 | coefcdrag.f | ||
44 | coefkz2.f | ||
45 | coefkz.f | ||
46 | coefkzmin.f | ||
47 | coefpoly.f | ||
48 | comconst.f | ||
49 | comdissnew.f | ||
50 | comfisrtilp.f | ||
51 | comgeom.f | ||
52 | comgeomphy.f | ||
53 | com_io_dyn.f | ||
54 | concvl.f | ||
55 | conema3_m.f | ||
56 | conf_gcm.f | ||
57 | conf_guide.f | ||
58 | conflx.f | ||
59 | conf_phys.f | ||
60 | convflu.f | ||
61 | convmas.f | ||
62 | coordij.f | ||
63 | correctbid.f | ||
64 | guez | 166 | cosa.f |
65 | cosc.f | ||
66 | guez | 123 | covcont.f |
67 | covnat.f | ||
68 | createnewfield.f | ||
69 | ctherm.f | ||
70 | cv3_closure.f | ||
71 | cv3_compress.f | ||
72 | cv3_feed.f | ||
73 | cv3_mixing.f | ||
74 | cv3_param.f | ||
75 | cv3_prelim.f | ||
76 | cv3_tracer.f | ||
77 | cv3_trigger.f | ||
78 | cv3_uncompress.f | ||
79 | cv3_undilute1.f | ||
80 | cv3_undilute2.f | ||
81 | cv3_unsat.f | ||
82 | cv3_yield.f | ||
83 | cv_closure.f | ||
84 | cv_compress.f | ||
85 | cv_driver.f | ||
86 | cv_feed.f | ||
87 | cv_flag.f | ||
88 | cvflag.f | ||
89 | cvltr.f | ||
90 | cv_mixing.f | ||
91 | cv_param.f | ||
92 | cv_prelim.f | ||
93 | cv_thermo.f | ||
94 | cvthermo.f | ||
95 | cv_trigger.f | ||
96 | cv_uncompress.f | ||
97 | cv_undilute1.f | ||
98 | cv_undilute2.f | ||
99 | cv_unsat.f | ||
100 | cv_yield.f | ||
101 | decoop.f | ||
102 | diagcld1.f | ||
103 | diagcld2.f | ||
104 | diagetpq.f | ||
105 | diagphy.f | ||
106 | dimens_m.f | ||
107 | dimphy.f | ||
108 | dimsoil.f | ||
109 | dissip.f | ||
110 | disvert.f | ||
111 | divergf.f | ||
112 | diverg_gam.f | ||
113 | divgrad2.f | ||
114 | dqthermcell2.f | ||
115 | dqthermcell.f | ||
116 | drag_noro.f | ||
117 | dteta1.f | ||
118 | dudv1.f | ||
119 | dudv2.f | ||
120 | dvthermcell2.f | ||
121 | dynetat0.f | ||
122 | dynredem0.f | ||
123 | dynredem1.f | ||
124 | enercin.f | ||
125 | ener.f | ||
126 | errioipsl.f | ||
127 | exner_hyb.f | ||
128 | FCTTRE.f | ||
129 | guez | 166 | filcr.f |
130 | filew.f | ||
131 | filns.f | ||
132 | guez | 136 | filtreg_hemisph.f |
133 | guez | 137 | filtreg_scal.f |
134 | filtreg_v.f | ||
135 | guez | 123 | findsep.f |
136 | find_str.f | ||
137 | fisrtilp.f | ||
138 | flumass.f | ||
139 | fluxstokenc.f | ||
140 | flxadjtq.f | ||
141 | flxasc.f | ||
142 | flxbase.f | ||
143 | flxddraf.f | ||
144 | flxdlfs.f | ||
145 | flxdtdq.f | ||
146 | flxflux.f | ||
147 | flxini.f | ||
148 | flxmain.f | ||
149 | fonte_neige.f | ||
150 | guez | 166 | fxppm.f |
151 | fyppm.f | ||
152 | fzppm.f | ||
153 | guez | 123 | gcm.f |
154 | geopot.f | ||
155 | getfieldindex.f | ||
156 | getso4fromfile.f | ||
157 | grad.f | ||
158 | gradiv2.f | ||
159 | gradsdef.f | ||
160 | gr_fi_ecrit.f | ||
161 | grid_change.f | ||
162 | groupe.f | ||
163 | groupeun.f | ||
164 | gr_phy_write_3d.f | ||
165 | gr_u_scal.f | ||
166 | gr_v_scal.f | ||
167 | guide.f | ||
168 | gwprofil.f | ||
169 | gwstress.f | ||
170 | hbtm.f | ||
171 | heavyside.f | ||
172 | hgardfou.f | ||
173 | histbeg_totreg.f | ||
174 | histclo.f | ||
175 | histcom_var.f | ||
176 | histdef.f | ||
177 | histend.f | ||
178 | histhori_regular.f | ||
179 | histsync.f | ||
180 | histvar_seq.f | ||
181 | histvert.f | ||
182 | histwrite.f | ||
183 | histwrite_real.f | ||
184 | indicesol.f | ||
185 | iniadvtrac.f | ||
186 | inidissip.f | ||
187 | inifgn.f | ||
188 | inifilr.f | ||
189 | guez | 166 | inifilr_hemisph.f |
190 | guez | 123 | ini_histins.f |
191 | initdynav.f | ||
192 | init_dynzon.f | ||
193 | initfluxsto.f | ||
194 | inithist.f | ||
195 | initial0.f | ||
196 | initphysto.f | ||
197 | initrrnpb.f | ||
198 | init_tau2alpha.f | ||
199 | integrd.f | ||
200 | interface_surf.f | ||
201 | interfoce_lim.f | ||
202 | interfsurf_hq.f | ||
203 | interfsur_lim.f | ||
204 | interpost.f | ||
205 | interpre.f | ||
206 | guez | 131 | invert_zoom_x.f |
207 | guez | 123 | ioconf_calendar.f |
208 | ioget_calendar.f | ||
209 | ioipslmpp.f | ||
210 | isittime.f | ||
211 | ismax.f | ||
212 | ismin.f | ||
213 | itau2date.f | ||
214 | ju2ymds.f | ||
215 | laplacien.f | ||
216 | laplacien_gam.f | ||
217 | laplacien_rot.f | ||
218 | laplacien_rotgam.f | ||
219 | leapfrog.f | ||
220 | lift_noro.f | ||
221 | limx.f | ||
222 | limy.f | ||
223 | limz.f | ||
224 | guez | 166 | lmtppm.f |
225 | guez | 123 | lwb.f |
226 | lwbv.f | ||
227 | lwc.f | ||
228 | lw.f | ||
229 | lwtt.f | ||
230 | lwttm.f | ||
231 | lwu.f | ||
232 | lwvb.f | ||
233 | lwvd.f | ||
234 | lwv.f | ||
235 | lwvn.f | ||
236 | massbar.f | ||
237 | massbarxy.f | ||
238 | massdair.f | ||
239 | mathelp.f | ||
240 | mathop2.f | ||
241 | mathop.f | ||
242 | minmax.f | ||
243 | minmaxqfi.f | ||
244 | moycum.f | ||
245 | nat2gcm.f | ||
246 | newmicro.f | ||
247 | nflxtr.f | ||
248 | nuage.f | ||
249 | nxgrad.f | ||
250 | nxgrad_gam.f | ||
251 | nxgraro2.f | ||
252 | o3_chem.f | ||
253 | orbite.f | ||
254 | orodrag.f | ||
255 | orolift.f | ||
256 | orosetup.f | ||
257 | ozonecm.f | ||
258 | paramet_m.f | ||
259 | pentes_ini.f | ||
260 | phyetat0.f | ||
261 | guez | 166 | phyredem0.f |
262 | guez | 123 | phyredem.f |
263 | physiq.f | ||
264 | phystokenc.f | ||
265 | phytrac.f | ||
266 | ppm3d.f | ||
267 | prather.f | ||
268 | pres2lev.f | ||
269 | press_coefoz.f | ||
270 | guez | 124 | principal_cshift.f |
271 | guez | 123 | printflag.f |
272 | qcheck.f | ||
273 | guez | 166 | qckxyz.f |
274 | guez | 123 | qminimum.f |
275 | q_sat.f | ||
276 | raddim.f | ||
277 | raddimlw.f | ||
278 | radepsi.f | ||
279 | radiornpb.f | ||
280 | radlwsw.f | ||
281 | radopt.f | ||
282 | read_reanalyse.f | ||
283 | readsulfate.f | ||
284 | readsulfate_preind.f | ||
285 | reanalyse2nat.f | ||
286 | regr_pr_av.f | ||
287 | regr_pr_comb_coefoz.f | ||
288 | regr_pr_int.f | ||
289 | rotatf.f | ||
290 | rotat_nfil.f | ||
291 | scopy.f | ||
292 | screenc.f | ||
293 | screenp.f | ||
294 | soil.f | ||
295 | sortvarc.f | ||
296 | ssum.f | ||
297 | stdlevvar.f | ||
298 | strlowercase.f | ||
299 | suphec.f | ||
300 | sw1s.f | ||
301 | sw2s.f | ||
302 | swclr.f | ||
303 | swde.f | ||
304 | sw.f | ||
305 | swr.f | ||
306 | swtt1.f | ||
307 | swtt.f | ||
308 | swu.f | ||
309 | tau2alpha.f | ||
310 | temps.f | ||
311 | thermcell.f | ||
312 | tourpot.f | ||
313 | tracstoke.f | ||
314 | trans_buff.f | ||
315 | transp.f | ||
316 | transp_lay.f | ||
317 | unit_nml_m.f | ||
318 | ustarhb.f | ||
319 | vdif_kcay.f | ||
320 | vitvert.f | ||
321 | vlsplt.f | ||
322 | vlspltqs.f | ||
323 | vlx.f | ||
324 | vlxqs.f | ||
325 | vly.f | ||
326 | vlyqs.f | ||
327 | vlz.f | ||
328 | writedynav.f | ||
329 | writefield.f | ||
330 | writehist.f | ||
331 | guez | 166 | xadv.f |
332 | xmist.f | ||
333 | xtp.f | ||
334 | yadv.f | ||
335 | guez | 123 | yamada4.f |
336 | yamada.f | ||
337 | ymds2ju.f | ||
338 | guez | 166 | ymist.f |
339 | guez | 123 | YOECUMF.f |
340 | YOEGWD.f | ||
341 | yoethf.f | ||
342 | YOMCST.f | ||
343 | guez | 166 | ytp.f |
344 | guez | 123 | zenang.f |
345 | zilch.f |
ViewVC Help | |
Powered by ViewVC 1.1.21 |