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 | guez | 123 | 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 | guez | 129 | dynetat0.f |
23 | guez | 123 | 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 | guez | 136 | filtreg_hemisph.f |
32 | guez | 137 | filtreg_scal.f |
33 | filtreg_v.f | ||
34 | guez | 123 | 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 | guez | 138 | histbeg_totreg.f |
45 | guez | 123 | histclo.f |
46 | histcom_var.f | ||
47 | guez | 138 | histhori_regular.f |
48 | guez | 123 | indicesol.f |
49 | iniadvtrac.f | ||
50 | inifgn.f | ||
51 | inifilr.f | ||
52 | inter_barx.f | ||
53 | inter_barxy.f | ||
54 | inter_bary.f | ||
55 | guez | 131 | invert_zoom_x.f |
56 | guez | 123 | ioconf_calendar.f |
57 | guez | 138 | ioipslmpp.f |
58 | guez | 123 | 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 | guez | 138 | phyetat0.f |
69 | guez | 123 | phyredem.f |
70 | guez | 124 | principal_cshift.f |
71 | guez | 123 | q_sat.f |
72 | regr_lat_time_coefoz.f | ||
73 | regr_pr_o3.f | ||
74 | guez | 139 | read_serre.f |
75 | guez | 123 | 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 | guez | 144 | tanh_cautious.f |
83 | guez | 123 | 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 |