Parent Directory | Revision Log
Clarified the logic in filtreg by creating a procedure filtreg_hemisph. It was terrible with a loop on hemispheres and tests on hemisphere inside the loop, plus maddening indirections on latitude bounds, plus repeated code. Went from 126 lines to much clearer 74 + 32 = 106 lines. In module inifilr_m, finally made the arrays matrice[uv][ns], matrinv[ns] dynamic (following LMDZ). Changed the lower bound of matriceun and matrinvn in the 3rd dimension: 2 instead of 1, the index 1 was not defined (nor used). In module inifilr_m, changed the bounds of matriceus and matrinvs in the 3rd dimension: jfiltsu:jjm instead of 1:jjm - jfiltsu + 1. Changed the bounds of matricevs in the 3rd dimension: jfiltsv:jjm instead of 1:jjm - jfiltsv + 1. It is a little simpler and clearer this way in procedure inifilr.
1 | guez | 123 | abort_gcm.f |
2 | acc.f | ||
3 | bernoui.f | ||
4 | caldyn0.f | ||
5 | calendar.f | ||
6 | ce0l.f | ||
7 | clesphys.f | ||
8 | coefils.f | ||
9 | coefpoly.f | ||
10 | comconst.f | ||
11 | comdissnew.f | ||
12 | comgeom.f | ||
13 | conf_dat2d.f | ||
14 | conf_dat3d.f | ||
15 | conf_gcm.f | ||
16 | convflu.f | ||
17 | convmas.f | ||
18 | covcont.f | ||
19 | dimens_m.f | ||
20 | dimphy.f | ||
21 | dimsoil.f | ||
22 | disvert.f | ||
23 | guez | 129 | dynetat0.f |
24 | guez | 123 | dynredem0.f |
25 | dynredem1.f | ||
26 | eigen_sort.f | ||
27 | enercin.f | ||
28 | ener.f | ||
29 | errioipsl.f | ||
30 | etat0.f | ||
31 | exner_hyb.f | ||
32 | extrapol.f | ||
33 | filtreg.f | ||
34 | guez | 136 | filtreg_hemisph.f |
35 | guez | 123 | flumass.f |
36 | fxhyp.f | ||
37 | fyhyp.f | ||
38 | geopot.f | ||
39 | grid_atob.f | ||
40 | grid_change.f | ||
41 | grid_noro_m.f | ||
42 | grilles_gcm_netcdf_sub.f | ||
43 | gr_int_dyn_m.f | ||
44 | heavyside.f | ||
45 | histclo.f | ||
46 | histcom_var.f | ||
47 | indicesol.f | ||
48 | iniadvtrac.f | ||
49 | inifgn.f | ||
50 | inifilr.f | ||
51 | inter_barx.f | ||
52 | inter_barxy.f | ||
53 | inter_bary.f | ||
54 | guez | 131 | invert_zoom_x.f |
55 | guez | 123 | ioconf_calendar.f |
56 | ju2ymds.f | ||
57 | limit.f | ||
58 | massbar.f | ||
59 | massbarxy.f | ||
60 | massdair.f | ||
61 | minmax.f | ||
62 | mva9.f | ||
63 | ord_coord.f | ||
64 | ord_coordm.f | ||
65 | paramet_m.f | ||
66 | phyredem.f | ||
67 | guez | 124 | principal_cshift.f |
68 | guez | 123 | q_sat.f |
69 | regr_lat_time_coefoz.f | ||
70 | regr_pr_o3.f | ||
71 | serre.f | ||
72 | sortvarc.f | ||
73 | ssum.f | ||
74 | startdyn.f | ||
75 | start_init_orog_m.f | ||
76 | start_init_phys_m.f | ||
77 | start_inter_3d.f | ||
78 | strlowercase.f | ||
79 | temps.f | ||
80 | test_disvert.f | ||
81 | tourpot.f | ||
82 | unit_nml_m.f | ||
83 | vitvert.f | ||
84 | ymds2ju.f |
ViewVC Help | |
Powered by ViewVC 1.1.21 |