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 | a2c.f |
2 | 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 | cosa.f |
65 | cosc.f |
66 | 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 | filcr.f |
130 | filew.f |
131 | filns.f |
132 | filtreg_hemisph.f |
133 | filtreg_scal.f |
134 | filtreg_v.f |
135 | 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 | fxppm.f |
151 | fyppm.f |
152 | fzppm.f |
153 | 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 | inifilr_hemisph.f |
190 | 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 | invert_zoom_x.f |
207 | 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 | lmtppm.f |
225 | 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 | phyredem0.f |
262 | 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 | principal_cshift.f |
271 | printflag.f |
272 | qcheck.f |
273 | qckxyz.f |
274 | 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 | xadv.f |
332 | xmist.f |
333 | xtp.f |
334 | yadv.f |
335 | yamada4.f |
336 | yamada.f |
337 | ymds2ju.f |
338 | ymist.f |
339 | YOECUMF.f |
340 | YOEGWD.f |
341 | yoethf.f |
342 | YOMCST.f |
343 | ytp.f |
344 | zenang.f |
345 | zilch.f |
ViewVC Help | |
Powered by ViewVC 1.1.21 |