/[lmdze]/trunk/src_ce0l
ViewVC logotype

Annotation of /trunk/src_ce0l

Parent Directory Parent Directory | Revision Log Revision Log


Revision 144 - (hide annotations)
Wed Jun 10 16:46:46 2015 UTC (8 years, 10 months ago) by guez
File size: 1061 byte(s)
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