Parent Directory | Revision Log
Promoted lmt_pas from local variable of physiq to variable of module conf_gcm_m. Removed variable run_off of module interface_surf. Was not used. Called run_off_ter in LMDZ, but not used nor printed there either. Simplified logic in interfoce_lim. The way it was convoluted with interfsurf_hq and clmain was quite a mess. Extracted reading of SST into a separate procedure: read_sst. We do not need SST and pctsrf_new at the same time: SST is not needed for sea-ice surface. I did not like this programming: going through the procedure repeatedly for different purposes and testing inside whether there was something to do or it was already done. Reading is now only controlled by itap and lmt_pas, instead of debut, jour, jour_lu and deja_lu. Now we do not copy from pct_tmp to pctsrf_new every time step. Simplified processing of pctsrf in clmain and below. It was quite troubling: pctsrf_new was intent out in interfoce_lim but only defined for ocean and sea-ice. Also the idea of having arrays for all surfaces, pcsrf and pctsrf_new, in interfsurf_hq, which is called for a particular surface, was troubling. pctsrf_new for all surfaces was intent out in intefsurf_hq, but not defined for all surfaces at each call. Removed argument pctsrf_new of clmain: was a duplicate of pctsrf on output, and not used in physiq. Replaced pctsrf_new in clmain by pctsrf_new_oce and pctsrf_new_sic, which were the only ones modified.
1 | guez | 123 | aaam_bud.f |
2 | abort_gcm.f | ||
3 | academic.f | ||
4 | adaptdt.f | ||
5 | addfi.f | ||
6 | advect.f | ||
7 | advn.f | ||
8 | advtrac.f | ||
9 | ajsec.f | ||
10 | alboc_cd.f | ||
11 | alboc.f | ||
12 | albsno.f | ||
13 | bernoui.f | ||
14 | bilan_dyn.f | ||
15 | buildop.f | ||
16 | caladvtrac.f | ||
17 | calbeta.f | ||
18 | calcul_fluxs.f | ||
19 | caldyn.f | ||
20 | calendar.f | ||
21 | calfis.f | ||
22 | calltherm.f | ||
23 | chem.f | ||
24 | clcdrag.f | ||
25 | cleanstr.f | ||
26 | clesphys2.f | ||
27 | clesphys.f | ||
28 | clmain.f | ||
29 | clouds_gno.f | ||
30 | clqh.f | ||
31 | cltrac.f | ||
32 | cltracrn.f | ||
33 | clvent.f | ||
34 | coefcdrag.f | ||
35 | coefkz2.f | ||
36 | coefkz.f | ||
37 | coefkzmin.f | ||
38 | coefpoly.f | ||
39 | comconst.f | ||
40 | comdissnew.f | ||
41 | comfisrtilp.f | ||
42 | comgeom.f | ||
43 | comgeomphy.f | ||
44 | com_io_dyn.f | ||
45 | concvl.f | ||
46 | conema3_m.f | ||
47 | conf_gcm.f | ||
48 | conf_guide.f | ||
49 | conflx.f | ||
50 | conf_phys.f | ||
51 | convflu.f | ||
52 | convmas.f | ||
53 | coordij.f | ||
54 | covcont.f | ||
55 | covnat.f | ||
56 | createnewfield.f | ||
57 | ctherm.f | ||
58 | guez | 185 | cv30_closure.f |
59 | cv30_compress.f | ||
60 | cv30_feed.f | ||
61 | cv30_mixing.f | ||
62 | cv30_param.f | ||
63 | cv30_prelim.f | ||
64 | cv30_tracer.f | ||
65 | cv30_trigger.f | ||
66 | cv30_uncompress.f | ||
67 | cv30_undilute1.f | ||
68 | cv30_undilute2.f | ||
69 | cv30_unsat.f | ||
70 | cv30_yield.f | ||
71 | guez | 123 | cv_driver.f |
72 | cvltr.f | ||
73 | cv_thermo.f | ||
74 | decoop.f | ||
75 | diagcld1.f | ||
76 | diagcld2.f | ||
77 | diagetpq.f | ||
78 | diagphy.f | ||
79 | dimens_m.f | ||
80 | dimphy.f | ||
81 | dimsoil.f | ||
82 | dissip.f | ||
83 | disvert.f | ||
84 | divergf.f | ||
85 | diverg_gam.f | ||
86 | divgrad2.f | ||
87 | dqthermcell2.f | ||
88 | dqthermcell.f | ||
89 | drag_noro.f | ||
90 | dteta1.f | ||
91 | dudv1.f | ||
92 | dudv2.f | ||
93 | dvthermcell2.f | ||
94 | dynetat0.f | ||
95 | dynredem0.f | ||
96 | dynredem1.f | ||
97 | enercin.f | ||
98 | ener.f | ||
99 | errioipsl.f | ||
100 | exner_hyb.f | ||
101 | FCTTRE.f | ||
102 | guez | 136 | filtreg_hemisph.f |
103 | guez | 137 | filtreg_scal.f |
104 | filtreg_v.f | ||
105 | guez | 123 | findsep.f |
106 | find_str.f | ||
107 | fisrtilp.f | ||
108 | flumass.f | ||
109 | fluxstokenc.f | ||
110 | flxadjtq.f | ||
111 | flxasc.f | ||
112 | flxbase.f | ||
113 | flxddraf.f | ||
114 | flxdlfs.f | ||
115 | flxdtdq.f | ||
116 | flxflux.f | ||
117 | flxini.f | ||
118 | flxmain.f | ||
119 | fonte_neige.f | ||
120 | gcm.f | ||
121 | geopot.f | ||
122 | getfieldindex.f | ||
123 | grad.f | ||
124 | gradiv2.f | ||
125 | gradsdef.f | ||
126 | grid_change.f | ||
127 | groupe.f | ||
128 | groupeun.f | ||
129 | guez | 189 | gr_phy_write.f |
130 | guez | 123 | gr_u_scal.f |
131 | gr_v_scal.f | ||
132 | guide.f | ||
133 | gwprofil.f | ||
134 | gwstress.f | ||
135 | hbtm.f | ||
136 | heavyside.f | ||
137 | hgardfou.f | ||
138 | histbeg_totreg.f | ||
139 | histclo.f | ||
140 | histcom_var.f | ||
141 | histdef.f | ||
142 | histend.f | ||
143 | histhori_regular.f | ||
144 | histsync.f | ||
145 | histvar_seq.f | ||
146 | histvert.f | ||
147 | histwrite.f | ||
148 | guez | 191 | histwrite_phy.f |
149 | guez | 123 | histwrite_real.f |
150 | indicesol.f | ||
151 | iniadvtrac.f | ||
152 | inidissip.f | ||
153 | inifgn.f | ||
154 | inifilr.f | ||
155 | guez | 166 | inifilr_hemisph.f |
156 | guez | 123 | ini_histins.f |
157 | initdynav.f | ||
158 | init_dynzon.f | ||
159 | initfluxsto.f | ||
160 | inithist.f | ||
161 | initial0.f | ||
162 | initphysto.f | ||
163 | initrrnpb.f | ||
164 | init_tau2alpha.f | ||
165 | integrd.f | ||
166 | interface_surf.f | ||
167 | interfoce_lim.f | ||
168 | interfsurf_hq.f | ||
169 | interfsur_lim.f | ||
170 | guez | 131 | invert_zoom_x.f |
171 | guez | 123 | ioconf_calendar.f |
172 | ioget_calendar.f | ||
173 | isittime.f | ||
174 | ismax.f | ||
175 | ismin.f | ||
176 | itau2date.f | ||
177 | ju2ymds.f | ||
178 | laplacien.f | ||
179 | laplacien_gam.f | ||
180 | laplacien_rot.f | ||
181 | laplacien_rotgam.f | ||
182 | leapfrog.f | ||
183 | lift_noro.f | ||
184 | lwb.f | ||
185 | lwbv.f | ||
186 | lwc.f | ||
187 | lw.f | ||
188 | lwtt.f | ||
189 | lwttm.f | ||
190 | lwu.f | ||
191 | lwvb.f | ||
192 | lwvd.f | ||
193 | lwv.f | ||
194 | lwvn.f | ||
195 | massbar.f | ||
196 | massbarxy.f | ||
197 | massdair.f | ||
198 | mathelp.f | ||
199 | mathop2.f | ||
200 | mathop.f | ||
201 | minmax.f | ||
202 | minmaxqfi.f | ||
203 | moycum.f | ||
204 | nat2gcm.f | ||
205 | newmicro.f | ||
206 | nflxtr.f | ||
207 | nuage.f | ||
208 | nxgrad.f | ||
209 | nxgrad_gam.f | ||
210 | nxgraro2.f | ||
211 | o3_chem.f | ||
212 | orbite.f | ||
213 | orodrag.f | ||
214 | orolift.f | ||
215 | orosetup.f | ||
216 | ozonecm.f | ||
217 | paramet_m.f | ||
218 | phyetat0.f | ||
219 | guez | 166 | phyredem0.f |
220 | guez | 123 | phyredem.f |
221 | physiq.f | ||
222 | phystokenc.f | ||
223 | phytrac.f | ||
224 | pres2lev.f | ||
225 | press_coefoz.f | ||
226 | guez | 124 | principal_cshift.f |
227 | guez | 123 | qcheck.f |
228 | qminimum.f | ||
229 | q_sat.f | ||
230 | raddim.f | ||
231 | raddimlw.f | ||
232 | radepsi.f | ||
233 | radiornpb.f | ||
234 | radlwsw.f | ||
235 | radopt.f | ||
236 | read_reanalyse.f | ||
237 | guez | 202 | read_sst.f |
238 | guez | 123 | reanalyse2nat.f |
239 | regr_pr_av.f | ||
240 | regr_pr_comb_coefoz.f | ||
241 | regr_pr_int.f | ||
242 | rotatf.f | ||
243 | rotat_nfil.f | ||
244 | scopy.f | ||
245 | screenc.f | ||
246 | screenp.f | ||
247 | soil.f | ||
248 | sortvarc.f | ||
249 | ssum.f | ||
250 | stdlevvar.f | ||
251 | strlowercase.f | ||
252 | suphec.f | ||
253 | sw1s.f | ||
254 | sw2s.f | ||
255 | swclr.f | ||
256 | swde.f | ||
257 | sw.f | ||
258 | swr.f | ||
259 | swtt1.f | ||
260 | swtt.f | ||
261 | swu.f | ||
262 | tau2alpha.f | ||
263 | temps.f | ||
264 | thermcell.f | ||
265 | guez | 191 | time_phylmdz.f |
266 | guez | 123 | tourpot.f |
267 | tracstoke.f | ||
268 | trans_buff.f | ||
269 | transp.f | ||
270 | transp_lay.f | ||
271 | unit_nml_m.f | ||
272 | ustarhb.f | ||
273 | vdif_kcay.f | ||
274 | vitvert.f | ||
275 | vlsplt.f | ||
276 | vlspltqs.f | ||
277 | vlx.f | ||
278 | vlxqs.f | ||
279 | vly.f | ||
280 | vlyqs.f | ||
281 | vlz.f | ||
282 | writedynav.f | ||
283 | writefield.f | ||
284 | writehist.f | ||
285 | yamada4.f | ||
286 | yamada.f | ||
287 | ymds2ju.f | ||
288 | YOECUMF.f | ||
289 | YOEGWD.f | ||
290 | yoethf.f | ||
291 | YOMCST.f | ||
292 | zenang.f |
ViewVC Help | |
Powered by ViewVC 1.1.21 |