Parent Directory | Revision Log
Removed arguments day0, anne0 of procedures initdynav and inithist. Use directly day_ref, annee_ref instead. Moved variables annee_ref, day_ref of module temps to module dynetat0_m. Deleted variables dayref and anneeref of module conf_gcm_m and removed them from namelist conf_gcm_nml. These variables were troubling intermediary on the way to annee_ref and day_ref. Gave as default values to annee_ref and day_ref the default values of dayref and anneeref. Moved the test on raz_date from main unit gcm to procedure dynetat0. Created namelist dynetat0_nml. Read annee_ref and day_ref from standard input in dynetat0 and redefine them from "start.nc" if not raz_date. Rationale: 1 - Choose the best programming from the point of view of program gcm only, forgetting program ce0l. 2 - The normal case is to define annee_ref and day_ref from "start.nc" so put them in module dynetat0_m rather than in conf_gcm_m. 3 - Try to always read the same namelists in the same order regardless of choices in previous namelists. Downsides: 1 -We now need the file "dynetat0.f" for the program ce0l, because dynetat0_m is used by dynredem0. 2 - We need to define annee_ref and day_ref from procedure etat0. Removed useless variable day_end of module temps.
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 | flumass.f | ||
35 | fxhyp.f | ||
36 | fxhyp_loop_ik.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 | ioconf_calendar.f | ||
55 | jacobi.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 |