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 | 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 | dynetat0.f |
24 | 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 | filtreg_hemisph.f |
35 | 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 | invert_zoom_x.f |
55 | 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 | principal_cshift.f |
68 | 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 |