Parent Directory | Revision Log
Try to clarify the logic. Remove module ener. Move variables from module ener to module dynetat0_m, where they are defined in program gcm. In sortvarc, I do not see how ptot0 could be 0, discard this possibility. Remove dummy argument resetvarc of procedure sortvarc. The difference is that sortvarc is called by caldyn or caldyn0 so just do different processing in caldyn and caldyn0 instead of inside sortvarc. No need for variables ang, etot, ptot, rmsdpdt, rmsv, stot, ztot to be at module level in module sortvarc_m, downgrade them to arguments of sortvarc. Instead of modyfying the meaning of ang, etot, ptot, rmsdpdt, rmsv, stot, ztot from absolute quantities to variations of these quantities, print the ratio in caldyn.
1 | abort_gcm.f |
2 | bernoui.f |
3 | caldyn0.f |
4 | calendar.f |
5 | ce0l.f |
6 | clesphys.f |
7 | coefpoly.f |
8 | comconst.f |
9 | comdissnew.f |
10 | comgeom.f |
11 | conf_dat2d.f |
12 | conf_dat3d.f |
13 | conf_gcm.f |
14 | convflu.f |
15 | convmas.f |
16 | covcont.f |
17 | dimens_m.f |
18 | dimphy.f |
19 | dimsoil.f |
20 | dist_sphe.f |
21 | disvert.f |
22 | dynetat0.f |
23 | dynredem0.f |
24 | dynredem1.f |
25 | enercin.f |
26 | errioipsl.f |
27 | etat0.f |
28 | exner_hyb.f |
29 | extrapol.f |
30 | filtreg_hemisph.f |
31 | filtreg_scal.f |
32 | filtreg_v.f |
33 | flumass.f |
34 | fxhyp.f |
35 | fyhyp.f |
36 | geopot.f |
37 | grid_change.f |
38 | grid_noro_m.f |
39 | grille_m.f |
40 | grilles_gcm_netcdf_sub.f |
41 | gr_int_dyn_m.f |
42 | heavyside.f |
43 | histbeg_totreg.f |
44 | histclo.f |
45 | histcom_var.f |
46 | histhori_regular.f |
47 | indicesol.f |
48 | iniadvtrac.f |
49 | inifgn.f |
50 | inifilr.f |
51 | inifilr_hemisph.f |
52 | inter_barx.f |
53 | inter_barxy.f |
54 | inter_bary.f |
55 | invert_zoom_x.f |
56 | ioconf_calendar.f |
57 | ju2ymds.f |
58 | limit.f |
59 | massbar.f |
60 | massbarxy.f |
61 | massdair.f |
62 | minmax.f |
63 | mva9.f |
64 | ord_coord.f |
65 | ord_coordm.f |
66 | paramet_m.f |
67 | phyetat0.f |
68 | phyredem.f |
69 | phyredem0.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.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 |