Parent Directory | Revision Log
In procedure fxhyp, the convoluted computation of tanh(fa/fb) occurred three times. Extracted it into a function. Also, the computation of xmoy and fxm was repeated. So stored the values in arrays instead. In procedure fxhyp, in the computation of fhyp, there were tests xtild(i) == 0. and xtild(i) == pi_d. No use to do these tests at each iteration. We now they are true for i == nmax and i == 2 * nmax, respectively, and we know they are false for other values of "i". Similarly, in the computations of ffdx and xxpr, there were the tests xmoy == 0. and xmoy == pi_d, these could not be true. Moved files from bibio to dyn3d, following LMDZ.
1 | abort_gcm.f |
2 | acc.f |
3 | bernoui.f |
4 | caldyn0.f |
5 | calendar.f |
6 | ce0l.f |
7 | clesphys.f |
8 | coefpoly.f |
9 | comconst.f |
10 | comdissnew.f |
11 | comgeom.f |
12 | conf_dat2d.f |
13 | conf_dat3d.f |
14 | conf_gcm.f |
15 | convflu.f |
16 | convmas.f |
17 | covcont.f |
18 | dimens_m.f |
19 | dimphy.f |
20 | dimsoil.f |
21 | disvert.f |
22 | dynetat0.f |
23 | dynredem0.f |
24 | dynredem1.f |
25 | enercin.f |
26 | ener.f |
27 | errioipsl.f |
28 | etat0.f |
29 | exner_hyb.f |
30 | extrapol.f |
31 | filtreg_hemisph.f |
32 | filtreg_scal.f |
33 | filtreg_v.f |
34 | flumass.f |
35 | fxhyp.f |
36 | fyhyp.f |
37 | geopot.f |
38 | grid_atob.f |
39 | grid_change.f |
40 | grid_noro_m.f |
41 | grilles_gcm_netcdf_sub.f |
42 | gr_int_dyn_m.f |
43 | heavyside.f |
44 | histbeg_totreg.f |
45 | histclo.f |
46 | histcom_var.f |
47 | histhori_regular.f |
48 | indicesol.f |
49 | iniadvtrac.f |
50 | inifgn.f |
51 | inifilr.f |
52 | inter_barx.f |
53 | inter_barxy.f |
54 | inter_bary.f |
55 | invert_zoom_x.f |
56 | ioconf_calendar.f |
57 | ioipslmpp.f |
58 | ju2ymds.f |
59 | limit.f |
60 | massbar.f |
61 | massbarxy.f |
62 | massdair.f |
63 | minmax.f |
64 | mva9.f |
65 | ord_coord.f |
66 | ord_coordm.f |
67 | paramet_m.f |
68 | phyetat0.f |
69 | phyredem.f |
70 | principal_cshift.f |
71 | q_sat.f |
72 | regr_lat_time_coefoz.f |
73 | regr_pr_o3.f |
74 | read_serre.f |
75 | sortvarc.f |
76 | ssum.f |
77 | startdyn.f |
78 | start_init_orog_m.f |
79 | start_init_phys_m.f |
80 | start_inter_3d.f |
81 | strlowercase.f |
82 | tanh_cautious.f |
83 | temps.f |
84 | test_disvert.f |
85 | tourpot.f |
86 | unit_nml_m.f |
87 | vitvert.f |
88 | ymds2ju.f |
ViewVC Help | |
Powered by ViewVC 1.1.21 |